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Field Engineering Education 
Supplementary Course Material 



Model 25 Microprogram Listing 
System/360 Emulator - *E60 



PREFACE 



This publication contains a listing of the System/ 
360 emulator microprogram, *Engineering change 
level and features present do not relate to any 
specific system, limiting the use of this listing 
to the classroom. 

The listing shown is actual and has not been al- 
tered in content in any way. 

Routines are in alphabetical sequence as shown 
in the listing index. 



*And is meant for use in the System/360 Model 
25 DPS Course 13233 and 53232. 



(March 1970) 

Address any comments concerning the contents of this publication to: 
IBM, Field Engineering Education Media Development Center, Dept 927, 
Rochester, Minnesota 55901. 



Copyright International Business Machines Corporation 1969 



Preliminary Edition 

THIS PUBLICATION IS IN A PRELIMINARY STATE OF 
DEVELOPMENT. ANY CORRECTION OR SUGGES- 
TIONS THAT YOU CAN OFFER FOR THE FORMAL 
PUBLICATION WILL BE APPRECIATED. 



MACHINE TYPE 
MASTER CONTROL 
EC * 128211 



MODEL 



SUM CHECK # 45D1 



CORE LOAD *E60 



** SEE *E60 BCHK ** 



MES/FCS1 # 



PAGE III 
SERIAL # 

MACHINE STATUS 

DATE PREPARED 11/08/68 



FEATURES PRESENT 
2t>42057 MEM48K 
2539256 BURSTCH 
0854017 NATV2311 



2539229 FLTPT 
0854031 TIMER 
0854023 DIRCTRL 



0854021 STGPROT 
0854019 NATV2540 
0854095 MULCHSET 



2539257 PER 

0854015 NATV1403 



FEATURES NOT PRESENT 
2542054 MEM16K 
0854030 TIMER50 



2542056 MEM32K 
2532200 COMBASIC 



2539255 BYTECH 



2542055 MEM24K 



A DOR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLQAD=*E60* 
COMMENTS 
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*E60 


001 


T 


*E60 


002 


* 


*E60 


003 


♦ 


*E60 


004 


* 


*E60 


005 


* 


*E60 


006 


* 


*E60 


007 


* 


*E60 


008 


* 


*E60 


009 


* 


*EfcO 


OiO 


* 


*EbO 


Oil 


* 


*E60 


012 


♦ 


*E60 


013 


* 


*Eeo 


014 


* 


*EfcO 


013 


* 


*E60 


016 


* 


*E60 


017 


♦ 


*E60 


018 


* 


*E60 


019 


* 


*E60 


02 


* 


*E60 


022 


♦ 


*E60 


023 


4c 


♦ E60 


025 


* 


*E60 


02 7 


♦ 


*E60 


02 8 


* 


*E60 


029 


* 


*E60 


030 


♦ 


*£60 


031 


♦ 


*£60 


033 


♦ 


*E60 


034 


* 


*E60 


035 


♦ 


*E60 
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* 


*E60 
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* 


*E60 


038 


* 


*E60 


039 


# 


*E60 


04 


♦ 


*E60 


041 


* 


*E60 


042 


* 


*E60 


043 


* 


*E60 


044 


* 


*E60 


045 


* 


*E60 


04 7 


* 


*E60 


049 


* 


*E60 


050 


♦ 


*E60 


052 


* 


*E60 


054 


* 


*£60 


055 


* 


*E60 


057 


* 


*E60 


059 


* 


*E60 


061 


* 


*E60 


063 


* 


*E60 


064 


* 


*E60 


065 


* 



SYSTEM 360/25 
AAA8 
AAAC 
AAAO 
AAAF 
ALDP 
BCHK 
8CPL 
BDIA 
BMCK 
BPSW 
BSTP 
BSWI 
BSYS 
BWRP 
CBIN 
CBRC 
CCOM 
COMD 
CDVO 
CFAD 
CFCO 
CFCY 
CFOV 
CFHA 
CFLS 
CFMO 
CFMU 
CiCY 
CLOG 
CLST 
CMLT 
CMPU 
CNVR 
CSFT 
CSAS 
CSTS 
CTRT 
OCHN 
OCLA 
DCLB 
DCLC 
DCLD 
DCLE 
OCLH 
DCLL 
DCLR 
OCLT 
OCOM 
OMCS 
DPTC 
DPTQ 
OPTR 



EMULATOR 



WORDS 



OUT-CNSTRUCTION ADDRESS 
ROUTINE 



LOCAL STORAGE MAP CPU 

EXTERNAL MNEMONIC DEFINITIONS 

BIT SIGNIFICANCE CHARTS FOR CONTROL 

ALTER DISPLAY ROUTINE 

CHECK SUN 
RESIDENT CHANNEL CORE LOAD ROUTINE 
BASIC DIAGNOSTIC*. RESIDENT CPU DIAGNOSTIC 
MACHINE CK TRAP ROUTINE 
PSW STORE AND LOADING 
INSTRUCTION STEP TYPE 
EXCEPTIONAL CONDITION 
SYSTEM RESET ROUTINE 
WRAP TRAP ROUTINES 
BINARY ARITH.-ADD-SUB-COMPARE 
BRANCH INSTRUCTIONS 
CPU COMMON ROUTINES 

DECIMAL MULT OIVD 
BINARY DIVIDE ROUTINE 
FLOATING POINT ADDt SUB TRACT, COMPARE 

COMMON ROUTINES 

INSTRUCTION CYCLES 

DEVIDE 

HALVE 

LOADS AND STORE 

MULT DIV PREPARATION 

MULTIPLY 



FLOATING 
FLOATING 
FLOATING 
FLOATING 
FLOATING 
FLOATING 
FLOATING 



POINT 

POINT 

POINT 

POINT 

POINT 

POINT 

POINT 
INSTRUCTION CYCLES 
LOGICAL OPERATIONS 
LOAD AND STORE OPERATIONS 
BINARY MULTIPLY ROUTINE 
PACK UNPACK AND MOVE WITH OFFSET 
CONVERT TO DECIMAL AND BINARY 
SHIFT ROUTINES 

DECIMAL ADD SUB COMPARE ZERO AND ADD 
STATUS SWITCHING INSTRUCTIONS 
TRANSLATE TRANS TEST EDIT EDIT AND MARK 

CHANNEL INTERRUPT ROUTINE H.BERKEBILE 

I/O INSTRUCTIONS 

CCW FETCH AND CHECK 

CHANNEL INITIAL SELECTION 

CHANNEL DATA LOOP 

CHANNEL LOW PRIORITY TRAP-STATUS ROUTINE 

CHANNEL HALT I/O 

INITIAL PROGRAM LOAD 

CHANNEL ERROR ROUTINE 

CHANNEL TEST I/O ANO I/O INTERRUPT 

COMMON I/O ROUTINES 
1403 MULTIPLE CHARACTER SET ROUTINE 
1403 COMMAND DECODE ^CONSTANTS AND AUX TABLES 
1403 REQUEST AND INTERRUPT BUFFER ROUTINE 
1403 READ AND WR ITE-CHANNEL END AND CARR.CTRL 



AUOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, EC LEVEL=1282U 
COMMENTS 



PAGE 



*E60 


066 


# 


*E60 


067 


* 


*EbO 


068 


* 


*E60 


070 


* 


*E60 


071 


* 


*E60 


072 


* 


*E60 


07 3 


* 


*E60 


074 


* 


*E60 


076 


♦ 


*E60 


077 


♦ 


*E60 


078 


* 


*E60 


080 


♦ 


*E6Q 


C82 


* 


*E6Q 


084 


* 


*E60 


086 


* 


*E60 


087 


* 



DPTS 1403 START I/O-NO ACT-NO SEC+SENSE CGMM 

OPTT 1403 TEST I/0,HALT I/O, START I/O-SEC. ON 

OY PE 1052 TYPE ROUTINES 

ECCL PUNCH COLUMN BINARY ANO DATA CHAIN 

EPCH PUNCH SIO CMO DECODE £ CHAINING 

EPXF PUNCH TRANSFER-EBCDIC TO ROW FORM -& CHAINING 

ERCX XFER FROM COLUMN FORM BUFFER-RO-TO CCW ADDRESS 

ERDR READER START I/O COMMAND DECODE AND CHAINING 

ERRQ READER REQUEST MOOE AT 10 

ETKP NATIVE PUNCH TRAP ROUT INEIPUNCH CHECK ANALYSIS) 

ETTR NATIVE READER TRAP ROUTINE! RE ADER CHECK ANALYSIS) 

EXFR READER XFER OF ROH IMAGE TO COLUMN BINARY FORM 

FILE 2311 FEAT., ENTRY FOR SIO, TIO , HIO 

FILT 2311 FEAT., TRAP ROUTINE 

FILX 2311 FEAT., OP VERIVICATION Z EXECUTION 

FINT 2311 FEAT., INTERRUPT ROUTINE 
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* AAA8 * 



AUX STORAGE — MODULE 



012 3 4567 8 9ABC E F 

**************************************************************** 



OX * G.P. REG 

* 
IX * G.P. REG 1 

2X * G.P* REG 2 

3X * G.P- REG 3 

4X * G.P. REG 4 

5X * G.P. REG 5 

6X * G.P. REG * 

7X * G.P. REG 7 



2311 



* FLOATING POINT REG. 

* H 



* OX 

* 

* IX 
* 

* FLOATING POINT REG. 2 * 2X 

* J * 3X 



******************* 
* 

* 1052 * 

* * 



ALTER/OISPLAY 



MESSAGE 



* FLOATING POINT REG. 4 * 4X 
* 

K * 5X 

. * 

*. 6X 
* 

* 7X 



* FLOATING POINT REG. 6 

* L 



* ************************************************** 

8X * G.P. REG 8 * -R- * KO * Kl * K2 * K3 * 8X 

* ******************* * * — — * * 

9X * G.P. REG 9 * -R- * K4 * K.5 * K6 * K7 * 9X 

* ******************* * * * * 

AX * G.P. REG A * * K8 * K9 * KA * KB * AX 

* * * * * * * 

bX * G.P. REG B*A*B*C*D*KC*KD * KE *KF *8X 

* * ******************************** 

CX * G.P. REG C * P * M * F * 1403 UCW * CX 

* * _* , * 

DA * G.P. REG * * * m * * 2540 ROR UCW * OX 

EX * G.P. REG E * * * M * * 2540 PCH UCW * EX 

FX * G.P. REG F *E*N*M*G * 1052 UCW * FX 

**************************************************************** 

0123456789ABC0E F 

— MULT/OVD TABLE I XII AND 
ALT/DIS REGS BACKUP 
MULT/DVD TABLE <X4) AND 
ALT/DIS BACKUP ♦ FLPT SAVE 

— MULT/DVD TABLE (X16) 

— MULT/DVD TABLE (X64>,FLPT SAVE 
— NATIVE KEY KKKKOOOO 
— COMMU. GHEX IT POINTER 

BURST CHANNEL BUFFERED 
DEVICE ADDRESSES. 



A 1403 UNIT ADDRESS 


H 


B READER UNIT ADDRESS 




C PUNCH UNIT ADDRESS 


J 


1052 UNIT ADDRESS 




E HI SAVE 


K 


F 1403 PCCL 


L— ■ 


G -1052 SENSE 


M 


N~ 2311 ADDRESS 


P 




R 



* AAAB * 

K-ADDRESSABLE AREA 

K0-88- CHANNEL 1 INTERRUPT BUFFER 

K1-8A- STANDARD INTERFACE, NEXT CCW ADDRESS 

K2-8C- CHANNEL UNIT ADDRESS BUFFER 

K3-8E- STATUS/ACTIVE BYTE FOR 2311 OR CHANNEL 1 

K4-98- 2311 NEXT CCW ADDRESS 

K5-9A- 2311 SENSE OR PREVIOUS OP AND MASK 

K6-9C- 2311 SENSE OR FILE ADDRESS 

K7-9E- DIAGNOSTICS, ALTER/DISPLAY BAL BACKUP 

K8-A8- SYSTEM MASK -A9- CPU KEY AND AMWP 

K9-AA- EXECUTE INSTRUCTION COUNTER I REGISTER 

BACKUP 

KA-AC- U REGISTER BACKUP Q FLTPT SAVE 
DURING INSTRUCTIONS 

KB-AE- G REGISTER BACKUP 

KC-B8- P REGISTER BACKUP 

KD-BA- CHANNEL INTERRUPT BUFFER 

KE-BC- ADDRESS OF STRAIGHT MULT/DVD , FLPT SAVE 
2540 REGS BACKUP 

KF-BE- ADDRESS OF SKEWED MULT/DVD , FLTPT SAVE OR CAW 
KEY. 2540 REGS BACKUP 

********** STANDARD DEVICE ADDRESSES *************** 

* NATIVE LOC * BURST CHANNEL LOC* 

* 1403 Qg B 4 * 1443 or 1445 OB 84 * 

* 2540 RDR X B5 * 2540 RDR OC 85 * 

* 2540 PCH OD B6 * 2 540 PCH OD 86 * 

* 1052 IF B7 * 1403 OE 87 * 

* 2311 9X F5 * 1404 OR 2ND 1403 OF 94 * 

* * 2 52 15 95 * 

* * 

* THE TEXT PRECEEDING THE -BCPL- ROUTINE CONTAINS * 

* INFORMATION ON PUNCHING CARDS TO RECONFIGURATE THE * 

* SYSTEM TO OTHER THAN THE STANDARD ASSIGNMENTS * 
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4 8 G F 

* * 

* CPU AREA * 

* * 

* PUNCH ROW IMAGE < 1X00-1X77* * 

* : * 1 

* * 

* PFR ROW IMAGE (IX78-IXEF) * 

* * ^ * 

F *C D B E A * REAO ERROR LOGOUT * 

* * * 

* * 

* MPX UCWS * 2 

* * 

* * 

* READER TRANSLATE TABLE * 3 

F * * 

* * 

* PUNCH CHECK I4X0C-4X84J * 

* PFR REAO I4X00-4X9F* * 4 

* READER ROW IMAGE J4XA0-5X17) * 

F * * 

* * 

* * 

* .^ * 

* READER READOUT (5X18-5X87* * 5 

* * 

* 1052 TRANSLATE TABLE (5XB8-5XF51 * 

F * * PUNCH ERROR LOGOUT * 

* * * 

* * 

* PUNCH TRANSLATE TABLE * 6 

* * 

* * 

* PRINTER TRANSLATE TABLE * 7 

* * 
p *********************** *************************** 



AUXILIARY STORAGE ASSIGNMENTS 
MODUL E 



MODULE 



MODULE I 



MODULE 



MODULE 3 



MODUL E 



MO OUL E 



MODULE 6 



MODULE 



DEFINED IN AAAB ROUTINE 



C AND NOTED IN TABLE ARE DEFINED 
IN COMMENTS PRECEEDING THE ERDR 
ROUTINE. C AT 10F0 D AT 10FI 
B, E, AND A NOTED IN TABLE ARE DEFINED 
IN TEXT PRECEEDING THE EPCH ROUTINE. 
B AT 10F2» E AT 10F4, A AT 10F5 



DEFINED IN FE MAINTENANCE MANUAL 



-DEFINED AT END OF THE ERCX ROUTINE, 



WORKING AREA 



1052 TRANSLATE TABLE DEFINED AT END 
OF THE DYPE ROUTINE. 



DEFINED AT END OF THE EPXF ROUTINE. 
PUNCH TRANSLATE FOR 24K IN MODULE 8. 



DEFINED AT END OF THE DPTC ROUTINE. 
PRINTER TRANSLATE TABLE FOR 24K IN 
MODULE 9. 
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* AAAC * 



360 MODE 



LOCAL STORAGE 



ZONES AND ASSIGNMENTS 



* AAAC * 



******** 

* 

* AS/BS 

* FIELD 
******** 

* 0000 

* 0001 



******* 
* 

* NAME 
* 
******* 

* UO 

* 

* Ul 



************************************************************************** 

* ZONE ** ZONE L ** ZONE 4 ** ZONE 5 ** 

* CPU ** 2311 ** BACK -UPS ** COMMUNICATIONS ** 

* ♦* ** ** ♦* 
************************************************************************** 



* 1ST OPERAND 

* STORAGE ADDR. 



* 0010 
* 

* 0011 



vo 



* 

* — . 

* VI 
* 



* 2ND OPERAND 
-* 

* STORAGE ADDR 



** 
** 

** 
** 

-** 
** 
** 
** 



* 0111 

******** 
******** 

* 1000 

* 1001 



* Dl 

* 

******* 
******* 

* 10 

* u 



— ** 
** 
** 
** 
** 
** 
** 

* HIGH 8 OF 24 BIT** 
-* 2ND OPERAND ADDR** 



* 


0100 


* 


GO 


* 


OP CODE 


* 


0101 


* 


Gl 


* 


2ND BYTE INST. 


*- 




-*- 




— *- 


_ 


*- 


0110 


* 
-*- 


DO 


— .*- 


DATA 



** 
** 
** 
** 
**- 

** 
** 

** 

*#- 

** 

** 

** 

**- 

** 

** 

** 

**- 



LEVEL 1 
BACK-UP 

LEVEL 2 
BACK-UP 



** ** 

** LCW ADDR HIGH ** 
** _** 

** LCW ADDR LOW ** 

-** . ** 

** CHAR POINT HI ** 
** ** 

** CHAR POINT LOW ** 
.** **. 

** LCW ** 

** **. 

** LCW+1 ** 

„ ** **. 

MACHINE CHECK** LCW+2 ** 

** **. 

BACK-UP ** LCW+3 ** 

** **. 



**************** 
ZONE 6 
2540 

**************** 

READER ROW 
FORM 
BUFFER 
ADDRESS 



******************* 
** ZONE 7 * 

** CHANNEL * 

** * 

******************* 
*# * 

** COUNT * 

** * 

** COUNT * 

. ** * 



LEVEL 



BACK-UP 



PUNCH IMAGE 
BUFFER 
ADDRESS 

PCH TRAP COUNT 

WORKING REG 



DATA ADDRESS 



** 

** * 

** DATA ADDRESS * 
- ** * 

** CHANNEL STATUS * 
.** * 

** OP FLAG BYTE * 
.** * 



INDICATORS ** CHANNEL IDENT. * 
** * 

RDR TRAP COUNT ** NOTE I * 

** * 



* 1010 

* 1011 

* 1100 

* 1101 

* 1110 

* 

* 1111 



* TO 

* 

* Ti 

* 

* PO 

* PI 

* HO 



HI 



*************************************** £QNE 4 THRU 7 ** 

*************************************** ** 

* INST CTR HIGH ** CCW COUNT HIGH ** CPU BAL **. 

* INST CTR LOW ** CCW COUNT LOW ** BACK-UP ** 

* ** DATA AOOR HIGH ** SPARE ** 

* GP REG ADDRESS ** DATA ADDR LOW ** SPARE ** 

* CONDITION CODE ** GEN. PURPOSE ** LEVEL 1 ** 

* PROG MASK, AMWP ** GEN. PURPOSE ** WORKING AREA ** 

* DATA ** CCW ADDR HIGH ** LEVEL 1 ** 

* . , ** ** ** 

*HiGH 8 OF 24 BIT ** CCW ADDR LOW ** WORKING AREA ** . 

* INST CTR OR 1ST ** ** ** . 

* OPERAND ADDR. ** ** ** 



... THIS 


AREA 


OF 


ZONE 


4 IS 




COMMON TO 


ZONES 


5,6, 


AND 7. 



NOTE 1 — FOR BURST CHANNELt THIS 
REGISTER CONTAINS THE 
UNIT ADDRESS. 

FOR BYTE CHANNEL, THIS 
REGISTER CONTAINS THE 
UCW ADDRESS. 



*********************************************************************** 
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EXTERNAL 












DISPLAY ABLE 


SWITCH 


SWITCH 


ACCESSED BY 


MNEMONIC 


DEFINITION 












FACILITY 


C 


D 


SET/RESET 
WORD ONLY 


BA 


BRANCH CONDITIONS 


ALL MODES 


EXT 


TO 


CPU 


YES 





7 




8B 


SOFT STOP BRANCH CONDITIONS 


CPU 1 


«!ODE 


EXT 


TO 


CPU 


YES 


CPU 


F 




BC 


EXTERNAL FACILITY 


ALL f 


^ODES 








__ 





— - 


YES 


CADR 


COMM ADAPTER DIAGNOSTIC REG 


COMM 


MODE 


CPU 


TO 


EXT 





. 







CCTRL 


START- STOP CONTROL 


CCMM 


MODE 











- — 





YES 


CHI 


COUNTER 1 HIGH IN- DIAGNOSTIC 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


8 




CLI 


COUNTER 1 LOW IN - DIAGNOSTIC 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


9 




CPF 


READ DIRECT ENABLE 


CPU MODE 











• — . 


_ — 


YES 


CSETF 


START STOP/SYNC 


CCMM 


MODE 

















YES 


DAIN 


DATA IN 


COMM 


MODE 


EXT 


TO 


CPU 


YES 


COMM 


A 




OAOUT 


DATA OUT 


CCMM 


MODE 


CPU 


TO 


EXT 













DASI 


DISK ATTACHMENT STATUS IN 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


5 




OiAB 


DIAGNOSTIC REG 


2311 


MODE 








_- 








YES 


DIAC 


DIAGNOSTIC REG 


2311 


MODE 








— „ 


- — 


— .- 


YES 


OIL IN 


DIAL IN 


COMM 


MODE 


EXT 


TO 


CPU 


YES 


COMM 


E 




OILOUT 


DIAL OUT 


COMM 


MODE 


CPU 


TO 


EXT 













OR 


DIAGNOSTIC REGISTER 


ALL MODES 








YES 


CPU 


C 


NOTE I 


DS 


DISK STATUS 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


E 




DYN 


DYNAMIC CONDITION REGISTER 


ALL MOOES 








YES 


—- . 


4 




FBI 


FILE BIS IN 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


1 




FBO 


FILE BUS OUT 


2311 


MODE 


CPU 


TO 


EXT 


— 


_„ 







FEBO 


FILE 1400 EMULATOR BUS OUT 


2311 


MODE 


CPU 


TO 


EXT 


— , — 


— — 







FFI 


FILE FLAGS IN 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


D 




FFO 


FILE FLAGS OUT 


2311 


MODE 


CPU 


TO 


EXT 





— _ 







FGA 


FILE GATED ATTENTION 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


C 




FIA 


FILE INFORMATION 


2 311 


MODE 








— - 








YES 


FIB 


FILE INFORMATION 


2311 


MODE 











— ._ 





YES 


FIC 


FILE INFORMATION 


2311 


MODE 








— — 


. 


-„ 


YES 


FOB 


FILE OUT BUS-DIAGNOSTIC 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


3 




FOP 


FILE OP REGISTER 


2311 


MODE 








YES 


2311 


F 




GA 


CHANNEL SIGNALS 


CHAN 


MODE 








. 


- — - 





YES 


GB 


CHANNEL SIGNALS s 


CHAN 


MODE 








— - 


-TMT 





YES 


GB/IN 


CHANNEL BUS IN 


CHAN 


MODE 


EXT 


TO 


CPU 


YES 


CHNL 


F 




GB/OUT 


CHANNEL BUS OUT 


CHAN 


MODE 


CPU 


TO 


EXT 





™ 







GC 


CHANNEL SIGNALS 


CHAN 


MODE 








— 


- — - 




YES 


GO 


CHANNEL DIAGNOSTIC REGISTER 


CHAN 


MODE 


EXT 


TO 


CPU 


YES 


CHNL 


E 




GS 


CHANNEL BRANCH CONDITIONS 


CHAN 


MODE 


EXT 


TO 


CPU 


YES 


CHNL 


C 




GSTAT 


GENERAL STATUS 


CCMM 


MODE 


EXT 


TO 


CPU 


YES 


COMM 


F 




GT 


CHANNEL BRANCH CONDITIONS 


CHAN 


MODE 


EXT 


TO 


CPU 


YES 


CHNL 


D 




JA 


DIRECT CONTROL-2 TIMING 


CPU MODE 


CPU 


TO 


EXT 













JI 


DIRECT CONTROL IN 


CPU MODE 


EXT 


TO 


CPU 


YES 


CPU 


8 




JO 


DIRECT CONTROL- 1 


CPU MODE 


CPU 


TO 


EXT 


— 





— - 




LA-CON 


LINE ADAPTER CONDITIONS 


CCMM 


MODE 


EXT 


TO 


CPU 


YES 


COMM 


C 




LADR 


LINE ADAPTER DIAG REGISTER 


COMM 


MODE 


CPU 


TO 


EXT 


— 


— 






LAIN 


LINE ADDRESS IN 


COMM 


MODE 


EXT 


TO 


CPU 


YES 


COMM 


B 




LAOUT 


LINE AODRESS OUT 


COMM 


MODE 


CPU 


TO 


EXT 





„_ 


. 




LASTAT 


LINE ADAPTER STATUS 


COMM 


MODE 


EXT 


TO 


CPU 


YES 


CGWM 


D 





* AAAD * 
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EXTERNAL 

MNEMONIC 

MC 

MMSK 

MODE 

MS 

MW 

P 

PARCK 

PCCL 

PO 

PR 

PR A 

PRB 

PRC 

PRO 

PR I 

PRO 

PRS 

PRT 

PS 

R 

RP 

RP1 

RP2 

RPO 

RPD1 

RP02 

RPS 

RS 

S 

SOI 

SM 

STPG 

STPi 

SWAB 

SWCD 

TA 

TC 

TO 

TE 

TGRI 

TGRO 

TI 

TIM 

TR 

TT 

TU 

XINT 



DEFINITION 

ERROR REGISTER CPU MODE EXT TO CPU 

MICROPROGRAM MASK REGISTER ALL MODES 
MODE REG (LS AND EXT ADOR CTRLI ALL MODES 



DISPLAY ABLE 
FACILITY 

YES 

YES 10-7) 



SWITCH 
C 

CPU 



MODULE SELECT REGISTER 

MACH CHKt WAIT STATE LATCHES 

PUNCH SIGNALS 

COMMUNICATIONS PARITY CHECK 

PRINT CHAR COUNTER LENGTH 

PUNCH DATA OUT {READER! 

1403 PLBAR DATA OUT 

PRINTER SIGNALS 

PRINTER SIGNALS 

1403 CARRIAGE DATA OUT 

1403 DIAGNOSTIC CONDITIONS 

1403 PLB DATA IN 

1403 PLB DATA OUT 

SENSE/STATUS CONDITIONS 

PLBAR DATA IN 

PUNCH BRANCH CONDITIONS 

READER SIGNALS 

2540 SIGNALS 

READER/PUNCH DATA IN I 

READER/PUNCH DATA IN 2 

2540 SIGNALS D1AG 

DIAGNOSTIC R/P CONDITIONS I 

DIAGNOSTIC R/P CONDITIONS 2 

READER/PUNCH BR CONDITIONS 

READER BRANCH CONDITIONS 

STATUS REGISTER 



2311 MODE CPU 

CPU MODE CPU 
2540 MODE 

CCMM MODE CPU 

1403 MODE CPU 

2540 MODE CPU 

1403 MODE CPU 
1403 MODE 
1403 MODE 

1403 MODE CPU 

1403 MODE EXT 

1403 MODE EXT 

1403 MODE CPU 

1403 MODE EXT 

1403 MODE EXT 

2540 MODE EXT 
2540 MODE 
2540 MODE 

2540 MODE EXT 

2540 MODE EXT 
2540 MODE 

2540 MODE EXT 

2540 MODE EXT 

2540 MODE EXT 

2540 MODE EXT 
ALL MOOES 



SERIALIZER/DESERIALIZER IN 01 AG 2311 MODE EXT 



SYSTEM MASK 
STORAGE PROTECT KEY 
STORAGE PROTECT STACK 
CONSOLE ADDRESS SWITCHES A-B 
CONSOLE ADDRESS SWITCHES C-D 
1052 SIGNALS 
TERMINATING CONDITIONS 
PRKB DIAGNOSTIC REGISTER 
PRKB DATA OUT 
TAG REGISTER IN 
TAG REGISTER OUT 
1052 DATA IN 
TIMER COUNT 

1052 TILT/ROTATE REGISTER 
PRKB BRANCH CONDITIONS 
PRKB BRANCH CONDITIONS 
EXTERNAL INTERRUPT 



CPU MODE CPU 
ALL MODES 
ALL MODESINOT 

CPU MODE EXT 

CPU MODE EXT 
1052 MODE 

2311 MODE EXT 

1052 MODE EXT 

1052 MODE CPU 

2311 MODE EXT 

2311 MODE CPU 

1052 MODE EXT 

CPU MODE EXT 

1052 MODE EXT 

1052 MODE EXT 

1052 MODE EXT 

CPU MODE EXT 



TO EXT 

TO EXT 

TO EXT 
TO EXT 
TO EXT 
TO EXT 



TO EXT 

TO CPU 
TO CPU 
TO EXT 
TO CPU 
TO CPU 
TO CPU 



TO CPU 
TO CPU 

TO CPU 
TO CPU 
TO CPU 
TO CPU 

TO CPU 
TO EXT 

2311) 
TO CPU 
TO CPU 

TO CPU 
TO CPU 
TO EXT 
TO CPU 
TO EXT 
TO CPU 
TO CPU 
TO CPU 
TO CPU 
TO CPU 
TO CPU 



YES 
YES 

YES 
YES 
YES 



YES 
YES 

YES 
YES 
YES 
YES 
YES 
YES 

YES 

YES 



YES 
YES 

YES 

YES 
YES 
YES 
YES 
YES 
YES 



1403 
1403 

1403 
1403 
2540 



2540 

25 40 

25 40 
2540 
25 40 
2540 
NOT 2311 
2311 



SWITCH 
D 

£ 
6 



B 
A 

8 
9 
E 
D 
5 
B 



SEE NOTE 
SEE NOTE 



2311 

PRKB 

2311 

PRKB 

CPU 

PRKB 

PRKB 

PRKB 

CPU 



A 

A 
B 
E 

F 
9 



ACCESSED BY 
SET/RESET 

WORD ONLY 

NOTE 2 
NOTE 3 



YES 



* AAAD * 



YES 

YES 



YES 
YES 



YES 



NOTE 4 



YES 



NOTE I THE OR REGISTER IS SET BY THE SET/RESET 
WORD. EXECUTION OF A BRANCH WORD OR A 
RETURN WORD, WITH OR BIT 7 ON, SETS 
THE DIAGNOSTIC BRANCH LATCH. 



NOTE 2 THE MMSK REGISTER 0-9 IS SET OR RESET 
BY THE SET/RESET WORD* 
FOR OTHER WORD ACCESSES AND DISPLAY, 
ONLY BITS 0-7 CAN BE ADDRESSED. 

NOTE 3 THE MODE REGISTER IS SET BY THE 
SLT/RESET WORD. THE ACTUAL BIT 
STRUCTURE QF THE MODE REGISTER IS NOT 
ALWAYS WHAT IS DISPLAYED IN THE CONSOLE 
INDICATORS LABELED MODE/ ZONE REG. THE 
MODE BIT DECODE IS DISPLAYED IN BITS 2, 
3,4, AND THE LS ZONE BIT DECODE IS 
DISPLAYED IN BITS 5, 6, AND 7. THESE COULD 
BE THE FORCED DECODES CAUSED BY AN MMSK 
BIT BEING SET. 
** REFER TO DIAGRAMS 4-14 AND 4-32 

IN THE -FEMDM- FOR DISPLAY DETAILS. 



NOTE 4 THE S-REGISTER IS SET OR RESET BY THE 

SET/RESET WORD. IT CAN ALSO BE ACCESSED 
8Y A BRANCH WORD. 

BITS 0-6 CAN BE DISPLAYED DIRECTLY BUT 
BIT 7 OF THE DISPLAY INDICATES THE STATUS 
OF THE S7 BRANCH CONDITION LINE. TO 
DISPLAY THE ACTUAL CONDITION OF THE S7 
LATCH, THE BA FACILITY MUST BE DISPLAYED 
AND BIT WILL INDICATE THE S7 LATCH 
STATUS. 
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* AAAD * 



NOTE 5 TO DISPLAY STP1 FOR MPX OP 

1. SET CONSOLE SWITCHES A, 
THE AUXILIARY STORAGE AD 
MPX UCW ASSOCIATED WITH 

2. SET MODE SWITCH TO AS D 

3. PRESS AND RELEASE THE D 

(M-REG SET TO ADDRESS 

4. SET MODE SWITCH TO ALU/ 

5. SET CONSOLE SWITCHES C, 

6. PRESS AND HOLD THE DISP 

THE ASSOCIATED I/O PRO 
DISPLAYED IN THE BYTE 



ERAT I ON — 

B,C, AND D TO 

DRESS OF THE 

THE I/O DEVICE. 

ATA. 

I SPLAY KEY. 

IN SW,S ABCD). 

EXT. 

D TO 03. 

LAY KEY. 

TECT KEY IS 

1 INDICATORS. 



TO DISPLAY STP1 FOR SELECTOR CHANNEL KEY 
1. SET CONSOLE SWITCHES A,BtC, AND D TO 
AUX ADDRESS XX88. THE REST OF THE 
DISPLAY PROCEEDURE IS THE SAME AS THE 
MPX STP1. 

TO DISPLAY STP1 FOR CPU STORAGE KEY 

1. SET CONSOLE SWITCHES A,B,C, AND D TO 
A MAIN STORAGE ADDRESS ASSOCIATED WITH 
A PARTICULAR STORAGE KEY. 

2. SET MODE SWITCH TO MS DATA. THE REST 
OF THE DISPLAY PROCEEOURE IS THE SAME 
AS THE MPX STP1. 

TO 01 SPLAY THE FILE STORAGE KEY (WHICH IS 
NOT IN THE STP1 STACK) DO THE FOLLOWING— 

1. SET SWITCHES CD TO 12. 

2. SET MODE SWITCH TO ALU/ EXT. 

3. PRESS AND HOLD THE DISPLAY KEY. 

THE FILE KEY IS DISPLAYED IN THE 
BYTE I INDICATORS. 



TO DISPLAY STPO 

1. SET SWITCH C TO MODE DESIRED — 

C*-0*CPU MODE (Q REG) 
C=l=23il MODE CFQ REGI 
C=5=C0MM MODE <HQ REG) 
C^T^CHAN MODE IGQ REG) 

2. SET SWITCH D TO 2. 

3. SET MODE SWITCH TO ALU/EXT. 

4. PRESS AND HOLD THE DISPLAY KEY* 
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********************************************************************************************************************************* 
* WORD **K* * * * * 

*■ IYPE * * HIGH * SET/RST SOURCE FIELD * B SOURCE OR K LOW FIELD * K HIGH FIELD * * 

********************************************************************************************************************************* 

-01*2*3*4 5 6 7*8 9 10 11* 12 13 14 * 15 * 

********************************************************************************************************************************* 



* * 

* 0=RST * K HIGH 

* 1=SET * BIT 

* * 

* * 



0000= S REGISTER ALL MOOES 
0010= MMSK REGISTER ALL MODES 
0100= MODE REGISTER ALL MODES 
0110= BC FACILITY ALL MODES 
1000= OR REGISTER ALL MODES 



1001= RPD 
1011= DIAB 
1011= R 
1011= GA 
1100= DIAC 
1101= PRA 
1101= FIA 
1101= RP 



FACILITY 2540 MODE 
FACILITY 2311 MODE 
FACILITY 2540 MODE 
FACILITY CHNL MODE 
FACILITY 2311 MODE 
FACILITY 1403 MOOE 
FACILITY 2311 MODE 
FACILITY 2540 MODE 



1101= CSETF FACILITY COMM MOOE 
1101= GB 



FACILITY CHNL MODE 

FACILITY 2311 MOOE 

FACILITY CPU MODE 

FACILITY 1403 MODE 

FACILITY 1052 MODE 

FACILITY 2311 MODE 

FACILITY 2540 MODE 

1= CCTRL FACILITY COMM MODE 

1= GC FACILITY CHNL MODE 



0= FIB 
1= CPF 
1= PRB 
1= TA 
1= FIC 
1= P 



* * * * 

* WHEN MMSK ADDRESSED FOR A LINK * * * 

* OR RETURN FUNCTION, THE * I BIT 2 BIT 3 BIT * * 

* B SOURCE DECODES ARE FOR * * * 

* LOCAL STORAGE * * 

* * * 

* 0000= U REGISTER * * 

* 0010= V REGISTER * * 

* 0100= G REGISTER * * 

* 0110= D REGISTER * * 

* 1000= I REGISTER * * 

* 1010= T REGISTER * * 

* 1100= P REGISTER * * 

* 1110= H REGISTER * * 

* * * 

* WHEN USED AS THE K FIELD * * 

* * * 

* BIT 8 = K LOW BIT * * 

* BIT 9 = K LOW BIT 1 * * 

* BIT 10= K LOW BIT 2 * * 

* BIT 11= K LOW BIT 3 * * 

* * * 

* * * 

* * * 

* * 1111= GC FACILITY CHNL MODE * * 

* * * * 

* * * * 

* * * * 

* * 

* 
* 
* 

* * 
********************************************************************************************************************************* 



* 
* 
* 
* 
* 
* 

* 
* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 

WHEN THE MMSK REGISTER IS ADDRESSED BY THE SET/RST SOURCE FIELD, CONTROL 
WORD BIT 11=0 INDICATES A LINK OR RETURN FUNCTION, BIT 11=1 INDICATES NO 
LINK OR RETURN FUNCTION* 



BIT SIGNIFICANCE CHART FOR THE SET/RST WORD 1W0RD TYPE 0) 
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* ************************************************ **************************************** 

* WORO * FUNCTION * * 

* TYPE * DECODE * A-SOURCE FIELD * 

********************************************************************* 

* 1 ' * 2 ' 3" * 4 5 6 7*8 

***************** ********************** ****************************** 



K FIELD 
c********* ********* 

9 10 

K *********** ********* 



**************************************** 

* FUNCTION * WORD * 

* DECODE * TYPE * 
**************************************** 

li * 12 13 14 * 15 * 

**************************************** 



* 
* 

* 
* 
* 
* 
* 
* 
* 



C 





















* 
♦ 
* 
* 
* 
* 
* 
* 
♦ 




























********************** 



0000 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 

1111 



uo 

Ul 

vo 

VI 
GO 
Gl 
DO 
Dl 
10 

II 

TO 
Tl 
PO 

Pi 

HO 
HI 



THE FUNCTION DECODE IS A 
COMBINATION OF CONTROL WORD 
BITS 2, 3, 12, 13, AND 14* 



THE -A*- SYMBOL IN THE 
FORMULAS UNDER COLUMNS 12, 13, 
AND 14 CAN BE ANY OF THE LOCAL 
STORAGE BYTE SOURCES LISTED 
UNDER THE A-SOURCE FIELD. 



0000 
0001 
0010 
0011 
0100 
0101 
0110 
01 1 1 
1000 
1001 
1010 
1011 
1100 
1101 
1110 

1111 



* 
* 
* 
* 
* 
* 
* 
* 
-* 
* 
* 
* 
* 
* 

* 

* 
* 

* 

♦ 

* 

* 

* 

* 

* 

* 
********************************************************************************************************** 



* 








* 


* 


* 


000 


- 


Z=A ♦ KL 


* 


1 * 


* 


001 


- 


Z^A,A-,KL 


* 


* 


* 


010 


- 


Z=A,A- f KH 


* 


* 


* 


Oil 


- 


Z=A,A-,KK 


* 


* 


* 


100 


- 


Z=A ♦ KH 


* 


* 


* 


101 


- 


Z=A,OE,KL 


* 


* 


* 


110 


- 


Z=A,OE,KH 


* 


* 


* 


111 


— 


Z=A f OE,KK 


* 
— — »— ■* 


* 

* 


* 


000 






* 


* 


001 


- 


A=A,A- f KL 


* 


* 


* 


010 


- 


A^A,A-,KH 


* 


* 


* 


Oil 


- 


A~A f A-,KK 


* 


* 


* 


100 






* 


* 


* 


101 


- 


A*A,OE,KL 


* 


* 


* 


110 


- 


A=A,OE,KH 


* 


* 


* 


111 


- 


A=A,OE,KK 


* 


* 


* — 









* 


* 


* 


000 






* 


* 


* 


001 


- 


A=0,OR,KL 


* 


* 


* 


010 


- 


A=0,OR,KH 


* 


* 


* 


Oil 


- 


A=0,OR,KK 


* 


* 


* 


100 






* 


* 


* 


101 


- 


A-A ♦ KL 


* 


* 


* 


110 


- 


A=A ♦ KH 


* 


* 


* 

*__ 


HI 


- 


A=A + KK 


* 
-»— .. — * 


* 
* 
* 


* 


000 






* 


* 


001 


- 


A=A f OR,KL 


* 


* 


* 


010 


- 


A=A,OR,KH 


* 


* 


* 


Oil 


- 


A=A,OR,KK 


* 


* 


♦ 


100 


- 


A=0 - KH 


* 


* 


* 


101 


- 


A=A - KL 


* 


* 


* 


110 


- 


A=A - KH 


* 


* 


* 


111 


- 


A=A - KK 


* 


* 



BIT SIGNIFICANCE CHART FOR THE ARITH CONSTANT HORD (WORD TYPE 1) 
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********************************************************************************************** 

* WORD * STORAGE * * 

* TYPE * CONTROL * DATA REGISTER ADDRESS * ADDRESS REGISTER OR K FIELD 
********************************************************************************************** 

* 1 * 2 3*4 5 6 7*8 9 10 11 
********************************************************************************************** 



*********************************** 

* * WORD * 

* MODIFIER CONTROL * TYPE * 
*********************************** 

* 12 13 14 * 15 * 
*********************************** 



* 




* 


* 






4c 


FOR INDIRECT ADDRESSING 


* 




4c 


* 


* 


1 


* OO^READ CONTROL* 


THIS FIELD MAY ADDRESS LOCAL 


* 




* 


000 


- NO UPDATE * 


* 


* 




* 01=READ AUX OR 


* 


STORAGE FOR A 


BYTE OR HALFWORD. 


# 


THE ADDRESS REGISTER SELECTED 


4c 


001 


- DIRECT ADDRESSING* 


* 


* 




* PROGRAM 


4c 


BYTE SELECTION OF LOCAL STORAGE 


* 


BY THIS FIELD IS A HALFWORD 


4c 


010 


- NO ACCESS , PLUS * 


* 


* 




* 10=STURE CNTL 


4c 


IS LIMITED TO 


THE ODD ADDRESSES. 


* 


LOCAL STORAGE REGISTER 


* 




UPDATE. * 


* 


* 




U=STGRE AUX 


♦ 


HALFWORD SELECTION IS LIMITED TO 


4c 


BIT 11 DOES NOT ENTER INTO 


* 


Oil 


- NO ACCESS, MINUS * 


* 


* 




OR PROGRAM 


* 


EVEN ADDRESSES* 


* 


THE ADDRESSING OF THE LOCAL 


4c 




UPDATE. * 


* 


* 






* 






* 


STORAGE REGISTER, BUT DOES 


4c 


100 


- LOCAL STORAGE * 


* 


* 






* 


EXTERNAL FACILITY ADDRESSING 


* 


INDICATE THE FOLLOWING 


4c 




DATE REG, ACCESS,* 


4c 


* 


BIT 11 


DETERMINES IF 


* 


IS ALWAYS DONE IN BYTE MODE, 


4c 




4c 




PLUS UPDATE. * 


* 


* 


THE AUXILIARY STORAGE 


* 


THEREFOR ONLY 


THE EXTERNALS WITH 


* 


BIT BITS MEANING 


* 


101 


- LOCAL STORAGE * 


* 


* 


AREA OR 


THE PROGRAM 


* 


ODD ADDRESSES 


CAN BE ACCESSED. 


* 


11 2*3 


4c 




DATE REG, ACCESS,* 


* 


* 


STORAGE 


AREA IS ACCESSED 


* 






* 




4c 




MINUS UPDATE. * 


4c 


* 


FOR BIT 


2, 3 DECODES OF 


* 


LOCAL 


STORAGE DECODES 


4c 


01 READ AUXILIARY 


4c 


110 


- EXTERNAL DATA * 


4c 


* 


01 AND 


U- THIS IS ONLY 


* 


0000 


- UO 


4c 


1 01 READ PROGRAM 


* 




REG, ACCESS, * 


* 


* 


TRUE WHEN INDIRECTLY 


* 


OOOi 


- Ul 


* 


11 STORE AUXILIARY 


* 




PLUS UPDATE. * 


* 


* 


ADDRESSING. 


* 


0010 


- VO 


4c 


1 11 STORE PROGRAM 


4c 


111 


- EXTERNAL DATA * 


4c 


* 






* 


0011 


- VI 


* 




♦ 




REG, ACCESS, * 


* 


* 






* 


0100 


- GO 


4c 


FOR DIRECT ADDRESSING 


4c 




* 


* 


* 






* 


0101 


- Gi 


4c 




* 




MINUS UPDATE. * 


4c 


4c 


WHEN NU ACESS TO 


* 


0110 


- DO 


4c 


THIS FIELD CONTAINS BIT 


4c 




4c 


* 


* 


STORAGE 


IS DESIGNATED BY 


* 


0111 


- Dl 


4c 


CODES THAT FORCE THE ADDRESS 


* 




4c 


* 


* 


THE MODIFIER CONTROL 


♦ 


1000 


- 10 


4c 


REGISTER Ml TO SPECIFIC VALUES* 






* 


9: 


FIELD, BITS 2 AND 3 


« 


1001 


- 11 


4c 


THESE VALUES ARE- 


♦ 






* 


# 


INDICATE THE UPDATE 


* 


1010 


- TO 


♦ 




* 






* 


* 


VALUE. 




* 


1011 


- Tl 


♦ 


BITS FORCED Ml 


4c 






4: 


* 






4c 


1100 


- PO 


* 


8,9,10,11 VALUES 


♦ 






4c 


* 


BITS 


VALUE 


* 


1101 


- PI 


* 




********************************** 


* 


2,3 




* 


1110 


- HO 


♦ 


0000 88 








4c 


* 






* 


1111 


- HI 


4e 


0001 8A 


NOTE — 


WHEN DIRECT ADDRESSING 


* 


* 


00 





* 






4c 


0010 8C 






CONTROL STORAGE, MO IS 


* 


* 


01 


«- OR - I 


* 


ALL EVEN ADDRESSES CAN BE USED 


* 


0011 8E 






SET TO X3. 


* 


* 


10 


+ OR - 2 


* 


AS ADDRESS REGISTERS IN THE 


4c 


0100 98 








* 


4c 


11 


♦ OR - 2 


* 


FIELD DESIGNATED BY CONTROL WORD* 


0101 9A 






WHEN DIRECT ADDRESSING 


4c 


* 






* 


BITS 8, 9, 10, AND 11. 


* 


0110 9C 






AUXILIARY STORAGE, MO IS 


4c 


* 






4c 






4c 


0111 9E 






SET TO 00. 




* 






* 






* 


1000 A8 








* 


* 






♦ 






4c 


1001 AA 








* 


* 






* 






4c 


1010 AC 








4c 


* 






* 






* 


1011 AE 








4c 


* 






* 






4c 


1100 B8 








* 


* 






* 






4c 


1101 BA 








* 


* 






* 






4c 


1110 BC 








4c 


* 






* 






* 


1111 BE 








4c 



********************************************************************************************** 

SIGNIFICANCE CHART FOR THE STORAGE WORD (WORD TYPE 21 



*********************************** 
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******** ********* ** **************** ******** ****** ********* *********************************************************************** 

* WORD * FUNCTION * * * FUNCTION * WORD * 

* TYPE * OECOOE * A SOURCE FIELD * B SOURCE FIELD * DECODE * TYPE * 
********************************************************************************************************************************* 

* I * 2 3*4 5 6 7*8 9 10 11 * 12 13 14 * 15 * 
* **************************************************************************************************************** **************** 

















* 
* 
* 
* 
* 
* 
* 
* 

* 

* 
* 
* 
* 
* 
* 
♦ 
* 



0000 
OOOi 

ooto 

0011 
OiOO 
0101 

ono 

0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 

1111 



uo 

Ul 

vo 

VI 
GO 
Gl 
00 
01 
10 

II 

TO 

Ti 
PO 

PI 

HO 
HI 



* 


0000 


3B 


uo 


* 


0001 


s 


Ul 


* 


0010 


s 


vo 


* 


0011 


s 


VI 


* 


OiOO 


* 


GO 


* 


0101 


a 


Gl 


* 


0110 


= 


DO 


* 


0111 


as 


01 


* 


1000 


3B 


10 


* 


1001 


= 


11 


* 


1010 


55 


TO 


* 


1011 


3 


Tl 


* 


1100 


s 


PO 


* 


1101 


= 


PI 


* 


1110 


= 


HO 


* 


1111 


* 


Hi 


* 









THE FUNCTION OECODE IS A COMBINATION OF CONTROL WORD 
BITS 2,3,12,13, ANO 14. 



IF THE FUNCTION DECODE IS EQUAL TO 
AOORESSES AN EXTERNAL FACILITY, 

IF THE FUNCTION DECODE IS EQUAL TO 
AOORESSES AN EXTERNAL FACILITY. 



OOili, THE A- SOURCE FIELD 
01111, THE A-SOURCE FIELD 






* 
* 
* 
* 
* 
* 
* 
♦ 



THE SYMBOL -A- USED IN THE FUNCTION OECOOE FORMULAS, REFERS 
TO ANY OF THE LOCAL STORAGE SYMBOLS UNDER THE A-SOURCE FIELD. 

THE SYMBOL -B- USED IN THE FUNCTION DECODE FORMULAS, REFERS 
TO ANY OF THE LOCAL STORAGE SYMBOLS UNOER THE B-SOURCE FIELD* 

THE SYMBOL -C- REFERS TO THE ADDER CARRY i S3 LATCH) 



* 








* 


* 


* 


000 






* 1 


* 


* 


001 


- 


B=AXH ♦ BL 


* 


* 


* 


010 


- 


B=AXL,OR,BH 


* 


* 


* 


on 


- 




* 


* 


* 


100 


- 


B^A ♦ B 


* 


* 


* 


101 


- 


B=AH ♦ 8L . 


* 


* 


* 


110 


- 


B=AL *- BH 


* 


* 


* 

* 


111 


- 


EXT^B 


* 

— * 

* 


* 
* 
* 


* 


000 


— 


B=AX 


♦ 


001 


- 


B=AXH 


* 


* 


* 


010 


- 


B-AXL 


* 


* 


* 


Oil 


- 


8=0 CSTOP) 


* 


* 


* 


100 


- 


B=A 


* 


* 


* 


101 


- 


8=AH 


* 


* 


* 


110 


- 


B=AL 


♦ 


* 


* 


111 


- 


B=EXT 


* 


* 


* — 








— * 


* 


* 


000 


- 


A=A f OE,B 


* 


* 


* 


001 


- 


A=A ♦ B 


♦ 


* 


* 


010 


- 


A=A,OR,B 


* 


* 


* 


Oil 


- 


A-A,A,B 


* 


* 


* 


100 


- 


AC^A ♦ B*l 


* 


* 


* 


101 


- 


AC=*A ♦ B 


♦ 


* 


* 


no 


- 


AC=A *- B+C 


* 


* 


* 


111 


- 


AC=AL ♦ B+C 


* 

— * 
* 


* 

* 
* 


* 


000 


- 


A=A - B+l 


* 


001 


- 


A=A - B 


* 


* 


* 


010 






* 


* 


* 


Oil 


- 




* 


* 


* 


100 


- 


AC=A - B*C 


* 


* 


* 


101 


- 


AC=0 - 8+C 


* 


* 


* 


uo 


- 


A* A +- B+C 


* 


* 


* 


111 


- 


AC=A,D+- ,B*C 


* 


* 



********************************************************************************************************************************* 



BIT SIGNIFICANCE CHART FOR THE MOVE/ARITHMETIC WORD 



I WORD TYPE 31 
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* * ******************************************************** ******* **************************************************************** 

* WORD * * * * 

* TYPE * REPLACEMENT BITS FOR THE MO-REGISTER * REPLACEMENT BITS FOR THE MI-REGISTER * * 
************************* *** ************************************************************************************* **************** 

* 1 * 2 3 4 5 6 7*8 9 10 ii 12 13 14 * 15 * 
*************************** ************* ******* ************************************************************************ ********** 

* * * 
BITS 2 THRU T OF THIS CONTROL WORD CONTAIN * BITS 8 THRU 14 CONTAIN THE VALUES THAT ARE GATED TO * * 

THE VALUES THAT ARE GATED TO BITS 2 THRU 7 OF * BITS THRU 6 OF THE MI-REGISTER WHEN THIS WORD IS * * 

THE MO-REGISTER WHEN THIS WORD IS EXECUTED- * EXECUTED. * * 

* * * 

WhEN THIS WORD IS GATED INTC THE CONTROL * * * 

REGISTER, BIT 5 OF THE CONTROL REGISTER IS * * * 

FORCED TO A I. THE REPLACEMENT VALUE FOR THE * * * 

MO-REGISTER BIT 5 POSITION IS GATED FROM THE * * * 

STORAGE DATA BUS BIT 5 POSITION. * * * 

* * * 

* * * 
WHEN THIS WORD IS EXECUTED, THE ADDRESS OF THE NEXT SEQUENTIAL * * 

CONTROL WORD IS STORED IN THE I-REGISTER OF LOCAL STORAGE ZONE 4. * * 

********************************************************************************************************************************* 

BIT SIGNIFICANCE CHAR FOR THE BRANCH UNCONDITIONAL WORD (WORD TYPE 4) 



* 


* 


* 1 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 
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******** 

* WORD 

* TYPE 
******** 

* 1 
******** 

* 

* i 



************** 

* BRANCH 

* CONTROL 
************** 

* 2 

************** 

* 

00= 4 WAY 
01= 8 WAY 
10= 2 WAY 
(A SOURC 
NOT ZE 
il= 16 WA 



*********************************************** 

* * 

* A SOURCE FIELD * 
*********************************************** 

3*4 5 6 7*8 

*********************************************** 



BR, 

BR 

6R 
E 

RO) 
Y BR 



* 
BIT 5=0 MEANS STRAIGHT * 0=LS 

A-REG GATING* * 1=EXT 
BIT 5=1 MEANS CROSS * 
A-REG OUTPUT * 
_. * 

WHEN THIS CONTROL WORD IS READ * 
INTO THE CONTROL REGISTER, BIT 5 * 
IS FORCED TO I. THIS RESTRICTS * 
THE FACILITIES THAT CAN BE * 

ADDRESSED BY THE A-SOURCE FIELD * 
TO THOSE THAT HAVE AT LEAST BIT * 
5=1 IN THEIR A-SOURCE DECODES. * 

BECAUSE BIT 5 IS FORCED IN THE * 
CONTROL REGISTER, THE TRUE STATUS* 
OF BIT 5 IS TAKEN FRCM THE 
STORAGE DATA BUS OUT, FOR A-REG 
GATING. 



************************** 

* REPLACEMENT BITS FOR 

* MI-REGISTER 
************************** 

* 9 10 11 
************************** 

* BIT 9 CONTAINS THE 
REPLACEMENT VALUE FOR 
BIT 1 OF THE 

Mi-REGISTER. 



EITHER DECODE 
IN CONTROL 
STORAGE* 



OR 



0000 
0001 
0010 
0011 

1000 OR 

1001 OR 

1010 OR 

1011 OR 



OR 0100 
OR 0101 
OR 0110 
0111 
1100 
1101 
1110 

1111 



LOCAL 

STORAGE 

REGISTER 

GO 

Gl 
DO 
Dl 
PO 
PI 
HO 
HI 



EXTERNAL FACILITIES HAVE THE 
SAME ADDRESSING RESTRICTIONS. 



♦ 
* 
* 
* 
* 

♦ 

* 
* 
* 
* 
* 
* 
♦ 
* 
* 
* 



BIT 10 CONTAINS THE 
REPLACEMENT VALUE FOR 
BIT 2 OF THE Ml 
REGISTER. 

BIT 11 CONTAINS THE 
REPLACEMENT VALUE FOR 
BIT OF THE Mi 
REGISTER 



********************** 
REPLACEMENT BITS FOR 

MO-REGISTER. 
********************** 

12 13 14 

********************** 

BITS 12, 13, AND 14 
CONTAIN THE REPLACEME 
VALUES FOR BITS 5# 6 
AND 7 OF THE MO REG* 



* **************************************************************************************** ****************************** 



*******&** 

* WORD * 

* TYPE * 
********** 

* 15 * 
********** 

* * 

NT* 1 * 

* * 

* * 

* * 

* * 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

********** 



BIT SIGNIFICANCE CHART FOR BRANCH ON MASK WORD I WORD TYPE 5) 
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***************************************************************************** *****************^ 

* WORD * BIT * * * * WORD * 

* TYPE * CONTROL * A-SOURCE FIELD * * REPLACEMENT BITS FOR THE MI-REGISTER * TYPE * 
^*^^*#« ***************************************************************************************************************** ********* 

* 1 * 2 3*4 5 6 7*8*9 10 11 12 13 14 * 15 * 
*********** ***************************************** ************************ 

* * 
BITS 9— 14 CONTAIN THE REPLACEMENT VALUES * * 

FOR BITS 1~6 OF THE MI-REGISTER, * TEST * 

* FOR * 

* * 
* * 

* 1 * 

* TEST * 

* FOR * 

* 1 * 
* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
********************************************************************************************************************************* 

BIT SIGNIFICANCE CHART FOR BRANCH ON CONDITION WORD {WORD TYPE 6 OR 7! 



* 


* 












* 






* 


* 


* 1 


1 * 


00= 


BIT 





OR 


4 


* 


BI T 5^0 MEANS STRAIGHT 


* = LS 


* 


* 


* 


01= 


BIT 


1 


OR 


5 


* 


A-REG 


GATING. 


* i=EXT 


* 


* 


* 


10= 


BIT 


2 


OR 


6 


* 


BIT 5*1 MEANS CROSS 


* 


* 


* 


* 


11= 


BIT 


3 


OR 


7 


* 


A- REG i 


OUTPUT. 


* 


* 


* 


* 












* 






* 




* 














* 


WHEN THIS CONTROL WORD IS READ 


* 




♦ 














* 


INTO THE CONTROL 


REGISTER, BIT 5 


* 




* 














* 


IS FORCED TO I. 


THIS RESTRICTS 


* 




* 














* 


THE FACILITIES THAT CAN BE 


* 




* 














* 


ADDRESSED BY THE 


A-SOURCE FIELD 


* 




* 














* 


TO THOSE THAT HAVE AT LEAST BIT 


* 




* 














* 


5=1 IN THEIR A-SOURCE DECODES. 


* 




* 














* 


BECAUSE BIT 5 


IS FORCED IN THE 


* 




* 














* 


CONTROL REGISTER 


, THE TRUE STATUS* 




* 














* 


OF BIT 5 IS TAKEN FROM THE 


* 




* 














* 


STORAGE DATA BUS 


OUT, FOR A-REG 


* 




* 














* 


GATING* 




* 




* 














* 






* 




* 














* 


EITHER DECODE 


LOCAL 


* 




* 














* 


IN CONTROL 


STORAGE 


* 




* 

* 














* 
* 


STORAGE 


REGISTER 


* 
* 




* 














* 


GOOD OR 0100 


GO 


* 




* 














* 


0001 OR 0101 


Gl 


* 




* 














* 


0010 OR 0110 


DO 


* 




* . 














* 


0011 OR 0111 


Dl 


* 




* 














* 


1000 OR 1100 


PO 


* 




* 














* 


1001 OR 1101 


PI 


* 




* 














* 


1010 OR 1110 


HO 


* 




* 














* 


1011 OR 1111 


Hi 


* 




* 














* 






* 




* 














* 


EXTERNAL FACILITIES HAVE THE 


* 




* 














* 


SAME ADDRESSING 


RESTRICTIONS. 


* 




* 














* 






* 





ALDP — CONSOLE PRINTER-KEYBOARD ALTER/DISPLAY 
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ADDITIONAL INFORMATION REFERENCE — 
FEMDM DIAGRAMS 5-77 THROUGH 5-79 

INSCRIPTION 

THIS ROUTINE ALLOWS MANUAL 1052 ALTER OR DISPLAY OF 
AUXILIARY STORAGE, CONTROL STORAGE, AND PROGRAM STORAGE. 
ANY NUMBER OF BYTES CAN BE ALTERED* DISPLAYING, HOWEVER, 
IS ALWAYS IN MULTIPLES OF EIGHT BYTES. 

WHEN THE 'PROCEED* LIGHT COMES ON AFTER PRESSING THE 
PR-KB ALTER DISPLAY BUTTON, TYPE THE FIRST TWO CHARACTERS 
AS FOLLOWS — 

1ST CHARACTER — A OR D 
A = ALTER 
D = DISPLAY 
2ND CHARACTER — A , C , OR P 
A = AUXILIARY STORAGE 
C = CONTROL STORAGE - 
P = PROGRAM STORAGE 



CE MODE ONLY 



AFTER THE FIRST TWO CHARACTERS, TYPE A FOUR-HEX-DIGIT 
ADDRESS. THE ROUTINE THEN FORCES A LINE FEED. IF THE 
OPERATION IS ALTER, THE ROUTINE WAITS FOR THE OPERATOR 
TO TYPE IN THE DATA TO BE ALTERED. IF THE OPERATION IS 
DISPLAY, THE ROUTINE STARTS RIGHT AFTER THE LINE FEED, 
TYPING OUT THE FIRST EIGHT BYTES OF DATA THEN COMING TO 
A HALT. IF THE DISPLAY OF MORE DATA IS DESIRED, THE 
OPERATOR CAN PRESS THE 'SPACE • BAR, AND THE NEXT EIGHT 
SEQUENTIAL BYTES WILL BE DISPLAYED. EITHER OPERATION, 
ALTER OR DISPLAY, SHOULD BE TERMINATED BY AN FOB. 



DESCRIPTION CONTINUED 

AT ANY POINT DURING THE PROCESS, THE OPERATOR CAN PRESS 
THE 'CANCEL* KEY TO TERMINATE THE OPERATION EXCEPT WHILE. 
DATA IS BEING TYPED FOR A DISPLAY OPERATION IN WHICH CASE 
THE KEYBOARD IS LOCKED. WHEN A *CANCEL' IS ENCOUNTERED, 
THE OPERATION RETURNS TO THE BEGINNING OF THE ROUTINE 
GIVING THE OPERATOR A CHANCE TO TRY AGAIN* 

EXCEPT THE FIRST TWO CHARACTERS, ALL THE OTHERS SHOULD 
BE HEX DIGITS ONLY- BOTH UPPER OR LOWER CASE ARE ALLOWED 
FOR ALPHABETICAL CHARACTERS. THE FOLLOWING CONDITIONS 
ARE RECOGNIZED AS ERRORS. 

1. A NON-FEX DIGIT TYPED ON THE KEYBOARD. 

2. FIRST CHARACTER OTHER THAN A OR C. 

3. SECONO CHARACTER OTHER THAN A t C, OR P. THE C IS 
VALID ONLY IN CE MODE. 

4. INVALID STORAGE ADDRESS. 

THE ROUTINE SENDS A MESSAGE OF 'INVALID CHAR' OR 
•INVALID ADDR', THEN RETURNS TO THE BEGINNING TO GIVE 
THE OPERATOR ANOTHER TRY* 

THIS ROUTINE PROVIDES OFFSETTING WHEN THE ADDRESS IS 
000. 

WHEN ONE PASS OF THE OPERATION I S COMPLETED, THE 
ROUTINE ALWAYS GOES BACK TO THE BEGINNING. THUS, THE 
OPERATOR CAN DO ADDITIONAL ALTER OR DISPLAY OPERATIONS 
WITHOUT PRESSING THE ALTER-OI SPLAY BUTTON AGAIN, OR 
CAN PRESS THE » START' BUTTON ON THE CONSOLE IF HE WISHES 
TO GO BACK TO THE INTERRUPTED CPU PROCESS. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



ALDP 


001 


T 


ALDP 


002 


♦ 


ALDP 


003 


* 


ALDP 


004 


* 


ALDP 


005 


♦ 


ALDP 


006 


* 


ALDP 


007 


♦ 


ALDP 


008 


* 


ALDP 


009 


* 


ALDP 


010 


* 


ALDP 


Oil 


* 


ALDP 


012 


* 


ALDP 


013 


* 



1052 DOCUMENTARY ALTER DISPLAY R. C. HUANG 10/24/67 

THE WORD LABELED AS 'DOIT' IN BCPL ROUTINE WITH FIXED CONTROL STORAGE 
ADDRESS OF 03BC VARIES ACCORDING TO THE TYPE OF ALDP OPERATION - 



A A - ALTER AUX. 

AC - ALTER CONTROL 

AP - ALTER PROGRAM 

DA - DISPLAY AUX. 

DC - DISPLAY CONTROL 

DP - DISPLAY PROGRAM 



THE REGISTER USAGES IN THIS ROUTINE ARE 
U0,U1 - ADDRESS 



STB Hi AS,U*l - 7F08 

STB HI CS,U+1 - 6F08 

STB HI U+l - 7F18 

RDH H AS,U«-2 - 5E08 

RDH H CS,U*2 - 4E08 

RDH H U+2 - 5E18 



AOOR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 
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161C 
161E 
1620 
1622 
1624 
1626 
1628 
162A 
162C 
U2E 
1630 
L632 
1634 
lo36 
1638 
163A 
lo3C 
163E 
lb 40 
1642 
1d44 
1646 
1648 
lo4A 
164C 
164E 
lb50 



26A3 
2783 
873C 
8744 
3643 
0431) 
ECC3 
673C 
24B3 
2577 
534A 
874E 
0131 
D010 
7543 
F530 
24F3 
F330 
9638 
044B 
FOCF 
0418 
FOAA 
3625 
3613 
8746 
3645 



ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 



014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
02 7 
028 

02 9 
030 
031 
032 
033 
034 
035 
036 

03 7 
03 8 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
05 7 
058 
059 
060 
061 
062 
063 
064 
065 
066 



* 
* 

* 
* 

ASEQ AL07=1C 

START 



BADCHR 
BADADR 

ROMORE 



CHGROW 



I S3 X 



AORD 



182 
187 



041 
182 



193 
032 
022 



032 
036 

047 

029 



VO - COUNTER OF NUMBER OF HALF WORDS 

VI - OUTPUT DATA 

GO - INPUT DATA 

Gl - COLUMN COUNTER 

DOtDl - CONTROL WORD AND FLAGS 

HO, HI - DATA 



LINEFD 
REQCH1 



IS3X 
LINEFD 



TYPCHR 
RDMORE 
ST ART 



032 RDMORE 



RDMORE 
CHGROW 

AORO 
BAOCHR 



188 READCH 



00=0$KOA 

D1=0SK08 

BAL 

BAL 

DO=DO$K04 

Z=G0nK30 

BR IF HZ=0 

BAL 

GO=0$KOB 

G1=0$K77 

ROB VI AStG-1 

BAL 

BR IF Gi BIT5=1 

8R IF GO BIT5=1 

G1=G1-G0 

BR IF Gl BIT3=0 

GO=0$KOF 

BR IF 01 BIT7=0 

BR 

Z=G0aK04 

BR IF LZ=0 

Z=G0nK0 1 

BR IF LZNZ 

D0=D0$K20 

00= 00$ KOI 

PAL 

00= 00 $K 40 



SET ALLOW START KEY FLAG 

DEFINE AOOR TO BE IN U REG'S 

LINE FEED 

READ 1ST CHARACTER 

OISABLE START KEY 

MASK 3X IN PTT CODE 

BR IF 1ST CH. IS 3X 

INVALID CHARACTER MESSAGE 

NEGATIVE G0=F4 

SET G=0B77 TO AOOR MESSAGE 

READ OUT MESSAGE FROM AUX. 

TYPE MESSAGE OUT 

BR IF NOT TO CHANGE ROW 

BR IF MESSAGE COMPLETEO 

CHANGE ROW BY ADDING F4 OR FO 

BR IF TO PRINT 2ND OR 4TH ROW 

NEGATIVE GO=FO, £ SET DONE FLAG 

BR IF TO PRINT 'CHAR* 

GO TO SUBTRACT ONE ROW 

MASK FOR •O 1 - DISPLAY 

BR IF 1ST CH. IS f 0« 

MASK FOR f A« - ALTER 

BR IF 1ST CH. IS NOT «A» 

MAKE UP CONTROL WORD FOR ALTER 

D0=2F 

READ 2N0 CHARACTER 

D0=4E FOR OSPLY, D0=6F FOR ALTER 



D REG'S ARE USED HERE TO SET UP T 
ARE ALSO USED IN THIS ROUTINE AS 
BIT IS AS FOLLOWS - 
DO BIT - EXPECTING EOB IN f REA 

1 - CHAR, REAO REQUIRES P 

2 - OPERATION IS ALTER 

3 - OPERATION IS IN AUX 

4 - NOT FROM • READCH* BAL 

5 - OISABLE 'START 1 KEY I 

6 - VALID CHARACTER IN »R 

7 - NOT USED, 1 FOR ALTER 
Dl BIT - ODO ADDRESS 

1 - LOOPING CONTROL 1 

2 - LOOPING CONTROL 2 

3 - OPERATION IS IN PROGR 

4 - THE OPERATION IS NOT 

INSTRUCTION ADDRESS 



HE VARIABLE CONTROL WORD, THEY 
FLAGS. THE USAGE OF EACH FLAG 

DCH' BAL ROUTINE 

ACKING IN *READCH* BAL ROUTINE 

R PROGRAM STORAGE - NOT CONTROL 

ROUTINE 
N THE SOFT STOP LOOP - 8SWI 
EADCH f BAL ROUTINE 
, FOR DISPLAY 



AM STORAGE 

FROM «BSTP« ROUTINE FOR 
TYPE OUT NOR LOG-OUT 



4 DDK 


WORD 


SEQUENCE NO. 


LAdEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






ALOP 


067 


* 




5 


- 16TH CHARACTEI 






ALOP 


068 


* 




6 


- LOG OUT ?m Mi 






ALDP 


069 


* 




7 


- TO PRINT THE ! 






ALOP 


070 


* 








1652 


042D 


ALOP 


071 








Z=GOOK20 


1654 


EODC 


ALOP 


072 




076 


HINGT2 


BR IF HZNZ 


1656 


3715 


ALDP 


073 








Di=Dl$K10 


1658 


04 7B 


ALDP 


074 








Z=G0aK07 


165A 


9668 


ALDP 


075 




082 


BRBAO 


BR 


165C 


043F 


ALDP 


076 


HIN0T2 






Z^G0nK33 


1656 


EOAA 


ALDP 


077 




029 


BADCHR 


BR IF HZNZ 


1660 


F0E6 


ALDP 


078 




081 


POSAUX 


BR IF LZNZ 


1662 


E66C 


ALOP 


079 




084 


ALLSET 


BR IF DO 8IT2=0 


16 64 


C9E0 


ALOP 


080 




084 


ALLSET 


BR IF TO BIT4=1 


lo66 


041B 


ALDP 


081 


POSAUX 






Z=G0QK01 


1668 


FOAA 


ALDP 


082 


BRBAD 


029 


BADCHR 


BR IF LZNZ 


166A 


3615 


ALDP 


083 








DO^OOSKIO 


16 6C 


6662 


ALDP 


084 


ALLSET 






STH DC9C 


1666 


874C 


ALOP 


085 




192 


SPACE 


BAL 


1670 


8746 


ALOP 


086 




183 


RE AOCH 


BAL 


1672 


5403 


ALOP 


087 








UO=GOXH 


1674 


6746 


ALDP 


088 




188 


READCH 


BAL 


1676 


440D 


ALDP 


089 








UG=GOL«-U0H 


lo78 


8 74 6 


ALOP 


090 




188 


READCH 


BAL 


167A 


5413 


ALOP 


091 








U1^=G0XH 


lo7C 


8746 


ALDP 


092 




188 


RE AOCH 


SAL 


16 7E 


4410 


ALDP 


093 








U1=G0LH)1H 


1680 


873C 


ALOP 


094 




182 


LINEFO 


BAL 


lo82 


FOCA 


ALDP 


095 




099 


HWDCNT 


BR IF GO BIT7=0 


io84 


874C 


ALDP 


096 




192 


SPACE 


BAL 


lo86 


874C 


ALDP 


097 




192 


SPACE 


BAL 


1688 


17A0 


ALDP 


098 








Dl^DiaKAO 


io8A 


llhl 


ALDP 


099 


H WOC NT 






V0=0SK04 


168C 


2515 


ALDP 


100 


COLCNT 






G1=0$K10 


lo8E 


F7 37 


ALOP 


104 


GNEMOft 


148 


PRQGRM 


BR IF Di BIT3=i 


16S0 


F61B 


ALDP 


108 




117 


EXPEOB 


BR IF DO BIT3=1 


i692 


COG 9 


ALDP 


112 








Z=UO*KCO 


16 94 


F49A 


ALDP 


114 


AOORC K 


117 


EXPEOB 


BR IF AC=0 


lo96 


3713 


ALDP 


115 


AOftCHK 






Di=Dl$KOi 


1698 


S62C 


ALDP 


116 




030 


BADADR 


BR 


169A 


3685 


ALDP 


117 


fc XPEOB 






D0=D0$K80 


169C 


E6 3A 


ALDP 


118 




152 


DISPLY 


QR IF DO BIT2=0 


169£ 


8746 


ALOP 


1L9 




188 


READCH 


BAL 


16A0 


54F3 


ALDP 


120 








H1=G0XH 


16A2 


8746 


ALDP 


121 




188 


READCH 


BAL 


loA4 


44F0 


ALDP 


122 








HI=G0L*H1H 


16A6 


1720 


ALOP 


123 








Di=DlaK20 


I6A8 


839C 


ALDP 


124 




BCHK 104 


DOIT 


BAL 


16AA 


E70F 


ALOP 


125 




104 


ONEMOR 


BR IF Dl BIT 2=1 


16AC 


874C 


ALOP 


126 


GQSPCE 


192 


SPACE 


BAL 


16AE 


25FF 


ALDP 


127 


OECONT 






G1=G1 *KFF 


16B0 


C48E 


ALDP 


128 




104 


ONEMOR 


BR IF ZNZ 


16B2 


873C 


ALOP 


129 




182 


LINEFO 


BAL 



** 
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COMMENTS 



MASK 2ND CHAR FOR 2X IN PTT CODE 
BR IF NOT 2X 

SET CONTROL WORD FOR PROG. STORE 
MASK FOR f P« ~ 27 
GO TO CHECK ON «7» 
MASK 2ND CH. FOR C133J OR AI31) 
BR IF NOT 3X - INVALID 2ND CHAR 
BR IF POSSIBLE AUX STORAGE 
2NC CHAR IS *C«, BR IF DSPY CTRL 
ALTER CTRL, BR IF IN CE MODE 
MASK FOR At 31) - AUX STORAGE 
BR IF 2ND CH. NOT P<27) OR AI31) 
SET CTRL WORD FOR 
STORE THE CTRL WO IN 
FORCE A SPACE 
READ THE 1ST ADOR HEX DIGIT 

HIGH 

ADDR HEX DIGIT 

LOW 

ADDR HEX DIGIT 

HIGH 

ADDR HEX DIGIT 

LOW 

FEED 
EVEN 



PAGE 18 



AUX OR PROG 
•D0ITM039C) 



PUT IT IN UO 

READ THE 2ND 

PUT IT IN UO 

READ THE 3R0 

PUT IT IN Ul 

READ THE 4TH 

PUT IT IN Ul 

FORCE A LINE 

BR IF ADDR IS 

ADOR IS ODD, OFFSET BY 

ONE BYTE 
FLIP LOOP CTRL £ ODD ADDR FLAGS 
SET COUNTER TO 4 HW«S 
SET COLUMN COUNT TO 16 
BR IF PROG STORAGE 

48K f BR IF AUX, ALL MODULE VALID 
MASK FOR ADDR HIGHER THAN 3FFF 
BR IF ADDR VALID 
TO TYPE 'INVALID ADDR* 
ADDR OUT OF BOUNDARY 
SET 'EXPECTING EOB f FLAG 
BR IF DISPLAY 
ALTER, READ 1ST HEX 
PUT IT IN Hi HIGH 
READ 2ND H^X 
PUT IT IN Hi LOW 
INVERT LOOPING CONTROL FLAG 
STORE THE BYTE 
BR IF NO SPACING REQUIRED 
FORCE A SPACE 

DECREMENT COLUMN COUNT BY ONE 
BR IF NOT 16 COLUMNS YET 
END OF ONE LINE, FORCE LINE FEED 



AbDR 


WORD 


SEQUENCE NO, 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


1684 


S68C 


ALOP 


130 




100 


COLCNT 


BR 


luB6 


0049 


ALOP 


148 


PROGRM 






Z=U0*K40 **' 


lob8 


$694 


ALOP 


150 




114 


AODRCK 


BR 


loBA 


839C 


ALDP 


152 


DISPLY 


BCHK 104 


DOIT 


BAL 


ibBC 


1645 


ALOP 


153 








DO=DO*~K40 


l&BE 


C744 


ALOP 


154 




157 


ENTRY 


BR IF 01 BITO=0 


LoCO 


1785 


ALCP 


155 








D1=D1*-K8Q 


loC2 


5FE9 


ALOP 


156 


scbyte 






HG = Hl 


1qC4 


5E35 


ALOP 


157 


ENTRY 






V1=HGXL 


I0C6 


23FQ 


ALOP 


158 


SECHEX 






V1=V1*KF0 


U>C8 


0361 


ALOP 


159 








Z=V1«-K06 


loCA 


F400 


ALOP 


160 




163 


DONUPK 


BR IF AC=0 


i >CC 


2 3 7B 


ALOP 


161 








V1=V1+K07 


16CE 


23CO 


ALOP 


162 








V1=V1*KC0 


Lb 00 


874E 


ALOP 


163 


DONUPK 


193 


TYPCHR 


BAL 


UU2 


7 56 


ALOP 


164 




168 


D0NE1 


8R IF Dl BIT 1=1 


lbD4 


5E30 


ALOP 


165 








Vl^HOL 


I 60 6 


1760 


ALOP 


166 








DUD1QK60 


I0O8 


96C6 


ALOP 


167 




158 


SECHEX 


BR 


160A 


1740 


ALOP 


168 


DGNE1 






Dl = Dl£iK4Q 


16DC 


E743 


ALOP 


169 




156 


SCBYTE 


BR IF 01 B!T2=1 


16DE 


22FF 


ALOP 


170 








VO^VO*KFF 


16E0 


C4AC 


ALOP 


171 




126 


GOSPCE 


BR IF ZNZ 


16E2 


3743 


ALOP 


172 








Dl=Dl$KG4 


loE4 


874E 


ALOP 


173 




193 


TYPCHR 


BAL 


ioE6 


1743 


ALDP 


174 








Di=Dl*-K04 


16E8 


C36F 


ALOP 


175 




178 


NOBSTP 


BR IF 01 BIT4^1 


16EA 


873C 


ALOP 


176 




182 


LINEFD 


BAL 


L6EC 


8752 


ALOP 


177 




195 


NOGO 


BR 


16EE 


2243 


ALOP 


178 


NUB SIP 






V0=0$K04 


loFO 


8744 


ALOP 


179 




187 


REDCHI 


BAL =i 


15F2 


96AE 


ALOP 

ALDP 


180 
181 


AEND 


127 


DECONT 


BR 


7 3C 


2315 


ALOP 


182 


LINEFD 






V1=0$K10 


073E 


3353 


ALOP 


183 








Vi=Vl$K05 


0740 


3F00 


ALDP 


184 








SET TA K=80 


0742 


C4CE 


ALOP 
ALOP 


185 
186 




193 


TYPCHR 


BR IF ZNZ 


0744 


2F20 


ALOP 


187 


REDCHi 






SET TA K=02 


0746 


3F02 


ALDP 


188 


REAOCH 






SET TA K=90 


0748 


1683 


ALOP 


189 








DG=D0*-K0 8 


074A 


C400 


ALDP 
ALOP 


190 
191 




194 


INTVCK 


BR IF ZNZ 


074C 


2345 


ALOP 


192 


SPACE 






Vi=Q$K40 


074E 


2F0A 


ALOP 


193 


TYPCHR 






SET TA K=50 


0750 


EEA2 


ALOP 


194 


INTVCK 


203 


STRADR 


BR IF TT BIT2^0 


0752 


1F2A 


ALOP 


195 


NOGO 






RST TA K-D2 


0754 


E31A 


ALOP 


196 




199 


AOOED 


BR IF Dl BIT6=0 


0756 


FA9B 


ALOP 


197 




199 


AODED 


BR IF TT BIT7=1 


0758 


BC02 


ALOP 


198 




BCHK 064 


ENTRY 


BR 


071A 


2400 


ALDP 


199 


AODED 






SET MQOE K*OQ 


07iC 


AAAF 


ALDP 


200 




202 


NOMCK N 


BR IF MO=NZ 


071E 


0610 


ALOP 


201 








RST BC K=Oi 



CL0AD=*E60, EC LEVEL^1282il 
COMMENTS 

GO TO RESTORE COL. COUNTER 
**48K, MASK FOR PROG AOOR HIGHER THAN B 

READ HALFWORD 

ALLOW ANY CHAR FOR «SPACE f 

BR IF AODR IS EVEN 

000 AOOR, RST ODD AODR FLAG 

MOVE IN THE OTHER (OOD) BYTE 

MOVE HIGH HEX DIGIT INTO VI 

UNPACK HEX TO EBCDIC, ADO FO 

TEST FOR DIGIT HIGHER THAN 9 

BR IF DIGIT I S THRU 9 

DIGIT IS A THRU F, CHANGE 

IT TO CI THRU C6 
TYPE IT OUT 

BR IF DONE ONE BYTE,LOOPING CTRL 
MOVE IN L0WC2N0 OR 4THLHEX DIGIT 
INVERT LOOPING CONTROL BITS 
GO TYPE THE 2N0 OR 4TH HEX DIGIT 
INVERT LOOPING CONTROL 1 
BR IF JUST FINISHED 1ST BYTE 
DECREMENT THE 4 HW COUNT BY 1 
BR IF COUNTER NOT ZERO YET 
SET 16 TH CHAR FLAG 
GO TO TYPE OUT THE LAST CHAR 
RST THE 16TH CHAR FLAG 
BR IF NOT BSTP NOR LOGOUT 
FORCE A LINE FEEO 
DONE INST. STEP OR LOG OUT 
RESTORE HW COUNTER TO 4 
**DONE 8 BYTES, GO GET EOB OR ANY CHAR 
NOT EOB, DISPLAY 8 MORE BYTES 



LINE FEEO SUBROUTINE 
SET VI TO LINE FEED CHARACTER 
ALLOW KEYBOARD RESTORE 
UNCONDITIONAL BR 

STRING BREAKER 
INITIALIZE PRINTER 
SET READ LATCH, & ALDP ACTIVE 
SET READ CHAR SUBROUTINE FLAG 
UNCONDITIONAL BR 

STRING BREAKER 
SPACE SUBROUTINE, Vi^BLANK 
TYPE CHAR ROUTINE, SET WRITE LTH 
BR IF NO INTERVENTION REQUIRED 
RST RD, WT, ACTIVE & SHARE 
BR IF NORMAL ALDP 
BR IF LOGOUT LATCH ON 
CK SUM LOGOUT DONE 
SET CPU MODE TO BR ON MC REG 
BR IF LOGOUT TO BE DONE YET 
RST LOGOUT LATCH 
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A DDR 


WORD 


SEQUENCE NO* 


LA8EL 


NEXTSEQ 


NEXTLABE 


L STATEMENT 


0720 


AAA2 


ALOP 


202 


NOMCK 


BSWI 066 


RESTRH 


BR 


7 22 


3BE9 


At OP 


203 


STRADR 






Tl=0-KEO 


0724 


76AA 


ALOP 


204 








STH D AS,T-2 


0726 


72AA 


ALOP 


205 








STH V AS,T-2 


0728 


74AA 


ALOP 


206 








STH G AS,T-2 


072A 


70A0 


ALOP 


207 








STH U AS,T+0 


7 2C 


2B20 


ALOP 


208 








T1 = T1*-K20 


0/2E 


7EA0 


ALOP 


209 








STH H AS,T*0 


0730 


2440 


ALOP 


210 








SET MODE K=04 


7 32 


7872 


ALOP 


211 








STH 1 GA,9E 


7 34 


2400 


ALOP 


212 


RESET 






SET MODE K=00 


0736 


E33B 


ALOP 


213 




215 


GOBSWl 


BR IF 01 BIT6=l 


0738 


16C0 


ALOP 


214 








RST BC K=80 


073A 


AAA2 


ALOP 


215 


GOBSWI 


BSWI 066 


RESTRH 


dR 


26B8 


3BE9 


ALOP 


216 


RFTYP 






T1=0-KE0 


26BA 


56AA 


ALOP 


217 








RDH D AS,T-2 


26BC 


52AA 


ALOP 


218 








ROH V AStT-2 


26BE 


54AA 


ALOP 


219 








RDH G AS,T-2 


2oC0 


42AF 


ALOP 


220 








STPO=TO 


26C2 


C218 


ALOP 


221 




232 


RDCHRT 


BR IF 00 B1T4=0 


Z6C4 


0349 


ALOP 


222 




224 


BAKMOO 


BR IF 01 8 IT 5=1 


26C6 


4F3F 


ALOP 


223 








TE=V1 


26C8 


2440 


ALOP 


224 


BAKMOO 






SET MODE K=04 


26CA 


5872 


ALOP 


225 








RDH I 0A,9E 


26CC 


2404 


ALOP 


226 








SET MODE K=20 


26CE 


50A0 


ALOP 


227 








ROH U AS,T+0 


26D0 


2B2D 


ALOP 


228 








T1=T1*K20 


2602 


5EA0 


ALOP 


229 








RDH H AS,T*0 


26D4 


LF28 


ALOP 


230 








RST TA K=C2 


26D6 


128E 


ALOP 


231 








RTN 


2698 


5A4F 


ALOP 


232 


RDCHRT 






G0 = TI 


2fc9A 


3683 


ALOP 


233 








00=00$K08 


2b9C 


CAAF 


ALOP 


234 




243 


RSTLCH 


BR IF TT BIT4=i 


269E 


14C5 


ALDP 


235 








G0=G0*-KC0 


2oA0 


0AB2 


ALOP 


236 




245 


NOEOBC 


BR IF TT BIT5=0 


26A2 


04AB 


ALDP 


237 








Z=G0aK0A 


26A4 


C4AF 


ALDP 


23 8 




243 


RSTLCH 


BR IF 2=0 


26A6 


1623 


ALDP 


239 








00=DO*-K02 


26A8 


045B 


ALDP 


240 








Z=G0aKO5 


2t>AA 


C4B2 


ALOP 


241 




245 


NOEOBC 


BR IF 2NZ 


26AC 


C632 


ALDP 


242 




245 


NOEOBC 


BR IF DO BlTO=0 


26AE 


IF28 


ALDP 


243 


RSTLCH 






RST TA K=C2 


26B0 


961C 


ALDP 


244 




022 


START 


BR 


2t>B2 


B17A 


ALOP 


245 


NUEOBC 


OY PE 231 


STTRSL 


BAL 


26B4 


E201 


ALOP 


246 




248 


NOIVLD 


BR IF DO 8IT6=1 


26B6 


962A 


ALOP 


247 


GOBAO 


029 


BAOC HR 


BR 


2680 


0648 


ALOP 


248 


NOIVLD 


224 


BAKMOO 


BR IF 00 BIT 1=0 


2682 


OFFO 


ALOP 


249 








Z=H1QKF0 


2684 


E095 


ALOP 


250 




258 


OONPCK 


BR IF HZ=0 


2686 


1FC0 


ALOP 


251 








Hl=HlaKCO 


2688 


EC8F 


ALOP 


252 




255 


ALPHA 


BR IF HZ=0 


2&8A 


IF 40 


ALDP 


2 53 








Hi=HlaK40 


268C 


E0B6 


ALDP 


2 54 




247 


GOBAO 


8R IF HZNZ 



CLGAD=*E60, EC LEVEL=t2821l 

COMMENTS 

GO TO SOFT STOP 
T=C01F 

STORE 0(CTRL WORD OR FLAGS) 1E-1F 
VtHW COUNT t WRITE DATA) IN 1C-1D 
STORE G ICQLLUMN COUNT) IN 1A-IB 
STORE UCAODR REG«S) IN 0018-0019 
T=C039 

STORE HiDATA REG'S) IN 0038-0039 
SET TQ BACK UP ZONE 
STORE THE BAL RETURN AODR IN K-7 
SET TO CPU MODE 6 ZONE 
BR IF FROM *BMCK« ROUTINE 
SET SOFT STOP LATCH 
GO TO SOFT STOP 
T=C01F 

RESTORE D(CTRL WORD OR FLAGS) 
♦♦RESTORE V(HW COUNTER £ WRITE OATA) 
RESTORE GICQL* COUNT! 
DISABLE STORAGE PROTECT 
BR IF IT WAS FROM «RE ADCH* 
BR IF IT WAS THE 16TH CHAR 
SEND CHAR TO BUS OUT 
SET TO BACK UP MODE 
RESTORE BAL RETURN ADDR 
SET BACK TO 1052 MODE 
RESTORE UIADDR REG«S) 
T=C039 

RESTORE HIDATA REG»S) 
RST READ, WRITE LATCH, SHARE RE Q 

GET CHAR* FROM BUS IN 

RST «R£ADCH« BAL ROUTINE FLAG 

BR IF KEY BOARD CK 

ALLOW BOTH UPPER & tOWER CASES 

BR IF NOT ALTERNATE COOE 

MASK FOR 'CANCEL* 

8R IF 'CANCEL • 

SET INVALID CHAR- FLAG 

MASK FOR EOB 

BR IF NOT EOB 

BR IF NOT EXPECTING EOB 

RST READ, WRITE LATCH, SHARE REQ 

RESTART ANOTHER PASS 

GO TO X f LATE CHAR IN HI 

BR IF INVALID CH. FLAG I S NOT ON 

CHAR* TYPED IS INVALID 

BR IF PACKING IS NOT REQUIRED 

MASK FOR NUMERIC 

BR IF CH. IS NUMERIC 

INVERT HIGH TWO BITS 

BR IF CX 

MASK FOR 8X 

BR IF CHAR IS NOT CX NOR 8X 
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ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



AbHk 


F0B7 


ALDP 


255 


ALPHA 


247 


GOBAD 


BR IF LZ=0 


2690 


2F9B 


ALDP 


256 








H1=HH-K09 


2692 


E0B6 


ALDP 


257 




247 


GOBAD 


BR IF HINl 


2694 


5F4D 


ALDP 


258 


DQNPCK 






G0=H1L 


2696 


A6C8 


ALDP 


259 




224 


BAKMOD 


BR 






ALDP 


260 


ATABLE 


A0DR=0044 






0044 


D9C4 


ALDP 
ALDP 


26 L 
262 


C 

AEND 






CAUX* RDDA* 






ALDP 


263 


ATABLE 


AODR=0054 






0054 


C9C I 


ALDP 

ALDP 


264 
265 


C 

AEND 






CAUX* RAHC* 






ALDP 


266 


ATABLE 


ADDR=0064 






0064 


40C4 


ALDP 
ALDP 


267 

268 


C 
AEND 






CAUX« OIL* 






ALDP 


269 


ATABLE 


ADDR=0074 






0074 


C1E5 


ALDP 
ALDP 


270 
271 


C 
AEND 






CAUX* AVNP 



CL0AD=*E60, EC LEVEL=1282 11 
COMMENTS 

BR IF CHAR IS CO OR 80 - INVALID 

ADJUST 

BR IF CH. I S NOT A THRU F 

DONE PACKING 
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********************************** 

* CROSS REFERENCE FOR CSECT ALDP * 
********************************** 



ALDP 


022 


ALDP 


035 


ALDP 


244 


DYPE 


019 








ALDP 


029 


ALDP 


044 


ALDP 


077 


ALDP 


082 


ALDP 


247 




ALDP 


030 


ALDP 


116 
















ALDP 


032 


ALDP 


034 


ALDP 


037 


ALDP 


039 








ALDP 


036 


ALDP 


040 
















ALDP 


041 


ALDP 


028 
















ALDP 


047 


ALDP 


042 
















ALDP 


076 


ALDP 


072 
















MOP 


081 


ALDP 


078 
















ALDP 


082 


ALDP 


C75 
















ALDP 


084 


ALDP 


079 


ALDP 


080 












ALDP 


099 


ALDP 


095 


BCHK 


063 












ALDP 


100 


ALDP 


130 


BMCK 


088 












AlDP 


104 


ALDP 


125 


ALDP 


128 












ALDP 


114 


ALDP 


150 
















ALDP 


117 


ALDP 


1C8 


ALDP 


114 












ALDP 


126 


ALDP 


171 
















ALDP 


127 


ALDP 


180 
















ALDP 


148 


ALDP 


1C4 
















ALDP 


152 


ALDP 


118 
















ALDP 


156 


ALDP 


169 
















ALDP 


157 


ALDP 


154 


BSTP 


019 












ALDP 


158 


ALDP 


167 
















ALDP 


163 


ALDP 


160 
















ALDP 


168 


ALDP 


164 
















ALDP 


178 


ALDP 


17 5 
















ALDP 


182 


ALDP 


024 


ALDP 


029 


ALDP 


094 


ALDP 


129 ALDP 176 BMCK 087 




ALDP 


187 


ALDP 


02 5 


ALDP 


179 












ALDP 


188 


ALDP 


047 


ALDP 


086 


ALDP 


088 


ALDP 


090 ALDP 092 ALDP 119 ALDP 121 


AL CP 


192 


ALDP 


0£5 


ALDP 


096 


ALDP 


097 


ALDP 


126 




ALDP 


193 


ALDP 


03 3 


ALDP 


163 


ALDP 


173 


ALDP 


185 




ALDP 


194 


ALDP 


190 
















ALDP 


195 


ALDP 


177 
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********************************** 

* CROSS REFERENCE FOR CSECT ALDP * 
********************************** 



ALDP 


199 


ALDP 


196 


ALDP 


197 






ALOP 


202 


ALDP 


200 










ALDP 


203 


ALDP 


194 










ALDP 


212 


BSWI 


125 










ALOP 


215 


ALDP 


213 










ALDP 


216 


DYPE 


020 










ALDP 


224 


ALDP 


222 


ALOP 


248 


ALDP 


259 


ALDP 


232 


ALDP 


221 










ALDP 


243 


ALDP 


234 


ALDP 


238 






ALOP 


245 


ALDP 


236 


ALDP 


241 


ALOP 


242 


ALDP 


247 


ALDP 


254 


ALDP 


255 


ALDP 


257 


ALDP 


248 


ALDP 


246 










ALDP 


255 


ALDP 


2 52 










ALDP 


258 


ALDP 


250 
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BCHK DESCRIPTIVE TEXT 



the 

OF THE 
ARE EX 
AKE PR 

THE 
CUNTEN 
0002-0 

LOC 
VALUES 
IS PER 
AREA A 
THE AR 
CHECK 
ZERO. 

THE 



CHECK SUM ROUTINE -8CHK-, IS ENTERED UPON COMPLETION 
RESIDENT CPU MICRODI AGNOSTIC -BDI A-. THESE ROUTINES 
ECUTED WHENEVER THE CSL, SYSTEM RESET, OR LOAD KEYS 
ESSED. 

CHECK SUM ROUTINE PERFORMS AN EXCLUSIVE OR QN THE 
TS JF CONTROL STORAGE WITH THE EXCEPTION OF LOCATIONS 
000 AND C28G-028F. 
AT IONS 0002-0000 CONTAIN THE HAN0LOADED CHECK SUM 

OF THE INDIVIDUAL CORE LOADS*. WHEN A CSL OPERATION 
FORMED, THE CHECK SUM VALUE IS SELECTED FROM THIS 
ND PLACED IN LOCATION 0EC4 , WHERE IT BECOMES PART OF 
EA THAT IS SUBJECTED TO THE EXCLUSIVE OR. THIS 
SUM VALUE SHOULD CAUSE THE EXCLUSIVE OR RESULT TO BE 



HANDLOADED AREAS ARE 



ADDRESS 
0002 
C004 
C006 
C008 
OOOA 
COOC 



CHECK SUM VALUE FOR 

*£60/*£6l (MODEL 25 MODE! 

*E62 

*E63 

*E40 (1401/1460 MODE) 

*E50 11440 MODE) 

*E20 (MODEL 20 MODE) 



* 3 * TEST LOGOUT- *0N * A CSL OPERATI 

PERFORMED- SET UP 
WITH CHECK SUM INFO 
OECO — EC LEV 
0EC2 — LABEL 
BEING 
0EC4 — VALUE 
AREA. 
0EC6 — CORREC 
ALWAYS 
INITIA 
GO TO -ALDP- ROUTIN 
THIS INFORMATION. 
TO -BCHK- AT LABEL 
LOGOUT *OFF* ENTRY WAS MAD 

SYSTEM RESET OR LOA 
HAD BEEN PERFORMED. 
LABEL * ENTRY *. 

* 4 * PERFORM EXCLUSIVE OR OF CONTROL STORAGE. 

LOCATIONS 0002-0000 AND 0280-02BF. 

* 5 * CHECK SUM OK - BRANCH TO -BSYS- LABEL 

CHECK SUM BAD -SET UP ADDRESS OF CORR 
PRIOR TO CE KEY TEST. 



ON HAD BEEN 

THE LOGOUT AREA 

RMATION. 

EL 

OF CORE LOAD 

USED. 

FROM HANDLOAD 

TION FACTOR, 

ZERO ON 
L LOGOUT. 
E TO LOGOUT 
RETURN IS MADE 
* ENTRY *. 
E AFTER A 
D OPERATION 
GO TO -BCHK- 



SKIP 



* SYSRST * 
ECTION FACTOR 
GO TO STEP 6, 



THE CHECK SUM ROUTINE IS EXECUTED IN THE FOLLOWING 

SEQUENCE- 
S' 1 * ENTRY IS MADE FROM THE BDIA ROUTINE TO LABEL -START- 
* 2 * SET 1052 MODE AND INITIALIZE CERTAIN DIRECT 
ADDRESSABLE CONTROL STORAGE LOCATIONS. 



* 6 * CE KEY ON - 



CE KEY OFF- 



STORE EXCLUSIVE OR RESULT AS 
CORRECTION FACTOR INTO ADDRESS 0EC6. 
BRANCH TO LOGOUT CHECK SUM AREA AND 
PERFORM AN EXCLUSIVE OR AGAIN. THIS 
SHOULD RESULT IN A GOOD CHECK SUM. 
TURN ON CSL CHECK LIGHT AND 
** STOP **. (HARD STOP LATCH ON) 



aDDR 



WORD SEQUENCE NO. LABEL 



START 







BCHK 


001 


T 






BCHK 


002 


* 






BCHK 


003 


* 






BCHK 


004 


* 


3024 


2404 


BCHK 


005 




3026 


4632 


BCHK 


045 




3028 


6662 


BCHK 


046 




302A 


FA82 


BCHK 


047 




302C 


21C5 


BCHK 


048 


i 


302E 


20E3 


BCHK 


049 




30 30 


6CC4 


BCHK 


050 




30 32 


4208 


BCHK 


051 




3034 


2AC7 


BCHK 


052 





AGAIN 



NEXTSEQ NEXTLABEL STATEMENT 
CHECK SUM 



SET MODE K=20 

RDH D DC,8E 

STH D DC9C 

BR IF TT7=0 

Ul^OSKCO 

U0=0$K0E 

U=U+2 

RDH V CS,U+2 

T0=0 



064 ENTRY 



COMMENTS 



SET 1052 MODE 

SET T TO 4E08 

STORE 4E08 INTO i DOIT i WORD 

FALL THRU IF LOGOUT ONtCSL ONLY) 

BUILD ADDRESS OF CORE 

LOAD NAME JUST LOADED 
U-REGISTER = 0EC2 
READ OUT THE NAME 



( 






AUOR 

30 36 
3038 
30 3 A 
303C 
30 3E 
3040 
3042 
3044 
3046 
3048 
304A 
3002 
3004 
30 06 
3008 
300A 
300C 
300E 
*0 10 
3012 
3014 
3016 
30 18 

30 1C 

■30 IE 

J0 20 

30 00 
0F2C 
0F2E 
uF 30 
OF M 
OF 34 
OF 36 
OF 38 
0F3A 
0F3C 



jtC4 



Oi88 



03 98 



039C 



WORD SEQUENCE NO* 



53BD 
C4BC 
2B1B 
6BB3 
42A0 
6208 
0610 
511B 
2723 
2OC0 
968A 
4252 
4C26 
4AC0 
2DEB 
8F2C 
6CC4 
DCOA 
42A6 
C481 
2CE3 
2QC5 
3D£i. 

TSTo 

8F2C 
6AC0 
B02C 
A16C 
CC2B 
C4B6 
C08D 
C486 
2040 
42C0 
6A21 
6831 
128E 



cooo 



07FF 



G0C8 



4EC8 



BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 
BCHK 



033 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
C78 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
C89 
G90 
C91 
092 
093 
094 
095 
096 
Q97 
098 
C99 
100 
101 
102 
103 
104 
105 



LABEL 



CALARE 



NEXTSEQ 



NEXTLABEL STATEMENT 



056 CALARE 



ENTRY 



MORE 



ALOP 099 HWDCNT 

083 DOFUNC 

068 MORE 

082 OKSUM 



079 OBOY 

083 OOFUNC 

048 AGAIN 

BSYS 002 SYSRST 

088 NOTCE 

088 NOTCE 



OBOY 



OKSUM 
DOFUNC 



NOTCE 



RESERVE 0280 THRU 02BE 

RESERVE OECO THRU 0EC2 

A TABLE A0OR=0EC4 

C 

AENO 

A TABLE ADDR-0388 

C 

AEND 

ATABLE 

C 

AEND 

ATABLE 

COOIT 

AENO 



AD0R=0398 



A00R*039C 



Tl=VlL 
BR IF ZNZ 
T'1*T1*K01 

Ti=Tl*Tl 

RDH V CS»T 

STH V CS f U*2 

RST BC K=Ol 

U1=U1H 

D1=0SK02 

SET S K=0C 

BR 

RDH V DC,9A 

P=V 

ROH T CS,P 

P1»P1+K0E 

BAL 

P=P+2 

BR IF P01»0 

V = T 

BR IF Z=0 

PO=0$KOE 

Pl=0$KCO 

Pl = PiJJC06u_ 

SET 'DR'K*Q2-J^ 



■€/' 



BAL 

STH T CS,P 

BR 

BR 

Z-P0QK02 

BR IF ZNZ 

Z=PlaK80 

BR IF ZNZ 

P4=P1*K40 

RDH V CStP 

T0=T0aV0 

Tl^TlaVl 

RTN 



XCTL» OOOOOOOO 1 



XCTL f 07FFC48A88004E08 f 



XCTL*00C80000 - 



CL0AD=*E60t EC LEVEL=12821i 
COMMENTS 

FIND OUT WHAT 

THE CSL NAME IS 
ADD 1 TO LOW DIGIT OF NAME 
DOUBLE THE LOW DIGIT OF NAME 
USE UPDATED NAME TO READ HANDLOAD 
STORE HANDLOAD CHECK SUM IN 0EC4 
RESET LOGOUT LATCH 
U-REG=OECO 
SET UP FLAGS 
SET S4 AND S5 

BRANCH TO LOGOUT OECO— 0EC6 
ZERO V-REGISTER 
ZERO P-REGISTER 
READ OUT CS LOCATION 0000 
SKIP HANDLOAD INFORMATION 
BR TO START EXCLUSIVE OR 
INCREMENT CS ADDRESS 
BR IF CS NOT DONE 
MOVE LAST EX OR RESULT TO V 
BR IF EX OR RESULT ZERO 
SET UP 

CORRECTION 

FACTOR ADDRESS 
BRANCH IF CE KEY ON 
TURN ON CHECK SUM LIGHT AND THE 

HARD STOP LATCH. 
GO GENERATE CORRECTION FACTOR 
STORE CORRECTION FACTOR IN 0EC6 
GO SETUP FOR CORRECTION LOGOUT 
BRANCH TO SYSTEM RESET 
BYPASS 

CE 

TRAP 

AREA 

READ FROM CONTROL STORAGE 
PERFORM THE 

EXCLUSIVE OR 
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XCTL , 4E08128E i 



A DDR 



03 A 8 



0388 



GCOO 



2FF7 



QUENCE NO. 


LABEL 


NEXTSEQ 


BCHK 106 


ATABLE 


ADDR-03A8 


8CHK 108 


C 




BCHK 121 


AENO 




BCHK 122 


ATABLE 


A00R=03B8 


BCHK 123 


C 




BCHK 124 


AEND 





NEXTLABEL STATEMENT 



CLOAO=*E60, 
COMMENTS 
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XCTL' OOOOOOOOOOOOOOOO 1 



XCTL 1 2FF72FlBC4BC0F0i f 

********************************** 

* CRCSS REFERENCE FOR CSECT BCHK * 
********************************** 



uCHK 


005 


BOIA 


432 






riCHK 


048 


BCHK 


oei 






riCHK 


056 


BCHK 


054 






tfCHK 


064 


ALDP 


1S8 


BCHK 


047 


tfCHK 


068 


BCHK 


070 






AC HK 


079 


BCHK 


076 






rtCHK 


082 


BCHK 


72 






BCHK 


083 


BCHK 


068 


BCHK 


079 


BCHK 


088 


BCHK 


084 


BCHK 


086 


BCHK 


104 


ALOP 


124 


ALOP 


152 



BCPL DESCRIPTIVE TEXT 
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THE BCPL ROUTINE IS NORMALLY RESIDENT IN CONTROL STORAGE, 
AND IS USED TO LOAD THE INITIAL RECORD OF EITHER THE CHANNEL 
OR NATIVE BOOTSTRAP ROUTINES* 

IF THE BCPL ROUTINE HAS BEEN ALTERED, THE APPROPRIATE 
HANDLOAD INFORMATION' MUST BE ENTERED TO BE SURE OF CORRECT 
CSL OPERATION, 

*** SWITCH SETTINGS FOR CSL *** 



PROCEDURE FOR PUNCHING CSL CARDS 



SWITCHS 
A,B = CC 
A,B * DO 
A«B « EE 
A,B * FF 



CSL FROM CHANNEL 
CSL FROM NATIVE 2560 
CSL FROM NATIVE 2540 
CSL FROM NATIVE 2311 



SWITCHES CD SET TO ACTUAL UNIT ADDRESS 
******* ******************* ************ ** ******** **************** 



COLUMNS 

1-2 

3 



CONTAIN STARTING ADDRESS TO BE LOADED 
CONTAINS CODE INFORMATION 

HEX 80 a DATA IS FOR PROGRAM STORAGE 
VEX 40 * LAST CSL CARD OF DECK 
HEX 20 = DATA IS FOR AUXILIARY STORAGE 
HEX 10 * DATA IS FOR CONTROL STORAGE 
4 CONTAINS THE NUMBER OF HALFWORDS TO BE LOADED 

5-68 CONTAIN THE DATA 
69-72 OPTIONAL, CAN BE USED FOR ANY INFORMATION. 
73-77 *NNN9 WHERE N IS THE CORE LOAD ID. 
78-80 XXX 3 DIGIT NUMBER INDICATING SEQ. OF PATCHES. 
*** WARNING- DO NOT PUNCH CARDS TO LOAD INTO AUX MODULE 1,3,4 
**************************************************************** 



RESTRICTIONS WHEN PUNCHING CSL CARDS 



COLS 1-2 ALL ADDRESSES SHOULD BE' EVEN- 
CONTROL STORAGE - THESE ADDRESSES SHOULD BE IN 
THE RANGE OF 0000-3FFE ONLY. 
AUXILIARY STORAGE- THE 2ND HEX CHARACTER IN 

COLUMN 1 SHOULD BE A ZERO. 
PROGRAM STORAGE - THE ADDRESS MUST BE IN THE 
RANGE OF THE SYSTEM. 
COL 3 CODED INFORMATION 

COL 4 COUNT FIELD - IF A COUNT OF IS INDICATED, 257 

HALFWOROS WILL BE LOADED. 



COLS 5-68 DATA FIELD - CAN BE ANYTHING 
COLS 69-80 SEE ABOVE. 

NOT USED BY THE CSL. 
*** WHEN LOADING A FULL DECK WITH REPLACE CARDS, THE 

REPLACE CARDS SHOULD GO JUST BEFORE THE END CARD. 
*** WHEN LOADING ONLY REPLACE CARDS, IT IS NECESSARY TO 

PUT THE CONTROL STORAGE CARDS (NORMALLY 4$ FOR 

MODULE 01XX IN THE DECK. 

ORDER OF THE CARDS IS - BOOTSTRAP CARDS, CONTROL 

STORAGE CARDS FOR MODULE OIXX, REPLACE CARDS, END CARD. 



********************************************************************************************************************************** 



** EXAMPLE OF PUNCHING AND LOADING A REPLACE CARD ** 



ASSUME THAT THE DEVICE AODRESS FOR THE 1403 ON THE 
BURST CHANNEL NEEDED TO BE CHANGED TO -0A-. 

THE STANDARD ADDRESS FOR THE 1403 ON THE BURST CHANNEL 
IS -OE- AND IS LOCATED IN AUXILIARY STORAGE MODULE 0, AT 
ADDRESS -87-. 

THE CARD TO CHANGE THIS WOULD BE PUNCHED IN THE 
FOLLOWING MANNER— 

THIS ADDRESSES MODULE 0. 

ALTHOUGH THE CHANGE IS FOR ADDRESS 

87, THE HEX ADDRESS REPRESENTED BY 

COLUMN 2 MUST BE EVEN. 

THIS INDICATES INFORMATION IS FOR 

AUXILIARY STORAGE. 

THIS INDICATES ONE HALFWORD TO BE 

LOADED. 



COL 


1 


(HEX 


001 


COL 


2 


(HEX 


861 


COL 


3 


(HEX 


201 


COL 


4 


(HEX 


on 



COL 5 



COL 6 
COL 69-72 
COL 73-77 

COL 78-80 



A CSL MUST 

INTO THE SYS 

END CARD, AN 

CSLS USING T 

*** EACH TIME 

ORATION C 

AND INSER 



(HEX ODI THIS REPRESENTS THE DEVICE AODRESS 
OF THE 2540 PUNCH THAT MUST BE 
RELOADED BECAUSE OF THE ADDRESSING 
RESTRICTION IMPOSED BY COLUMN 2. 
{HEX OA) THIS REPRESENTS THE DEVICE ADDRESS 

(00861 TO INDICATE START ADDR OF PATCH. 

(*E609) INDICATES PATCH IS FOR *E60 CORE LD. 

10011 INDICATES 1ST PATCH TO DECK 

REPLACING THE STANDARD ADDRESS FOR 
THE 1403 ON THE BURST CHANNEL. 
BE PERFORMED TO LOAD THIS RECONFIGURATION CARD 
TEM. THE RECONFIGURATION CARD MUST PRECEED THE 
D MUST BE PRESENT IN THAT POSITION FOR ALL 
HAT PARTICULAR CORE LOAD DECK. 

A NEW EC LEVEL DECK IS RECIEVED, ALL RECONFIG- 
ARDS IN THE DECK BEING REPLACED MUST BE REMOVED 
TED IN THE NEW DECK IN FRONT OF THE END CARD. 



PUNCHED CARD COOES 



CL0AD=*E60, EC L£VEL=1282U PAGE 27 



ribX 


PUNCHES 


* 


HEX 


PUNCHES 


m 


HEX 


PUNCHES 





T-0-9- 


-8-1 


# 


25 


0-9-5 




. # 


4A 


T-8-2 


Oi 


T-9-1 




# 


26 


0-9-6 




• 


48 


T-8-3 


2 


T-9-2 




• 


27 


0-9-7 




. 


4C 


T-8-4 


3 


T-9-3 




# 


28 


0-9-8 




* 


4D 


T-8-5 


4 


T-9-4 




„ 


29 


0-9-8- 


l 


* 


4E 


T-8-6 


5 


T-9-5 




• 


2A 


0-9-8- 


-2 


„ 


4F 


T-8-7 


6 


T-9-6 




# 


28 


0-9-8-3 


. 


50 


T 


7 


T-9-7 




• 


2C 


0-9-8- 


-4 


• 


5i 


T-E-9-1 


8 


T-9-8 




• 


20 


0-9-8- 


-5 


. 


52 


T-E-9-2 


9 


T-9-8- 


1 


. 


2£ 


0-9-8- 


-6 


„ 


53 


T-E-9-3 


OA 


T-9-8- 


2 


* 


IF 


0-9-8-7 


* 


54 


T-E-9-4 


OB 


T-9-8- 


3 


• 


30 


T-E-O- 


-9-8-1 


« 


55 


T-E-9-5 


oc 


f-9-8- 


4 


* 


31 


9-1 




• 


56 


T-E-9-6 


00 


T-9-8- 


•5 


• 


32 


9-2 




« 


57 


T-E-9-7 


Ofc 


f-9-8- 


6 


• 


33 


9-3 




. 


58 


T-E-9-8 


OF 


T-9-8- 


7 


« 


34 


9-4 




. 


59 


E-8-1 


10 


T-E-9- 


8-1 


• 


35 


9-5 




• 


5A 


E-8-2 


11 


E-9-1 




• 


36 


9-6 




. 


58 


E-8-3 


12 


E-9-2 




• 


37 


9-7 




• 


5C 


E-8-4 


li 


E-9-3 




* 


38 


9-8 




* 


50 


E-8-5 


14 


E-9-4 




* 


39 


9-8-1 




• 


5E 


E-8-6 


15 


e-9-5 




• 


3A 


9-8-2 




• 


5F 


E-8-7 


16 


E-9-6 




• 


38 


9-8-3 




• 


60 


E 


17 


E-9-7 




• 


3C 


9-8-4 




* 


61 


0-1 


18 


£-9-8 




• 


3D 


9-8-5 




* 


62 


E-0-9-2 


19 


E-9-8- 


1 


• 


3E 


9-8-6 




. 


63 


E-0-9-3 


1A 


£-9-8-2 


« 


3F 


9-8-7 




* 


64 


E-0-9-4 


IB 


E-9-8- 


3 


• 


40 


NONE 




• 


65 


E-0-9-5 


1C 


E-9-8-4 


• 


41 


T-0-9- 


l 


• 


66 


E-0-9-6 


ID 


E-9-8-5 


. 


42 


T-0-9- 


•2 


* 


67 


E-0-9-7 


It 


E-9-8-6 


• 


43 


T-G-9- 


•3 


« 


68 


E-0-9-8 


IF 


E-9-8- 


7 


,. 


44 


T-0-9-4 


• 


69 


0-8-1 


20 


E-0-9- 


8-1 


• 


45 


T-0-9- 


•5 


. 


6A 


T-E 


2 1 


0-9-1 




« 


46 


T-0-9-6 


* 


6B 


0-8-3 


22 


0-9-2 




• 


47 


T-0-9- 


-7 


• 


6C 


0-8-4 


23 


0-9-3 




# 


48 


T-0-9- 


•8 


• 


60 


0-8-5 


24 


0-9-4 




* 


4 9 


T-8-1 




• 


6E 


0-8-6 



HEX 


PUNCHES 




« 


HEX 


PUNCHES 


• 


HEX 


PUNCHES 


♦ 


HEX 


PUNCHES 




6f 


0-8-7 




* 


94 


T-E- 4 


« 


B9 


T-E- 


■0-9 




m 


DE 


T-E-9-8-6 




70 


T-E-0 




* 


95 


T-E- 5 


« 


BA 


T-E- 


-0-8- 


-2 


m 


OF 


T-E-9-8-7 




71 


T-E-0-9- 


1 


• 


96 


T-E- 6 


• 


BB 


T-E- 


•0-8- 


-3 


. 


EO 


0-8-2 




72 


T-E-0-9- 


2 


• 


97 


T-E- 7 


• 


BC 


T-E- 


•0-8- 


•4 


. 


El 


E-0-9-1 




73 


T-E-0-9- 


3 


• 


98 


T-E- 8 


• 


BD 


T-E- 


-0-8- 


-5 


* 


E2 


0-2 




74 


T-E-0-9- 


4 


• 


99 


T-E- 9 


* 


BE 


T-E- 


•0-8- 


-6 


m 


E3 


0-3 




75 


T-E-0-9- 


-5 


. 


9A 


T-E- 8-2 


• 


BF 


T-E- 


■0-8- 


-7 


. 


E4 


0-4 




76 


T-E-0-9- 


6 


• 


.8 


T-E- 8-3 


* 


CO 


T-0 






• 


E5 


0-5 




77 


T-E-0-9- 


•7 


• 


9C 


T-E- 8-4 


* 


CI 


T-l 






. 


E6 


0-6 




78 


T-E-0-9- 


8 


• 


90 


T-E- 8- 5 


• 


C2 


T-2 






• 


E7 


0-7 




79 


8-1 




, 


9E 


T-E- 8-6 


* 


C3 


T-3 






^ 


E8 


0-8 




7A 


8-2 




* 


9F 


T-E- 8-7 


• 


C4 


T-4 






• 


E9 


0-9 




7B 


8-3 




• 


AO 


E-0- 8-1 


... 


C5 


T-5 






• 


EA 


E-0 -9 -8 -2 




7C 


8-4 




.„ 


Al 


E-0- 1 


• 


C6 


T-6 






• 


EB 


E -0-9-8-3 




7D 


8-5 




* 


A2 


E-0-2 


• 


C7 


T-7 






• 


EC 


E-0-9-8-4 




7E 


8-6 




# 


A3 


E-0- 3 


m 


C8 


T-8 






# 


ED 


E-0 -9 -8 -5 




7F 


8-7 




• 


A4 


E-0-4 


« 


C9 


T-9 






m 


EE 


E -0-9-8 -6 




80 


T -0-8-1 




* 


A5 


E-0- 5 


• 


CA 


T-0-9-8- 


-2 


« 


EF 


E -0-9-8-7 




81 


T-O-l 




, 


A6 


E-0- 6 


* 


CB 


T-0-9-8- 


-3 


. 


FO 







82 


T-0-2 




• 


A7 


E-0- 7 


• 


CC 


T-0-9-8- 


-4 


^ 


Fl 


1 




83 


T-0-3 




. 


A8 


E-0- 8 


* 


CO 


T-0- 


■9-8- 


-5 


• 


F2 


2 




84 


T-0-4 




* 


A9 


E-0-9 


« 


CE 


T-0-9-8- 


-6 


• 


F3 


3 




85 


T-0-5 




• 


AA 


E-0- 8- 2 


• 


CF 


T-0- 


•9-8- 


-7 


^ 


F4 


4 




86 


T-0-6 




« 


AB 


E-0- 8- 3 


* 


00 


E-0 






• 


F5 


5 




87 


T-0-7 




• 


AC 


E-0- 8-4 


. 


Dl 


E-l 






• 


F6 


6 




88 


T-0-8 




* 


AD 


E-0- 8-5 


« 


D2 


E-2 






m 


F7 


7 




89 


T-0-9 




, 


AE 


E-0-&-6 


• 


D3 


E-3 






« 


F8 


8 




8A 


T-0-8-2 




•• 


AF 


E-0- 8-7 


« 


04 


E-4 






• 


F9 


9 




8B 


T-0-8-3 




m 


80 


T-E- 0-8-1 


• 


05 


E-5 






• 


FA 


T-E-0-9-8- 


-2 . 


8C 


T-0-8-4 




<* 


81 


T-E- 0-1 


m 


06 


E-6 






. 


FB 


T-E-0-9-8- 


-3 . 


8D 


T-0-8-5 




• 


82 


T-E- 0-2 


• 


07 


E-7 






* 


FC 


T-E-0-9-8- 


-4 „ 


8E 


T -0-8-6 




• 


83 


T-E- 0-3 


# 


08 


E-8 






• 


FD 


T -E-0 -9-8 - 


-5 • 


8F 


T-0-8- 7 




■* 


84 


T-E- 0-4 


« 


09 


E-9 






« 


FE 


T-E-0-9-8- 


-6 * 


90 


T-E-8-1 




• 


B5 


T-E- 0-5 


• 


OA 


r-E- 


-9-8- 


-2 


. 


FF 


T-E -0-9-8- 


-7 . 


91 


T-E-l 




• 


36 


T-E- 0-6 


* 


DB 


T-E- 


-9-8- 


-3 


* 








92 


T-E-2 




* 


B7 


T-E- 0-7 


• 


OC 


T-E- 


-9-8- 


-4 


^ 








93 


T-E-3 




• 


88 


T-E- 0-8 


• 


DO 


T-E- 


-9-8- 


-5 


• 
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*** HANDLOAO ROUTINE FOR NATIVE 2540 



**♦ 



HANOLOAD ROUTINE FOR CHANNEL 



ADDR 



WORD 



0010 


3210 


C012 


2610 


0014 


2C07 


0016 


2413 


0018 


8062 


0062 


2406 


0064 


2617 


0066 


2783 


0068 


3775 


006A 


2507 


006C 


4066 


006E 


5EEF 


0070 


DE6E 


0072 


58 3F 


0074 


6348 


0076 


736A 


0078 


FOEE 


007A 


1618 


007C 


F0E7 


007E 


8100 



STATEMENT 

SET MMSK K*8i 
SET BC K=Ol 

P0=0 

G0=0$K01 

8R 

SET MODE K*30 

D0=0$Kli 

D1=0$K08 

01=01$K70 

Gl^O 

U=0 

H0=RPS 

BR IF HOl^O 

Vl»RPi 

STB VI CS,G*1 

STB VI AStO-i 

BR IF LZNZ 

D0=00nK01 

BR IF LZ = 

BR 



COMMENT 

BLOCK TRAPS 

SET LOGOUT LATCH 

ZERO OUT SWITCH 

START SETUP OF ADDR 0100 

BRANCH TO LOCATION 0062 

SET 2540 MOOE 
BUILD AUXILIARY 
STORAGE ADDRESS 
FOR COMPARING 
FINISH SETUP OF ADDR 0100 
SAVE COMPARE ADDRESS 
READ 2540 STATUS 
BACK ONE WORD IF NO DATA 
GET READ BRUSH 1 DATA 
PUT DATA IN CONTROL STGR 
PUT DATA IN COMP TABLE 
GO WAIT FOR MORE DATA 
INVERT FIRST TIME SWITCH 
BRANCH BACK IF FIRST TIME 
BRANCH TO BOOTSTRAP 



ADDR 



WORD 



0010 


3210 


0012 


2610 


0014 


2C07 


0016 


2413 


0018 


51AF 


001 A 


802C 


002C 


2486 


00 2 E 


2507 


0030 


2B08 


0032 


C9B3 


0034 


4FAF 


0036 


2B04 


0038 


2B44 


003A 


C98A 


00 3C 


2B40 


00 3 E 


CD BE 


0040 


2B23 


0042 


4FBF 


0044 


2B42 


0046 


FDC6 


0048 


5FBF 


004A 


C4CA 


004C 


2B48 


004E 


FDCF 


0050 


EDCE 


0052 


5FFF 


0054 


F05B 


0056 


7F48 


005 8 


F05C 


005A 


6F48 


005C 


055D 


005 E 


C4CC 


0060 


8100 



STATEMENT 

SET MMSK K=8l 

SET BC K^Ol 

P0=0 

G0=0$K01 

TO^SWCD 

BR 

SET MODE K=38 

G1=0 

SET GA K*40 

BR IF GT4=i 

GB/OUT=TO 

SET GA K*20 

SET GA K=24 

BR IF GT4=0 

SET GA K=04 

BR IF GTO*0 

T1=0$K02 

GB/0UT«T1 

SET GA K«14 

BR IF GT3=0 

TUG8/IN 

BR IF ZNZ 

SET GA K=44 

BR IF GT3=1 

BR IF GT2=0 

Hi=GB/IN 

BR IF GOT^i 

STB HI AStG+1 

BR IF G07«0 

STB HI CS,G*1 

Z*GlnK50 

BR IF ZNZ 

8R 



COMMENT 

BLOCK TRAPS 

SET LOGOUT LATCH 

ZERO OUT SWITCH 

START SETUP OF ADDR 0100 

SWCD EQUAL DEVICE ADDR. 

BRANCH TO LOCATION 002C 

SET CHANNEL MODE, CPU ZONE 

FINISH SETUP OF ADDR 0100 

SET SERVICE OUT 

BRANCH ON OP IN 

SEND DEVICE ADDRESS OUT 

RAISE ADDRESS OUT 

AND SELECT OUT 
WAIT FOR OP IN 
RESET ADDRESS OUT 
WAIT FOR ADDRESS IN 
BUILD READ COMMAND 
SEND OUT READ COMMAND 
RAISE COMMAND OUT 
WAIT HERE FOR STATUS 
READ STATUS 

LOOP HERE IF INVALID STAT 
SET SERVICE OUT 
WAIT FOR 

DATA 
GET DATA BYTE 
8R IF BOOTSTRAP READING 
NOT SOOT INFOtSfOR IN AUX 
UNCONDITIONAL BRANCH 
PUT BOOT IN CNTRL StORAGE 
CHECK IF ALL DATA IN, 

IF NOT, GET MORE. 
BRANCH TO BOOTSTRAP 
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HANOLOAO ROUTINE FOR 2311 



HANOLOAO ROUTINE FOR 2560 



*** 



ADDR 



WORD 



0010 


3210 


0012 


2610 


0014 


2CC7 


0016 


ao7o 


0076 


2490 


0078 


2813 


007A 


2907 


007C 


4A86 


007E 


2F 15 


0080 


2EX5 


0082 


2023 


0084 


4D9F 


0086 


0EO8 


0088 


0E04 


008A 


49EF 


008C 


4E0F 


008E 


4BFF 


C090 


2E63 


0092 


3E15 


0094 


4FEF 


0096 


2E43 


0098 


E598 


009A 


4EEF 


009C 


4BFF 


C09E 


3000 


OOAO 


E5A1 


00A2 


1D00 


00A4 


50EF 


00A6 


CA25 


00A8 


C1A9 


OOAA 


810A 



* NOTE * 



STATEMENT 

SET MMSK K*=8l 
SET BC K=01 
P0=0 
BR 

SET MODE K-09 

IG=0$KOi 

I 1 = 

T=I 

Hi=0$K10 

HO^OSKXO 

P1=0$K02 

FF0=I1 

RST FIB K=40 

RST FIB K=20 

MS=HO 

FB0=P1 

TGR0=H1 

H0=O$KO6 

H0=H0$K10 

FOP=HO 

H0=C$KO4 

BR IF DAS12=0 

FBO=H0 

TGR0=H1 

SET FIA K=80 

BR IF DASI2=1 

RST FIA K=80 

H0=TGRI 

BR IF H04=l 

BR IF 0ASI4=1 

BR TO 010A 



COMMENT 

BLOCK TRAPS 

SET LOGOUT LATCH 

ZERO OUT SWITCH 

BRANCH TO LOCATION 0076 

SET 2311 MODE 
SET I-REG 
TO 0100 
MOVE 0100 TO T-REGISTER 

SET UP MODULE SELECT * NOTE * 
SET UP RETURN BIT (BIT 61 
SEND ZERO TO FILE FLAGS OUT 
ISSUE INITIAL RESET 
ISSUE COLD-START RESET 
LOAD MODULE SELECT REGISTER 
SEND RETURN TO FILE BUS OUT 
MOVE CONTROL BIT TO TAG REG 
SET UP FILE OP, COUNT 

OF ONE, DATA READ 
MOVE OP TO FILE OP REGISTER 
SET UP SELECT HEAD 
BR TO ITSELF IF NO GATED ATT. 
MOVE 04 TO FILE BUS OUT 
MOVE CNTRL BIT TO TAG REG OUT 
SET GO LATCH 

BR TO ITSELF IF GATED ATTEN. 
RESET TRAP LATCH 
GET TAG REGISTER IN 
BR BACK ONE WORD IF NO TRAP 
LOOP ON ITSELF IF ERROR 
BR TO BOOTSTRAP 



ADDR 



WORD 



THE X IN THE CONTROL WORD HAS THE 
FOLLOWING SIGNIFICANCE- 

X=8 SELECT DRIVE NUMBER 

X=4 SELECT DRIVE NUMBER I 

X=2 SELECT DRIVE NUMBER 2 

X=l SELECT DRIVE NUMBER 3 



0010 


3210 


0012 


2610 


0014 


2C07 


0016 


2413 


0018 


80AC 


OOAC 


240E 


OOAE 


2F04 


OOBO 


2507 


00B2 


5FDF 


0084 


DAB8 


00B6 


ED33 


O0B8 


2F10 


OOBA 


DAC6 


OOBC 


CAB9 


OOBE 


58FF 


OOCO 


5AEF 


O0C2 


4EF3 


00C4 


6F48 


00C6 


2B14 


00C8 


055D 


OOCA 


C4B4 


OOCC 


8100 



STATEMENT 

SET MMSK K=81 
SET BC K^Ol 
PO^O 
G0=0$K01 

BR 

SET MODE K=70 

SET MFA K=20 

Gi^O 

P1=MFD8 

BR IF MFT5=0 

BR IF, P12=l 

SET MFA K=01 

BR IF MFT5=Q 

BR IF MFT4=1 

Hi=MFRl 

H0=MFR2 

Hl^HOXH+HiL 

STB HI CS,G + 1 

SET MFC K=21 

Z=GloK50 

BR IF ZNZ 

BR 



COMMENT 

BLOCK ALL TRAPS 

SET LOGOUT LATCH 

ZERO HANDLOAD FLAG REGISTER 

BUILD HIGH HALF CS ADDR, 0100 

BR TO OOAC 

PUT IN MOD/20, 2560 MODE 
SELECT SEC FEED INOTE 2) 

LOW HALF CS ADDR. G=0100 

BR TO 00B8 IF NPRO REQ 

BR IF NOT READY 

SET READ EX. 

CHECK NPRO 

BR ON NO DATA AVAIL 

READ 1/2 BYTE 

REAO THE OTHER 1/2 

PUT TWO 1/2 BYTES TOGETHER 

STORE THEM 

RST NPRO, AND RD. EX. 

CHECK FOR 80 BYTES 

IF NOT 80, GO TO 00 84 

BR TO BOOTSTRAP ADDR 0100 



NOTE 2 



- IN ORDER TO USE THE PRIMARY FEED, 
REPLACE THIS WORD WITH 2F80. THE START 
KEY MUST BE PRESSED AT THE END TO 
COMPLETE THE C SL {LAST CARD )• 



************************* 



FOR BOOTSTRAP 
INFORMATION, REFER 
TO THE AKXXX LOGIC 
PAGES. 



************************* 
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At DK 


WORD 


SEQUENCE NU. 


LABEL 


NEXTSEQ 


NEXTLABi 


:L STATEMENT 


C( 


IMMENTS 






BCPL 


001 


T 


CSL 


RESIDENT ROUTINE 










BCPL 


002 


ATABLE 


ADDR^OOOO 










h.00 


8000 


BCPL 


003 


LOCKGN 


003 


LOCKCN 


BR 






u0C2 


GBAD 


BCPL 


004 


C 






XCTL* OBAD0BA0O8AD08AC0BAG0BAD f 


00 UE 


8CAC 


BCPL 


005 


N2 560 


087 


R02560 


BR 










BCPL 


006 


# 


THE FOLLOWING 


WORD 










BCPL 


007 


* 


IS THE FIRST 


WORO 










BCPL 


008 


* 


OF 


THE CSL TRAP 






00 10 


3210 


BCPL 


009 








SEr MMSK K=81 




BLOCK ALL TRAPS 


00 12 


261C 


BCPL 


010 








SET BC K=Oi 




SET LOG OUT LATCH 


Ou 14 


5 0CF 


BCPL 


Oil 








PO=SWAB 




READ 


00 16 


51AF 


BCPL 


012 








TO^SWCD 




SWITCHES 


0018 


2413 


BCPL 


013 








G0=0$K01 




SET UP C S ADDRESS 


OOiA 


CCCF 


BCPL 


014 








Z^POnKCC 


CHECK 


FOR 


00 1C 


C4A0 


BCPL 


015 




025 


CHANEL 


BR IF Z=0 


CHANNEL 


OUlE 


OCOF 


BCPL 


016 








Z=P0QKDD 


CHECK 


FOR 


0020 


C48F 


BCPL 


017 




005 


N2560 


BR IF Z=0 


2560 




0022 


OCEF 


BCPL 


018 








Z=POnKEE 


CHECK 


FOR 


00 24 


C4E3 


BCPL 


019 




050 


N2540 


BR IF Z=0 


2540 




0026 


OCFF 


BCPL 


020 








Z^POnKFF 


CHECK 


FOR 


0028 


C4A8 


BCPL 


021 


SWIERR 


021 


SWIERR 


BR IF ZNZ 


2311 




2 A 


80DE 


BCPL 


022 




106 


FILE 


8R 






002C 


2486 


BCPL 


023 


CHANEL 






SET MODE K=38 


CHAN 


PUT IN CHANNEL MODE 


00 2E 


25C? 


BCPL 


024 


AGAIN 






G1=0 


CHAN 


CS ADDRESS 


■j0 30 


2BC8 


BCPL 


025 








SET GA K=40 


CHAN 




0^52 


C983 


BCPL 


026 


OPIN 


026 


OPIN 


BR IF GT4=1 


CHAN 


BR ON OR IN 


uJ34 


4FAF 


BCPL 


027 








GB/OUT=T0 


CHAN 


SEND OUT DEVICE ADDRESS 


J J 36 


2BC4 


BCPL 


02 8 








SET GA K=2Q 


CHAN 


RAISE ADDR. 


J038 


2844 


BCPL 


02 9 








SET GA K=24 


CHAN 


AND SEL OUT 


00 3 A 


C98A 


BCPL 


030 


OPINOT 


030 


OPINOT 


BR IF GT4=0 


CHAN 


WAIT FOR OP IN 


00 3C 


2B40 


BCPL 


031 








SET GA K^=04 


CHAN 


RESET ADDR* OUT 


00 3 E 


COBE 


BCPL 


032 


ADDIN 


032 


ADD-IN 


BR IF GTO=0 


CHAN 


WAIT FOR ADDR IN 


00 40 


2B23 


BCPL 


033 








T1=0$K02 


CHAN 


BUILD READ CMND 


ou42 


4FBF 


BCPL 


034 








GB/0UT=T1 


CHAN 


SEND OUT THE CMND 


00 4 4 


2B42 


BCPL 


035 








SET GA K=14 


CHAN 


RAISE COMMAND OUT 


uO 46 


FDC6 


BCPL 


036 


STATUS 


036 


STATUS 


BR IF GT3=0 


CHAN 


WAIT FOR STATUS 


00 48 


5FBF 


BCPL 


03 7 








Tl^GB/IN 


CHAN 


READ STATUS 


J04A 


C4CA 


BCPL 


038 


ERRORA 


038 


ERRORA 


BR IF ZNZ 


CHAN 


LOOP INVALID INITIAL STATS 


004C 


2B4 8 


BCPL 


03 9 


STATC 






SET GA K=44 


CHAN 


SET SERVICE OUT 


004E 


FDCF 


BCPL 


040 


STATB 


040 


STATB 


BR IF GT3=1 


CHAN 


STATUS LOOP 


0050 


EDGE 


BCPL 


041 




040 


STATB 


BR IF GT2=0 


CHAN 


SERVICE LOOP 


00 52 


5FFF 


BCPL 


042 








H1=GB/IN 


CHAN 


GET DATA 


00 54 


P058 


BCPL 


043 




046 


F1RSTC 


BR IF G07=i 


CHAN 


FIRST TIME BOOTSTRAP 


u056 


7F48 


BCPL 


044 








STB HI AS,G+1 


CHAN 


NOT 1ST PUT IN AUX 


00 58 


P05C 


BCPL 


045 




047 


DECREM 


BR IF G07=0 


CHAN 


UNCONDIT BRANCH 


JO 5 A 


dF48 


BCPL 


046 


FIRSTC 






STB HI CS f G+l 


CHAN 


1ST TIME PUT IN C S 


00 5C 


0550 


BCPL 


047 


DECREM 






Z*GlnK50 


CHAN 


CHECK IF ALL 


005E 


C4GC 


BCPL 


048 




039 


STATC 


BR IF ZNZ 


CHAN 


BYTES XFERED 


0060 


8100 


BCPL 


04 9 


C 






XCTL«8100 f 


CHAN 


GO TO BOOTSTRAP 


0062 


2406 


BCPL 


050 


N2540 






SET MODE K=30 


2540 


PUT IN 2540 MODE 


0064 


2617 


BCPL 


051 








D0=0$K11 


2540 


BUILD COMPARE 


0066 


2783 


BCPL 


052 


CYCLE 






Di=0$K08 


2540 


ADDRESS WHERE CARD 


0068 


3775 


BCPL 


053 








D1=D1$K70 


254G 


IMAGE IS STORED 



AOCR 

006A 
006C 
006E 
00 70 
0072 
0074 
00 76 
0078 
007A 
007C 
007E 
00 80 
00 8 2 
0084 
U086 
0U88 
008A 
J0 8C 
008E 
00 90 
0092 
00 94 
0096 
0098 
00 9 A 
009C 
Ou96 
00 A 
00A2 
00A4 
A 6 
00A8 
OOAA 
OOAC 
OOAE 
OOBO 
00B2 
00B4 
00B6 
O0B8 
OOBA 
OOBC 
OOBE 
OOCO 
O0C2 
O0C4 
00C6 
00C8 
OOCA 
OOCC 
OOCE 
OODC 
OODfc 



WORO SEQUENCE NO. LABEL 



25C7 
4C66 
5EEF 
DE6E 
5B3F 
634 8 
736A 
FOEE 
161B 
F0E7 
8100 
6EE3 
6EE3 
6EE3 
0E08 
0EC4 
49EF 
4EDF 
4BFF 
2E63 
3E15 
4FEF 
2E43 
E598 
4EEF 
4BFF 
3DC0 
E5A1 
1000 
50EF 
CA25 
C1A9 
810A 
240E 
25C7 
2F04 
5FDF 
0AB8 
ED33 
2F1C 
DAC6 
CAB9 
58FF 
5AEF 
4EF3 
6F48 
2B14 
055D 
C4B4 
8100 
FFFF 
FFFF 
2B07 



BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 
BCPL 



054 
055 
056 
C57 
058 

05 9 

06 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
82 
83 
84 
085 
G86 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
09 7 
098 
099 
100 
101 
102 
103 
104 
105 
106 



DA TA I N 



MOD 
MOO 
MOO 
MOO 



WAITFL 

WAIENA 
WAIENB 
ER 
RD2560 



K5RDY 
K6NP0 

FEEO 



NO IT 



056 OATAIN 

056 DATAIN 
052 CYCLE 



FILE 



NEXTSEQ NEXTLABEL STATEMENT 



Gl-0 

U=D 

HO^RPS 

BR IF H01=0 

V1=RP1 

STB VI CS,G+1 

STB VI AS f 0-1 

BR IF LZNZ 

DO^OOnKOl 

BR IF LZ=0 

XCTL* 8100* 

H0=H0*H0 

H0=H0+H0 

H0=H0+H0 

RST FIB K=40 

RST FIB K=20 

MS = HO 

FBQ=P1 

TGR0=H1 

H0=0$KO6 

H0=H0$K10 

FQP=H0 

H0=0$K04 

BR IF DAS 1 2=0 

FBO=H0 

TGR0=H1 

SET FIA K^80 

BR IF DAS 12=1 

RST FIA K=80 

HO=TGRl 

BR IF H04=l 

BR IF 0ASI4=1 

XCTL - 810A» 

SET MODE K=70 

G1 = 

SET MFA K=20 

Pi=MFD8 

BR IF MFT5=0 

BR IF Pi2=l 

SET MFA K=01 

BR IF MFT5=0 

BR IF MFT4=1 

H1=MFR1 

H0=MFR2 

H1=H0XH*H1L 

STB HI CS,G+1 

SET MFC K=21 

Z=GlnK50 

6R IF ZNZ 

XCTL 1 8i00« 

XCTL f FFFFFFFF 

XCTL* FFFF* 

T1=0 



077 WAITFL 



081 WAIENA 



083 WAIENB 
085 ER 



093 FEEO 

090 K5RDY 

100 NOIT 

093 FEEO 



CL0AO=*E60 f EC LEVEL=128211 
COMMENTS 

2540 ZERO REG FOR CONTROL ADDR. 

2540 SAVE COMPARE ADDRESS 

25 40 WAIT FOR 

2540 DATA AVAILIBLE 

2540 READ 1ST BRUSH OATA 

2540 -STORE IN CONTROL STORE 

2540 -STORE IN AUX COMPARE TBLE 

2540 STAY IN DATA LOOP FOR 1 CD 

2540 INVERT FLAG 

25 40 CHECK FOR 2ND TRAP CYCLE 

25 40 GO TO BOOTSTRAP 

23 11 BUILD 

2311 MODULE 

2311 NUMBER 

2311 COLD START RESET 

2311 COLO START RESET 

23 11 SELECT MODULE 

2311 SET RETURN TO ZERO Pl=02 

2311 SET CONTROL Hl = 10 

2311 SET READ 

2311 

2311 DATA OP 

2311 START HEAD SELECT 

WAIT FOR ENO 

HEAD 
SELECT 

GO 

WAIT FOR 
RESET TRAP REQ 
WAIT FOR FILE 

TRAP REQUEST 

ERROR LOOP 
GO TO BOOTSTRAP 
IN 20,2560 MODE 
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2311 
2311 
2311 
2311 
2311 
2311 
23 11 
2311 
2311 

2560 PUT 
2560 
2560 
2560 
2560 
2560 
2560 
2560 
2560 
READ 



091 K6NP0 



SELECT SEC FEED 
CALL IN FOR ROY CHK 
BR IF NPRO REQ 
BR IF NOT ROY 
SET READ EXECUT 
BRANCH IF NPRO 
BRANCH IF NO DATA 
1 / 2 BYTE 
READ OTHER HALF 

PUT THEM TOGETHER 
2560 STORE DATA IN C S 
2560 RST RD EX AND NPRO 
2560 

2560 NOT DONE BRANCH 
2560 GO TO BOOTSTRAP 
FFFFFFFFFFFFFFFFFFFF • 

2311 CORRECT PARITY 



ADDR 



KURD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



OOEO 


6A02 


BCPL 


107 


ootz 


2490 


BCPL 


108 


00E4 


2813 


BCPL 


109 


U0E6 


2907 


BCPL 


110 


QQ£8 


4A86 


BCPL 


ill 


OOEA 


4C02 


BCPL 


112 


OOEC 


2F15 


BCPL 


113 


QQEE 


5FE9 


BCPL 


114 


OOFO 


2D23 


BCPL 


115 


QOfZ 


4D9F 


BCPL 


116 


301-4 


8811 


BCPL 


117 


00F6 


54E8 


BCPL 


118 GVR 


Q0F8 


6488 


BCPL 


119 


OOFA 


FA76 


BCPL 


120 


OOFC 


06C8 


BCPL 


121 


OOFE 


88FE 


BCPL 


122 C 






BCPL 


123 AENO 



065 



118 





STH T DC f 88 


2311 




SET MODE K=09 


2311 




I0=0$KOl 


2311 




11 = 


2311 




T=I 


2311 




RQH P DC, 88 


2311 




Hi=0$KiO 


2311 




H0=H1 


2311 




P1=0$K02 


2311 




FFO=Ii 


2311 


HOD N 


1 N=PO BITS67 


2311 




RDH G AS* H+2 


END 




STH G CSt 1*2 


END 


OVRLAY 


BR IF H07=0 


END 




RST BC K=40 


END 




XCTL^SFE' 


END 



CL0AD=*E60, EC LEVEL=128211 
COMMENTS 

SAVE MODULE 

SET FILE MODE ZONE 

BUILD COUNT AND 

CONTROL STORAGE 
ADDRESS 
RETRIEVE MOOULE 
CONSTANTS FOR 

SELECTION 



OVERLAY AUX 1000 
INTO CONTROL 
0100 
RESET CSL LIGHT 
BRANCH TO 08FE 
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********************************** 

* CROSS REFERENCE FOR CSECT BCPL * 
********************************** 



I3CPL 


00 3 


BCPL 


0C3 


BCPL 


005 


BCPL 


017 


BCPL 


021 


BCPL 


021 


BCPL 


023 


BCPL 


015 


BCPL 


026 


BCPL 


026 


BCPL 


030 


BCPL 


030 


BCPL 


032 


BCPL 


C32 


bCPL 


036 


BCPL 


036 


BCPL 


038 


BCPL 


038 


riCPL 


039 


BCPL 


048 


Bo PL 


040 


BCPL 


040 BCPL 041 


BcPL 


046 


BCPL 


043 


BCPL 


047 


BCPL 


045 


BCPL 


50 


BCPL 


019 


BCPL 


052 


BCPL 


0*3 


BCPL 


056 


BCPL 


057 BCPL 061 


3CPL 


065 


BCPL 


117 


BCPL 


077 


BCPL 


077 


BCPL 


081 


BCPL 


081 


BCPL 


083 


BCPL 


0£4 


BCPL 


085 


BCPL 


065 


BCPL 


087 


BCPL 


005 


BCPL 


090 


BCPL 


0S2 


BCPL 


091 


BCPL 


1C2 


BCPL 


093 


BCPL 


091 BCPL 095 


BCPL 


100 


BCPL 


0S4 


BCPL 


106 


BCPL 


022 


BCPL 


118 


8CPL 


120 



BDIA DESCRIPTIVE TEXT 



CL0AD=*E60* EC LEVEL=1282 1l PAGE 33 



THE RESIDENT M ICRODI AGNUSTI C -BDIA- IS ENTERED WHEN 

1. THE SYSTEM RESET KEY IS RELEASED 

(TRAP TO ADDRESS 02401 

2. THE LOAD KEY IS RELEASED 

I TRAP TO ADDRESS 0240) 

3. THE CONTROL STORAGE LOAD ROUTINE -BCPL- IS 
FINISHED LOADING A CSL DECK. 

( bRANCH TO LABEL . * VERSON * I 



ERRORS ARE INDICATED BY 

1* A ONE WORD BRANCH LOOP 

2. A STOP WORD 

3. A BRANCH TEST STOP FAILURE 

A ONE WORD BRANCH LOOP IS IDENTIFIED BY THE SYSTEM 
LIGHT ON AND THE MANUAL LIGHT OFF. THE CLOCK WILL RUN BUT 
THE MICROPROGRAM DOES NOT PROGRESS. 



ThE -BDIA- ROUTINE TESTS THE CPU HARDWARE NEEDED TO 
PERFORM A CONTROL STORAGE LOAD OPERATION. NO I/O DEVICE 
OR ATTACHMENT CIRCUITS ARE TESTED. 

THE TESTS PERFORMED BY THE -BDIA- ROUTINE ARE - 
BRANCHING TEST 
ALU TEST 

.■40DE REGISTER SET/RST TEST 
STORAGE TEST 
X LINE ADDRESSING TEST 
LOCAL STORAGE SET/RST TEST 
ALU ERROR DETECTION TEST 

STORAGE DATA, CONTROL WORD t STORAGE ADDRESS TEST 
A AND B REGISTER PARITY DETECTION TEST 



A STOP *ORD iMQVE/ARITH-WORD TYPE 3) CAUSES THE CLOCK 
TO STOP, THE CLOCK STOP LIGHT IS ON, THE SYSTEM LIGHT IS 
OFF, THE MANUAL LIGHT IS ON, AND THE ADDRESS DISPLAYED IS 
THE ADDRESS OF THE CONTROL WORD FOLLOWING THE STOP WORD. 

A BRANCH TEST STOP FAILURE IS CAUSED BY A BRANCH ON 
CONDITION WORD OR RETURN WORD FAILING TO REACH A WORD THAT 
SETS THE DR-REGISTER. DR BIT 7 IS SET PRIOR TO EACH 
OF THE BRANCH TESTS, AND THE BRANCH OR RETURN MUST POINT 
TO A SET OF THE DR-REGISTER. THE FAILURE IS INDICATED 
BY THE CLOCK OFF, THE CLOCK STOP LIGHT IS ON, SYSTEM LIGHT 
OFF, MANUAL LIGHT ON, AND, THE ADDRESS OF THE NEXT 
SEQUENTIAL WORD FOLLOWING THE WORD REACHED IN ERROR, 
DISPLAYED IN THE CONSOLE LIGHTS. 



A DDR 



JoFE 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



0240 



BDIA 001 T 

BDIA 002 ATA8LE ADDR=08F£ 
8240 BDIA 008 VERSON 018 

BDIA 012 AEND 

BDIA 013 ATA8LE ADDR=0240 

BDIA 014 * 

BDIA 015 * 

BDIA 016 * 

BDIA 017 * 
2810 BDIA 018 START 

BDIA 019 * 

BDIA 020 * 

BDIA 021 * 

BDIA 022 * 

BDIA 023 * 

BDIA 024 * 

BDIA 025 * 

BDIA 026 * 

BDIA 027 * 

BDIA 028 * 

BDIA 029 * 



NEXTLABEL STATEMENT 

BDIA BASIC DIAGNOSTIC 



COMMENTS 



START 



BR 



SET DR K^Ol 



START RESIDENT DIAG. 



DEPRESSION OF THE SYSTEM RESET 
BUTTON OR LOAD BUTTON WILL CAUSE 
A HARDWARE TRAP TO ADDRESS 0240. 

SET DR-7. DR 7 IS USED IN 
CFECKING THE BRANCHING FUNCTIONS 
OF THE MOD 25. A DIAG BR LATCH 
IS SET EVERYTIME A MOD 25 BRANCH 
OR RETURN FUNCTION IS EXECUTED 
AND DR 7 IS ON. IF THE NEXT 
MICROINSTRUCTION AFTER THE BR 
OR RETURN DOES NOT ISSUE A SET 
TO THE DR REG, A HARD STOP WILL 
OCCUR AT THE COMPLETION OF THAT 
MACHINE CYCLE. 



AUDR 
02 42 



0244 



0246 
02 48 

02 4A 
024C 



024E 
0250 



0252 
0254 



0256 



02 3C 



023E 



WORD 
3210 



SEQUENCE NO. LABEL 



2400 



F8CB 
B7C9 

2810 
2 5F3 



C54F 

2810 



0553 
2810 



E53C 



2810 



F56C 



BOIA 

BOIA 

BOIA 

BDIA 

BD1A 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BOIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA, 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 

BDIA 



030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
06 3 
064 
065 
066 
067 
06 d 
069 
070 
071 
72 
073 
074 
075 
076 
077 
078 
079 
080 
081 
82 



NEXTSEQ NEXTLABEL STATEMENT 



SET MMSK K=81 



* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 

* 
* 
* 
* 



CL0AD=*E60, EC LEVEL=1282ll 

COMMENTS 

SET SYSTEM RESET PRIORITY 
BIT(MMSK-8). 

THE FIRST WORD OF THE TRAP SETS 
TFE DIAG BR LATCH TO INSURE A 
MACHINE STOP IF AN ERRONEOUS 
BRANCH STATEMENT IS EXECUTED 
TFE SECOND WORD OF THE TRAP SETS 
MMSK 8 TO PREVENT FURTHER TRAPS 
FOR THE SAME SYST RST/LOAD TRAP 
REQUEST* AS A RESULT OF THE 
DELAYED SETTING OF MMSK 8, THE 
TRAP WILL OCCUR TWICE FOR EACH 
SYSTEM RST/LOAD TRAP REQUEST* 
THEREFORE, THE FIRST TWO WORDS 
WILL BE EXECUTED TWICE BEFORE 
THE FOLLOWING WORD IS EXECUTED. 
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SET MODE K=0 



BCDR7 



***************************** 

BRANCHING TEST. 
***************************** 

056 BCDR7 BR IF OR BIT 

122 DR70FF N N=8AH 

SET DR K=Oi 
G1=0$K0F 



STORAGE ZONE 4. 
**************************************** 

**************************************** 



7=1 



BCG10N 



BCG11N 

♦ 
* 
* 
* 

AENO 
ATABLE 
BCG12Y 

* 
* 
* 

AEND 
ATABLE 



061 BCG10N 



066 BCG11N 



075 BCG12Y 



BR IF Gl BIT 
SET DR K=01 



0=1 



BR IF Gl BIT 
SET DR K=0i 



1=1 



ADDR=023C 



083 BCG13Y 
AD0R*026C 



BR IF Gl BIT2=0 



SET DR K=01 



BR IF Gi BIT3=0 



BR TO 024A IF DR-7 IS ON 

DR 7 SHOULD BE ON. BRANCH ON 
BA HIGH FOR BETTER RESOLUTION. 

SET DR-7 TO CONTINUE BR TESTS. 

ATTEMPT TO SE T G 1 REG = 000011 11 
IF A STOP OCCURS AT THE ADDRESS 
OF THE NEXT WORD, Gl WAS SET 
WRONG OR THE BRANCH TEST FAILED. 

G10=0 SHOULD NOT BRANCH. 

SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE ADDRESS 
OF THE NEXT WORD, Gl WAS SET 
WRONG OR THE BRANCH TEST FAILED. 

Gll=0 SHOULD NOT BRANCH 

SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE NEXT 
SEQUENTIAL WORD FOLLOWING THIS 
BRANCH, Gl WAS SET WRONG OR THE 
BRANCH TEST FAILED. 

G12=0 SHOULD BRANCH TO ADR 023C 



SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE NEXT 
SEQUENTIAL WORD FOLLOWING THIS 
BRANCH, Gl WAS SET WRONG OR THE 
BRANCH TEST FAILED. 

G13=0 SHOULD BRANCH TO ADR 026C 



2 6C 
u26E 



1FFC 
1FFE 



2000 
2002 



2u04 

2006 



2u08 
2 00A 
2O0C 



2 0*0 



2o42 



205E 



2 60 



0440 



2J7E 



2080 
2082 
2J84 
2086 

2088 



WORD SEQUENCE NO. 



2810 
9FFC 



2810 
057F 



2810 
25F5 



E5C4 
2810 



F5C8 
2810 
A040 



2810 



C55F 



2810 



D57F 



50C7 



2800 



3E09 
C483 
FC85 
EC87 
F489 



BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 



083 
084 
085 
G86 
G87 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
1C4 
105 
106 
107 
108 
109 
110 
ill 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 



LABEL 

BCG13Y 

AEND 
ATABLE 

UB1FFC 
HCTRL 
AEND 
ATABLE 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 



EC LEVEL=1282il PAGE 35 



087 UB1FFC 
ADDR=1FFC 

AD0R=2000 



* 

* 
BCG12N 



* 

* 

BCG13N 



096 BCG12N 

101 BCG13N 
106 UB2040 



AEND 

ATABLE ADDR=2040 

UB2 04 
* 



SET OR K=01 
BR 



SET OR K=01 

BR IF Gl BIT 1=1 



SET DR K=01 
G1=0$KF0 



BR IF Gl BIT2=0 
SET DR K=01 



BR IF Gl BIT 3=0 

SET DR K=01 
BR 



SET DR K=0l 



AEND 

ATABLE ADDR; 
BCG10Y 

* 

* 
* 



114 BCG10Y BR IF Gl BITOl 

:2G5E 

SET DR K=0i 



AEND 

ATABLE ADD* 

DR70FF 
AEND 
ATABLE ADDR=207E 

BCG11Y 
* 

* *** 

* 



125 BCG11Y BR IF Gl BITl^l 

0440 



STOP 



SET DR-7 TO CONTINUE BR TESTS. 
UNCONDITIONAL BRANCH TO ADR 1FFC 



SET DR-7 TO CONTINUE BR TESTS. 
NO BRANCH 



SET 


DR- 


-7 TO CONTINUE 


BR TESTS. 


ATTEMPT TO SET Gl 


REG 


i = 11110000 


IF 


A STOP OCCURS 


AT 


THE ADDRESS 


OF 


THE NEXT WORDi 


f Gl 


. WAS SET 


WRONG 


OR THE BRANCH 


TEST FAILED 


G12=l 


SHOULD NOT 


BRANCH 


SET 


DR- 


-7 TO CONTINUE 


BR TESTS. 


IF 


A STOP OCCURS 


AT 


THE ADDRESS 


OF 


THE 


: NEXT WORDi 


r Gl 


. WAS SET 


WRONG 


OR THE BRANCH 


TEST FAILED 


G13^ 


= 1 


SHOULD NOT 


BRANCH 


SET 


DR- 


•7 TO CONTINUE 


BR TESTS. 


UNCONDITIONAL BRANCH 


TO ADR 2040 



SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE NEXT 
SEQUENTIAL WORD FOLLOWING THIS 
BRANCH, Gl WAS SET WRONG OR THE 
BRANCH TEST FAILED. 

G10=l SHOULD BRANCH TO ADR 205E 



SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE NEXT 
SEQUENTIAL WORD FOLLOWING THIS 
BRANCH, Gl WAS SET WRONG OR THE 
BRANCH TEST FAILED. 

Gll=l SHOULD BRANCH TO ADR 207E 



CPU MODE AND DR 7 OFF, 



DCOER 
DC7ER 
DC6ER 
ACONER 



SET DR K=00 THIS COMPLETES BDIA BRANCHING 

TESTS. 

******************** ****** **************************************** 

ALU TEST -MANY OF THE WORDS IN THIS TEST CAUSE ALU ERRORS IF THE CKT 
BEING TESTED FAILS AND THEREFORE DO NOT HAVE TO BE TESTED BY BR WDS 
****************************************************************** 

H0=0-K00 **FF=00-00 WITH NO CARRY 

32 DCOER BR IF Z=0 CHK FOR DYN BIT BEING OFF. 

33 DC7ER BR IF LZ=0 CHK FOR DYN BIT 7 BEING OFF. 

34 DC6ER BR IF HZ=0 CHK FOR DYN BIT 6 BEING OFF. 

35 ACONER BR IF AC* 1 CHK FOR DYN BIT 3 BEING OFF 



A JDK 


WORD 


SEQUENCE NO. 


LABEL 


208A 


6EE5 


BDIA 


136 




2 8C 


ACDA 


BDIA 


137 




^J8E 


2E0D 


BDIA 


138 








BDIA 


139 


* 






BDIA 


140 


♦ 






BDIA 


141 


♦ 


2u90 


ACDA 


BDIA 


142 




20 9 2 


7EEL 


BDIA 


143 








BDIA 


144 


♦ 






BDIA 


145 


♦ 






BDIA 


146 


♦ 


20 94 


F494 


BDIA 


14 7 


NOACER 


2096 


7tEl 


BDIA 


148 




2u98 


6EE3 


BDIA 


149 




209A 


2E5F 


BDIA 


150 




209C 


6EE3 


BDIA 


151 




209E 


6EE9 


BDIA 


152 




20A0 


CE5F 


BDIA 


153 




20A2 


C4A2 


BDIA 


154 


UT3ER1 


20A4 


2E87 


BDIA 


155 




20A6 


3E27 


BDIA 


156 




20A8 


2EEF 


BDIA 


157 




20AA 


2E7 7 


BDIA 


158 




2 J AC 


1E87 


BDIA 


159 




20AE 


1EB7 


BDIA 


160 




20B0 


2EF7 


BDIA 


161 




2062 


Otll 


BDIA 


162 




?0b4 


f 064 


BDIA 


163 


DC7ERR 


2JB6 


E0B6 


BDIA 


164 


DC6EKR 


20B8 


1EFB 


BDIA 


165 




20 BA 


A0L2 


BDIA 


166 




^OBC 


1EF3 


BDIA 


167 








BDIA 


168 


* 






BDIA 


169 


♦ 






BDIA 


170 


♦ 


20 BE 


A0E2 


BDIA 


171 




20C0 


3L15 


BDIA 


I 12 








BDIA 


173 


♦ 






BDIA 


174 


* 






BDIA 


175 


* 


zuC2 


A0E2 


BDIA 


176 




UC<* 


3cCD 


BDIA 


177 








BDIA 


178 


♦ 






BDIA 


179 


* 






BDIA 


180 


♦ 


20C6 


2E1D 


BDIA 


181 




20C8 


2FF5 


BDIA 


182 




2 OCA 


AODA 


BDIA 


183 




20CC 


OFFD 


BDIA 


184 








BOIA 


185 


* 






BDIA 


186 


♦ 






BDIA 


187 


♦ 


20CE 


C4CE 


BDIA 


188 


ALUER2 



NEXTSEQ NEXTLABEL STATEMENT 

HO=HO$HO 
195 CK4FF BAL 

HO=HO*KOO 



201 CK4F0 



201 CK4F0 



195 CK4FF 



188 ALUER2 



CLQAD=+E60, EC LE VEL=1282 11 
COMMENTS 

**FF=FF%FF 

♦♦BRANCH TO CHECK HO FOR FF 

♦♦FF=FF*00 

IF A STOP OCCURS AT THE AOORESS 
OF THE WORD BELOW, THE CHECK FOR 
FF HAS FAILED. 
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195 


CK4FF 


BAL 

HO = HO-HO*l 


♦♦00=FF-FF*1 WITH A CARRY 

IF A STOP OCCURS AT THE 
OF THE WORD BELOW, THE C 
FF HAS FAILED* 


ADD 

;hec 


147 


NOACER 


BR IF AC=0 

H0=H0-H0+1 
H0=H0*H0 
H0 = H0«-K55 
H0=H0+H0 
HOC=HO*HO + i 
Z=H0nK55 


♦♦SHOULD HAVE DYN 3 BIT ON 

♦♦00=00-00*1 

♦♦00=QO*OC 

♦♦55=00+55 

♦♦AA=55*55 

♦ ♦55=AA+AA«-1 

♦♦00=55a55 




154 


WT3ERI 


BR IF ZNZ 


♦♦HO SHOULD BE 55 AND DYN BIT0=l 






H0«0$K88 


♦ ♦88=00$88 








H0=H0$K22 


♦♦AA=88$22 








H0=HO*KEE 


♦♦98=AA+EE 








H0=0$K77 


♦♦77=00$7 7 








H0=H0^-K88 


♦♦77=7 7^-88 








H0=H0*-K8B 


**44=77*-BB 








HO=0$KFF 


**FF=OQ$FF 








Z=H0+K0l 


♦♦00=FF*OI 




163 


DC7ERR 


BR IF LZNZ 


CHK FOR DYN BIT 7 BEING 


ON. 


164 


DC6ERR 


BR IF HZNZ 
H0=H0aK0F 


CHK FOR DYN BIT 6 BEING 
♦♦FO*FFaOF 


ON. 


201 


CK4F0 


BAL 
HO=HO^-KOF 


♦ ♦BR TO CHECK HO FOR FO 

♦ ♦FO^FO^-OF 





BAL 

H0=HO$K10 



BAL 

HO=HQ-KOO 



H0=H0*K10 
H1=0$KF0 
BAL 
Z=HlaKF0 



BR IF ZNZ 



IF A STOP OCCURS AT 
OF THE WORD BELOW, 
FO HAS FAILED. 

♦♦BR TO CHECK HO FOR FO 

♦♦FO^FOSIC 

IF A STOP OCCURS AT 
OF THE WORD BELOW, 
FO HAS FAILED. 

♦♦BR TO CFECK HO FOR FO 

♦♦EF«FO-00 

IF A STOP OCCURS AT 
OF THE WORD BELOW, 
FO HAS FAILED. 

♦♦FF=EF+10 

♦♦FO=00+FO 

♦♦8R TO CHECK HO FOR 

♦♦00=FOaFO 

IF A STOP OCCURS AT 
OF THE WORD BELOW, 
FO HAS FAILED. 

♦♦HI SHOULD BE FO AND DYN B 



THE ADDRESS 
THE CHECK FOR 



THE ADDRESS 
THE CHECK FOR 



THE ADDRESS 
THE CHECK FOR 



FF 

THE ADDRESS 
THE CHECK FOR 

IT 0=1 



A DDK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


20DO 


1FF5 


BDIA 


189 








H1=H1*-KF0 


20D2 


C4D2 


BDIA 


190 


ALUER3 


190 


ALUER3 


BR IF ZNZ 


2004 


2EF5 


BDIA 


191 








H0=0$KF0 


20D6 


A0E2 


BDIA 


192 




201 


CK4F0 


BAL 


20D8 


A0E8 


BDIA 


193 




207 


MORTST 


BR 






BDIA 


194 


* 


***************************** 


20DA 


GEFF 


BDIA 


195 


CK4FF 






Z=HOaKFF 


2 DC 


C4E1 


BDIA 


196 




198 


ZISCK 


BR IF Z=0 


2QDE 


2810 


BDIA 


197 


ANOTFO 






SET DR K=01 


2UE0 


128E 


BDIA 
BDIA 
BDIA 


198 
199 

200 


ZISOK 






RTN 


zotz 


OEFD 


BDIA 


201 


CK4F0 






Z=H0nKF0 


20E4 


C4DE 


BDIA 


202 




197 


ANOTFO 


BR IF ZNZ 


20fc6 


128E 


BDIA 


203 








RTN 






BDIA 


204 


* 


***************************** 






BDIA 


205 


* 


TEST MCDE REG 


FOR SET/RESE 






BDIA 


206 


* 


***************************** 


20 E 8 


24F6 


BDIA 


2 07 


MORTST 






SET MODE K=3 


20EA 


b78F 


BDIA 


2 08 








IO=BA 


20EC 


ifc87 


BDIA 


209 








I0=I0^-K88 


2QEE 


087F 


BDIA 


210 








ZM0QK77 


Z0F0 


EOFO 


BDIA 


211 


MDSTHI 


211 


MDSTHI 


BR IF HZNZ 


20F2 


F0F2 


BDIA 


212 


MDSTLG 


212 


MDSTLG 


BR IF LZNZ 


20F4 


2400 


BDIA 


213 








SET MODE K=0< 


20F6 


574F 


BDIA 


214 








G0=BA 


20F3 


C467 


BDIA 


215 








Z=G0*-K88 


20FA 


EOFA 


BDIA 


216 


MDRTHI 


216 


MDRTHI 


BR IF HZNZ 


20FC 


FOFC 


BDIA 


217 


MDRTLO 


217 


MDRTLO 


BR IF LZNZ 






BDIA 


218 


* 


***************************** 






BDIA 


219 


* 


BEGIN STORAGE 


TEST 






BDIA 


220 


* 


***************************** 


2JFfc 


2EF7 


BDIA 


221 








HO=0$KFF 


2100 


2FF7 


BDIA 


111 








H1=0$KFF 


2102 


6EG2 


BDIA 


116 








STH H DC* 88 


2104 


2£C5 


BDIA 


224 








H0=0$K00 


2106 


2FC5 


BDIA 


225 








Hl=O$K0O 


<:108 


4EC2 


80IA 


226 








RDH H DC* 88 


21GA 


OFFF 


BDIA 


227 








Z=H1QKFF 


2 IOC 


EC8C 


BDIA 


228 


DCRiER 


228 


DCRIER 


BR IF HZNZ 


210E 


F08E 


BDIA 


229 


DCR2ER 


229 


DCR2ER 


BR IF LZNZ 


2110 


1EFF 


BDIA 


230 








H0=H0aKFF 


2112 


C4S2 


BDIA 


231 


DCROER 


231 


DCROER 


BR IF ZNZ 


^114 


2E33 


^DIA 


232 








H0=0$K0 3 


21 16 


2FE7 


BDIA 


233 








Hi=0$K88 


2118 


6FE8 


BDIA 


2 34 








STB HI CS.H+ 


21 1A 


6FEA 


BDIA 


235 








STB HI CS,H- 


2 llC 


44E8 


BDIA 


236 








RDH G CStH+2 


21 IE 


2F13 


BDIA 


237 








H1=0$K01 


2120 


048F 


BDIA 


238 








Z=G0aK88 


2122 


E0A2 


BDIA 


2 39 


DCR3ER 


239 


DCR3ER 


BR IF HZNZ 


2124 


F0A4 


BDIA 


240 


DCR4ER 


240 


DCR4ER 


BR IF LZNZ 


2126 


257F 


BDIA 


241 








G1=G1+K77 



CL0AD^*E60, EC LEVEL=1282 11 PAGE 37 
COMMENTS 

**00=FQ*-FO 

♦ ♦HI SHOULD BE ZERO AND DYN BIT = 1 
♦♦FG=00$F0 
**BR TO CHECK HO FOR FO 

♦ ♦BR TO MODE REG SET/RESET TEST 
****************************************** 

HO SHOULD BE FF 

AND DYN BIT 0=1 • 

SET DR 7 AND DO A RTN WHICH 

WILL CAUSE A STOP WITH THE 
ADDRESS OF THE BAL TO 
THIS SUBROUTINE + 4. 
HO SHOULD BE FO 

AND DYN BIT 0=1. 

**************************************** 

T 

**************************************** 

F **SET LS AND EXT MODE TO 7 
*♦ G0=XII I XIII 
** G0=7 7 

LOOP IF MODE REG 2-4 NOT ALL ON 
LOOP IF MODE REG 5-7 NOT ALL ON 

♦♦SET LS AND EXT MODE TO ZERO 
♦♦GO=X000>0O0 
♦*Z=00 

LOOP IF MODE REG 2-4 NOT ALL OFF 
LOOP IF MODE REG 5-7 NOT ALL OFF 
**************************************** 

**************************************** 

**H=FFFf 

♦♦CTRL ADDR 0388=FFFF 

♦♦H=0G00 

♦♦READ CTRL STOR 0088 INTO H REG 
**00=FFaFF 

LOOP IF HI HIGH IS NOT F 

LOOP IF HI LOW IS NOT F 
**00=FFaFF H=00FF 
♦♦SHOULD HAVE READ FF IN TO HO 

♦♦ H=03 88 

1 ♦♦ CTRL ADDR 0388=88FF H=0389 
1 ♦♦ CTRL ADDR 0388=8889 H=0388 

♦♦ G=8889 H=038A 
♦♦ H=0301 
♦♦00=88a88 

LOOP IF HI HIGH IS NOT 8 

LOOP IF Hi LOW IS NOT 8 
♦♦00=89+77 



ADDR 

2128 
212A 
212C 
212E 
2130 
2132 
2134 
2136 

2138 
213A 

213C 
213E 
2140 
2142 
2144 
2146 
2148 
214A 
214C 
214E 



08EC 
08EE 
08F0 
08F2 
08F4 
08F6 
08F8 
08FA 
08FC 



U800 
U802 
0804 
0806 
0808 
08 OA 



WOKC SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



C4A8 
2EC5 
55EA 
C4AE 
2E45 
3FE9 
2 5F7 
75E0 

25C5 
55EA 

05FF 
C4BE 
FB34 
44E6 
0440 
C4C6 
75F1 
C4CA 
CC60 
8 8EC 



LUED 
E1EF 
2fc€7 
2F05 
6E12 
6E22 
3EE9 
2F77 
88C2 



4E02 
2E1B 
2F10 
CAOO 
6E02 
8388 



BDIA 
BDIA 
BOIA 
BOIA 
BOIA 
BOIA 
BOIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 



242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
2 57 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
2 73 
274 
275 
276 
277 
278 
279 
280 
281 
2 82 
283 
284 
2 85 
286 
287 
288 
289 
290 
291 
292 
293 
294 



CSRIER 



BMODER 



AUXSTT 



242 CSIUER 



245 BMODER 



AUXERR 

DBMERO 
D8MER1 



AEND 

* 

* 

* 

ATABLE 
LSADDR 
CKS60F 



255 AUXERR 
248 AUXSTT 



259 DBMERO 
261 DBMER1 
269 LSADDR 



BR IF ZNZ 

H0=0$K00 

RDB Gl AStH-1 

BR IF ZNZ 

H0=0$K40 

H1=0-KE0 

Gl=0$KFF 

STB Gl AS,H 

Gi=0$K00 

RDB Gl AS,H-1 

Z^GlnKFF 

BR IF ZNZ 

BR IF HI BIT 7= 

G=H 

Z=G0nK40 

BR IF ZNZ 

Gl^Gl-Hl+l 

BR IF ZNZ 

RST S K=06 

BR 



CL0AD=*E60, EC LEVEL=l282 1l 

COMMENTS 

♦♦SHOULD HAVE READ 89 IN TO Gl 

** H=0001 

**H=OOOQ 

**ARITH MODIFIER OFF B REG FAILED IF BR 

** H=4000 

** H=401F 

**G=88FF 

**1ST PASS AUX ADDR 401E=XXFF H=401F 

♦♦2ND PASS AUX ADDR 401E=FFFF H=401E 
**G=8800 
**G=88FF AFTER 1ST PASS, H=401E 

♦♦ AFTER 2ND PASS f H=401D 

♦♦OO^FFaFF 

♦♦SHOULD HAVE READ FF IN TO Gl 
= 

♦♦ G=401D H=4G1D DBL BYTE MOD TEST 
♦♦ 00=40n40 

♦♦ SHOULD HAVE MOVED 40 FROM HO TO GO. 
♦♦ 00= ID- ID* 1 
♦ ♦ SHOULD HAVE MOVED ID FROM HI TO Gl 

RESET S5 AND S6. 
♦♦BR TO X LINE ADDRESSING TEST 



PAGE 38 



********************************************************************* 

X LINE ADDRESSING 
********* **************************************** ******************** 

ADDR=08EC 

269 LSADOR BR IF S5=l NO BR. CHECK S5 OFF. 

270 CKS60F BR IF S6=i NO BR. CHECK S6 OFF. 

H0=0$K88 XX XK ADDRESSABLE 8A AND 8C 

Hi=0$K00 X SET TO 8800 WHICH IS 

STH H DC8A X BR TO 0800 

STH H DC, 8C X 

H0=0-KE0 0000 H SET TO 1F77. THIS IS THE 

Hi=0$K77 INIT VALE REQ'D FOR A^OSKK 

281 BEGMQD BR BR TO 0802 



AENO 

ATABLE 
MOOC WD 
BEGMOD 



C 

* 
* 
* 
* 
* 
* 
* 
* 
* 



ADDR=08QQ 



RDH H 0C88 
HO=HO+KOi 
Hl^Hi+KiO 
302 CKPASS BR IF HO BIT4=l 

STH H DC, 88 
XCTL«8388« BR TO K 
FUNCTION PERFORMED BY CTRL WOROS IN 
FIRST PASS SECOND PASS 

88 2XX7 A=0$KK 88 OXXF Z^AaKK 



XX>X MODIFY CTRL WD AT K88. 

X 

X 

X BR AFTER 8TH PASS.. 

X 
ADDR 88 AT ADDR 0388. 
K ACDR. CTRL STORAGE 

THIRD PASS FOURTH PASS 

88 4XX3 B=AXH*BL 88 OXXF Z=AaKK 



2087 U0=0$K88 
2197 U1=0$K99 
22 A7 V0=0$KAA 
23B7 Vi=0$KBB 
24C7 GO=0$KCC 



008F Z=U0a88 

019F Z*=U1Q99 

02AF Z^VOaAA 

03BF Z=VlaBB 

04CF Z^GOaCC 



4003 U0=U0XH*U0L 
4113 U1=U1XH*UU 
4223 VG=VOXH«-VOL 
4333 V1=V1XH+V1L 
4443 GO=GOXH*GOL 



008F Z=U0a88 
01 9F Z = Ula99 
02AF Z=VOaAA 
03BF Z^VlaBB 
04CF Z=GOaCC 



ADDH 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 



080C 
OBOE 
J810 
U812 
0814 
08 16 
0818 
081A 
081C 
081E 
0820 
0822 
0824 
0826 
0828 
OS 2 A 
08 2C 
082E 
3 30 
8 32 
08 34 
0836 
0838 



03D8 
03DA 
3 DC 
030E 
03E0 
03E2 
03E4 
03E6 
03E8 
03EA 
03fcC 
03EE 
3F0 



03C0 



E1A3 
2020 
E190 
2EC5 
3E43 
2F85 
3FA3 
6E12 
2EF7 
3F89 
8802 
C020 
E1A5 
C1AC 
0040 
8308 
2040 
DiAE 
4E22 
6E12 
3EC9 
5EF1 
8802 



4812 
3935 
292B 
68E2 
2A25 
2BF5 
3B73 
2C25 
2D 15 
3DB3 
2EC5 
2F13 
8300 



C4C0 



BDIA 
80IA 
BDIA 
BDIA 
80IA 
BOIA 
BOIA 
BOIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 



295 

2 96 
297 
298 
299 
300 
301 
302 

3 03 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 



* 

* 
* 
* 
* 



CKPASS 



CKS6E1 



PASS24 
CKS6E0 



N0T4TH 
CKS5E1 



AENO 

A TABLE 
LSSET 



25D7 Gi=0$KOD 
26E7 DO=0$KEE 
27F7 Dl=0$KFF 
8A BR 



05DF Z=G1QDD 
06EF Z=DOnEE 
07FF Z=DlnFF 
8A BR IF ZNZ 



TO MODCWD. TO 38 A, 
8C BR 8C BR 

TO MODCWD. TO MODCWD 



313 PASS24 



304 CKS6E1 



281 BEGMOD 



314 
318 



CKS6E0 
N0T4TH 



331 LSSET 



319 CKS5E1 



281 BEGMOD 



BR IF S6^=l 

SET S6 

BR IF S6=0 

HO^=0$KCO 

H0=H0$K04 

H1=0$K80 

Hl=Hl$KOA 

STH H DC,8A 

H0=0$KFF 

Hl=0-K80 

BR 

RST S6 

BR IF S6=i 

BR IF S5=0 

RST S5 

BR 

SET S5 

BR IF S5=0 

ROH H 0C,8C 

STH H 0C f 8A 

H0=0-KC0 

H1=HQX 

BR 



4553 G1=G1XH*GIL 05DF Z=GlaD0 
4663 DQ=DQXH«-D0L 06EF Z^DQaEE 
4773 DI=D1XH+D1L 07FF Z=DiaFF 
8A BR 8A BR IF ZNZ 

TO MODCWD TO 038 A 

8C BR 8C BR 

TO MODCWD TO MODCWD 

CHECK PASS. BR AFTER 2ND OR 4TH. 

S6=l TO SAY NEXT PASS IS 2 OR 4. 

CHECK SET OF S6 

XXXX SET 8A TO C48A WHICH IS 

X BR IF ZNZ TO 038A 

X 

X 

X 

0000 H SET TO FF7F. THIS IS THE 

INIT VALUE REQ f D FOR 7=AaKK 

BR TO BEGIN MODIFIC OF CTRL WD, 

PASS 2 OR 4 JUST FINISHED. RESET 

S6 TO INDICATE NEXT PASS IS 3RD. 

S5=i INDICATES 4TH PASS COMP. 

BR TO LOCAL STOR SET/RESET TEST 

NEXT PASS IS THIRD 

CK SET OF S5. 

XXXX RESTORE 8A TO BR TO 0800 

X 

0000 H SET TO 3FF3. THIS IS INIT 

VALUE REQ»0 FOR B=AXH+BL 

BR TO BEGIN MODIFIC OF CTRL WD. 



*********************************************************************** 

* LOCAL STORAGE SET/RESET ROUTINE..... ZONE ZERO 

*********************************************************************** 

ADDR=0308 



355 STNWCW 



* 

AEND 
A TABLE 
NOTRST 



ADDR*03C0 

347 



NOTRST 



RDH I DC f 8A 

I1=I1$K30 

I1=I1*K02 

STH I DC, BC 

T0=0$K20 

T1=0$KF0 

T1-TUK07 

P0=0$K20 

P1=0$K10 

P1^P1$K0B 

H0=0$K00 

Hl^OSKOl 

BR 



BR IF ZNZ 



I=C48A 
I=C4BA 
I^=C4BC 

XXXX T 

X 

X 

0000 F 





XXXX 

X 



XXX K-ADDR BC IS SET 
X C4BC WHICH IS A 
X BR IF ZNZ 

X TO ITSELF. 
SET TO 20F7 WHICH IS 
U0=0$KFF 

SET TO 201B 
U0=U0*K01 



TO 



WHICH IS 



H 



SET TO 0001 WHICH IS 
Z=U0+K00 
BR TO STORE THE THREE CONTROL 
WORDS JUST BUILT IN T, P, AND H. 



CK THAT ALL BITS WERE RESET. 



ADOR 

03C2 
03C4 
03C6 
03C8 
03CA 
03CC 
3CE 
03DO 
0102 
J304 
J3D6 



WORD SEQUENCE NO. LABEL 



■NE'XT-SEQ NEXTLABEL STATEMENT 



3F2 
031-4 
03F6 
J3F8 
3FA 



u>FC 
3FE 



JH3A 
■J8 3C 
JB3E 
v>340 
Ja42 

08 46 
0848 
084A 
08 4C 



084E 
0850 



4AC2 
4C02 
4EF2 
2A1B 
2C1B 
Zt IB 
ECF2 
6AC2 
6CD2 
6EF2 
83(38 



2505 
2518 
F4FD 
C4F4 
5007 



24 13 

683C 



6443 
25C5 
7543 
38C8 
0500 
38C0 
0AC6 
1212 
2800 
C43A 



2440 
886E 



BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 



348 
349 
350 
351 
352 
3 53 
354 
355 
356 
357 
358 
3 59 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
3 72 
373 
374 
375 
376 
377 
378 
379 
380 
3 81 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
3 94 
395 
396 
397 
398 
399 
400 



RDQLCW 



373 DYNCRT 



STNWCW 



C 

AfcND 

* 

* 
* 
* 

* 
* 
ATABLE 

DYNCRT 
ZINCR 



* 
ALUEDT 



A END 

ATABLE 
CKALOE 
ZER0G1 



ALCKER 



RDH T 
RDM P 
RDH H 
TO=TO 
PO=PO 
H0=H0 
BR IF 
STH T 
STH P 
STH H 
XCTL« 



DC,B8 
DC, BA 
DC, BE 

♦KOI 

♦KOI 

♦KOI 
HZNZ 
DC,B8 
DCBA 
DC, BE 

83B8« 



CL0AD^*E60, EC LEVEL=1282U 
COMMENTS 

READ OLD CTRL WORDS. 
READ OLD CTRL WORDS. 
READ OLD CTRL WORDS. 
MODIFY CTRL WDS.. . INCREMENT X. 
MODIFY CTRL WDS.. . INCREMENT X. 
MODIFY CTRL WDS... I NCREMENT X. 
BR IF SIXTEENTH PASS COMPLETED. 
STORE NEW CONTROL WORDS. 
STORE NEW CONTROL WORDS. 
STORE NEW CONTROL WORDS. 
BR TO K-ADORESSABLE B8. 
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**************************************** 

* THE 4 CCNTROL WORDS BELOW WERE BUILT I 

* STORAGE AND BRANCHED TO FROM THE WORD 

* THIS IS DONE 16 DIFFERENT TIMES, WITH 

* MODIFY THE FUNCTION OF THE WORDS* 

* K-ADDR 88...CTL STOR ADDR 03B8 EQUALS 

* K-ADDR BA...CTL STOR ADDR 03BA EQUALS 

* K-ADDR BC...CTL STOR ADDR 03BC EQUALS 

* K-ADDR BE...CTL STOR ADDR 03BE EQUALS 
* 



******************************* 
N K-ADDRESSABLE CONTROL 
IMMEDIATLY ABOVE THESE COMENTS. 
•X« INCREMENTED EACH TIME TO 

2XF7 A-ASKFF 

2XIB A^A+KOl 

C4BC BR IF ZNZ TO ITSELF 

0X01 Z=A*K00 



**************************************** 

ADDR=03F2 

**************************************** 



G1^=0$K00 **SET Gl 

Gi=Gl+K01 ♦♦ OBTAIN 

381 ALUEDT BR IF AC- 1 ♦ ♦END OF 

374 ZINCR BR IF ZNZ ♦♦BR BACK 

STOP **DYN CON 

**************************************** 

ALU ERROR DECT ECT ION TEST 
**************************************** 

G0=0$K01 
386 ZER0G1 BR 



******************************* 

***************************** 
TO ZERO AND THEN INCREMENT TO 

ALL BIT COMBINATIONS ON Z BUS 
TEST— BR TO ALU OE TEST 

TO CHECK ALL Z BUSS BIT COMB 
D REG BIT IS ON IN ERROR 
***************************** 

***************************** 



AD0R=083A 



** DISABLE STOP ON ERROR € FORCE PLUS 
** SIDE OF ALU A ENTRY CAUSING ALU CK 



GO=GO+GO 

G1=0$K00 

G1*G1-G0 

SET DR K=C0 

Z=GlaK00 

SET DR K=80 
391 ALCKER BR IF MC BITS^O ♦ ♦ALU ERROR SHOULD HAVE SET MC 5 

RST MMSK K=91 

SET DR K=00 
385 CKALOE BR IF GO BITO^O ♦♦BRANCH BACK TO CHECK EACH OE CKT 

********************************************************************* 

STORAGE 0ATA f CONTROL WORD, STORAGE ADDRESSt A REG AND B REG 

PARITY DETECTION TEST DC REG BITS 3,6 AND 7 MUST BE OFF 

********************************************************************* 

SET MODE K=04 
415 CKSTPC BAL ♦♦STORE ADDR OF CHECK DATA TO BE READ 



AuUR 


WORD 


SEQUENCE NU. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


0852 


CE3F 


BDIA 


401 








Z=H0aK33 


8b4 


FED4 


BDIA 


402 


KOCKCE 


402 


ROCRCE 


BR IF MC3=0 


8 56 


4E80 


BDIA 


403 








RDH H CSt I 


0858 


6t80 


BDIA 


404 








STH H CS, I 


085A 


FACA 


BDIA 


40b 


NOB PC 


405 


NOBPC 


BR IF MC7=0 


085C 


0E3F 


BDIA 


406 








Z=H0nK33 


08 5E 


EADE 


BDIA 


407 


NOAPC 


407 


NOAPC 


BR IF MC6=0 


0860 


12 12 


BDIA 


408 








RST MMSK K=9i 


Ob 6 2 


&8 6E 


BDIA 


409 




415 


CKSTPC 


BAL 


)864 


0F1F 


BDIA 


410 








Z=HinKll 


)866 


FEE6 


BDIA 


411 


R1CRCE 


411 


R1CRCE 


BR IF MC3=0 


0868 


4t80 


BDIA 


412 








RDH H CS,I 


OtibA 


6t80 


BDIA 


413 








STH H CS, I 


08 6C 


02t2 


BDIA 


414 








RTN H MMSK 1=0 


0866 


/ -!t80 


8DU 


415 


CKSTPC 






RDH H CSt I 


08 7 


38G4 


BDIA 


416 








SET OR K=A0 


08 72 


6E80 


BDIA 


417 








STH H CS, I 


08 74 


CAF4 


BDIA 


418 


NOSDPC 


418 


NOSDPC 


BR IF MC4=0 


08 76 


.3 800 


BDIA 


419 








SET DR K=80 


oa 78 


12 8E 


BDIA 
BOIA 


420 
421 


A END 






RTN 






BOIA 


422 


ATABLE 


ADOR-OFIE 






uF it 


FFSF 


BDIA 


42 3 


NOSTAC 


423 


NOSTAC 


BR IF MC2=0 


JF2Q 


XlYI 


BDIA 


424 








RST MMSK K=91 


Oh 22 


5tFF 


BDIA 


42b 








H1 = MC 


OF 24 


C4A4 


BDIA 


426 


MCRSTfc 


426 


MCRSTE 


BR IF ZNZ 


OF 26 


2800 


BDIA 


427 








SET DR K=00 


OF 28 


2020 


BDIA 


428 








SET S6 


)F2A 


60^4 


BDIA 
BDIA 


432 

438 


AEND 


BCHK 005 


START 


BR 



CL0AD^*E60 f EC LEVEL=1282ll 

COMMENTS 

♦♦THIS ADDR CONTAINS OE 3F 

♦♦SHOULD HAVE RO CTRL WORD PARITY CHECK 

♦ ♦H=0E3F WITH EVEN PARITY IN HO 
♦♦RESTORE CHECK DATA WITH GOOD PARITY 
♦♦SHOULD HAVE SET B REG PARITY CK LATCH 
♦♦SET A REG PARITY CK LT £ RST DC3,6£7 
♦♦SHOULD HAVE SET A REG PARITY CK LATCH 
♦♦RESET MC REG 
♦♦STORE ADDR OF CHECK DATA TO BE READ 

♦ ♦THIS ADOR CONTAINS OF IF 

♦ ♦SHOULD HAVE Rl CTRL WORD PARITY CHECK 

♦ ♦H=0FIF WITH EVEN PARITY IN HI 
♦♦RESTORE CHECK DATA WITH GOOD PARITY 

MMSK1=0 ♦♦CAUSE STOR ADDR CK— H1=1F WITH P BIT 
♦♦1ST LOOP H=0E3F f 0N 2ND LOOP H=OF IF 
♦♦DISABLE STOP ON ERROR AND FORCE 
♦♦ STORE BITS PO AND PI TO MEMORY 

♦♦SHOULD HAVE SET STOR DATA PARITY LT 

♦♦RST FORCING OF STORE BITS PO AHD PI 

♦♦RTN FOR ADDITIONAL TESTING £ 2ND LOOP 



♦♦SHOULD FAVE SET STORAGE ADDRESS CHECK 

♦PRESET MC REG 

♦♦CHECK RESET OF MC REG 

♦♦MC REG SHOULD HAVE BEEN RESET 

♦♦ALLOW STOP ON ERROR 
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♦ CROSS REFERENCE FOR CSECT BDIA ♦ 



>}JIA 


018 


BDIA 


0C8 


tiHA 


056 


BDIA 


053 


■AD I A 


061 


BDIA 


061 


nOIA 


066 


BDIA 


066 


rDIA 


075 


BDIA 


072 


:.JIA 


083 


BOIA 


080 


*01A 


087 


BDIA 


084 


■•WIA 


096 


BDIA 


0S6 


■iOIA 


101 


BOIA 


1C1 


oOIA 


106 


BDIA 


1C3 


^OIA 


114 


BDIA 


111 


< J I A 


122 


BDIA 


054 


SDIA 


125 


BDIA 


119 


>0IA 


132 


BDIA 


132 


: OIA 


133 


BDIA 


133 


01 A 


134 


BDIA 


134 


^JIA 


135 


BDIA 


135 


.>UIA 


147 


BDIA 


147 


,-JlA 


154 


BDIA 


154 


->JIA 


163 


BDIA 


163 
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********************************** 

* CROSS REFERENCE FOR CSECT BDIA * 
********************************** 



BDIA 


164 


BOIA 


164 








bOIA 


188 


BOIA 


ita 








BDIA 


190 


BOIA 


ISO 








BDIA 


195 


BOIA 


137 


BDIA 


142 BOIA 183 




HO I A 


197 


BOIA 


202 








i*OI A 


198 


BDIA 


1S6 








BDIA 


201 


BDIA 


166 


BOIA 


171 BOIA 176 BDIA 192 


bOIA 


207 


BDIA 


1S3 








8014 


211 


BDIA 


211 








BO I A 


212 


BDIA 


212 








BDIA 


216 


BOIA 


216 








BDIA 


217 


BDIA 


217 








BDIA 


228 


BDIA 


228 








rtOIA 


229 


BDIA 


2 29 








BDIA 


231 


BOIA 


2-31 








BDIA 


2 39 


BDIA 


239 








BDIA 


240 


BDIA 


240 








301 A 


242 


BDIA 


242 








BDIA 


245 


BOIA 


245 








30 I A 


248 


BOIA 


2 56 








BOIA 


255 


BDIA 


255 








dOIA 


259 


BOIA 


2 59 








JOIA 


261 


BOIA 


261 








H)IA 


269 


BOIA 


263 


BDIA 


269 




,i)IA 


270 


BDIA 


270 








•UIA 


281 


BOIA 


277 


BOIA 


312 BOIA 324 




oOIA 


302 


BOIA 


283 








BDIA 


304 


BOIA 


304 








BOIA 


313 


BDIA 


302 








BDIA 


314 


BOIA 


314 








dOIA 


318 


BDIA 


315 








BDIA 


319 


BOIA 


319 








BOIA 


331 


BOIA 


317 








BOIA 


347 


BDIA 


347 








BOIA 


355 


BOIA 


343 








BOIA 


373 


BOIA 


354 








BOIA 


374 


BOIA 


376 








BOIA 


381 


BOIA 


375 








BOIA 


385 


BOIA 


394 








BOIA 


386 


BDIA 


382 








BOIA 


391 


BOIA 


391 








BOIA 


402 


BOIA 


4C2 








BDIA 


405 


BOIA 


4C5 








BOIA 


407 


BOIA 


4C7 








BOIA 


411 


BDIA 


411 








BOIA 


415 


BDIA 


4 CO 


BDIA 


40 9 




BOIA 


418 


BDIA 


418 








BOIA 


423 


BDIA 


423 








BOIA 


426 


BDIA 


426 
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BMCK DESCRIPTIVE TEXT 



WHEN A MACHINE ERROR OCCURS ISEE -MO REGISTER), A 
MACHINE CHECK TRAP IS TAKEN IF - 
MMSK 8 AND 9 NOT ON 
MACHINE CHECK MASK LATCH ON tMW BIT 5) 

IF MMSK 8 OR 9 ARE ON AND A MACHINE ERROR OCCURS, THE 
HARD STOP LATCH IS SET AND THE SYSTEM STOPS. 



SINCE THE LOGOUT LATCH IS SET IN THIS ROUTINE, NO CPU 
INSTRUCTION WILL BE EXECUTED UNTIL THE PRINTOUT OF THE 
LOGOUT AREA IS COMPLETED. ANY PREVIOUS PR-KB OPERATION 
IN PROCESS, SUCH AS ALTER/DISPLAY, INSTRUCTION STEP ADDRESS 
TYPE- OUT, OR NORMAL PR-KB FUNCTIONS WILL BE FORCED TO 
TERMINATE. THE PRINT OUT OF THE LOGOUT AREA STARTS AFTER 
A CARRIAGE RETURN WITHOUT ANY HEADER INFORMATION. 



IF THE MACHINE CHECK TRAP IS ALLOWED THE TRAP ADDRESS 
0220 IS FORCED ON THE SAR LINES AND THE -BMCK- ROUTINE IS 
ENTERED AT LABEL * TRAPWD *. 

MMSK BITS 0-6 ARE TESTED AND IF ANY ARE ON (INDICATES 
THAT AN I/O TRAP OPERATION WAS IN PROGRESS WHEN THE MACHINE 
CHECK OCCURED), THE I/O OPERATION WILL BE TERMINATED, AND 
AN ATTEMPT TO CAISE AN I/O INTERRUPT IS MADE. IF MMSK BITS 
0-6 ARE NOT ON, A MACHINE CHECK INTERRUPT TAKES PLACE. 



THE -BCHK- ROUTINE LOADS THE LOGOUT AREA IN PROGRAM 
STORAGE, LOCATIONS 0080 - 0085* WITH THE INFORMATION LISTED 
BELOW. THE -ALDP- ROUTINE HANDLES THE PRINTOUT OF THIS 
LOGOUT AREA ON THE PR-KB. 



MACHINE CHECK LOGOUT AREA 
******** ****** ******** *** *********** ********************************************************************************************** 



L.OC C08C 



LOC 0081 



LOC 0082 



LOC 0083 



LGC 0084-0085 



TRAP PRIORITY REGISTER 

<MMSK) 
3 IT 

0- CHANNEL HIGH PRIORITY TRAP. 

L- 2311 DISK CONTROL TRAP 

2- CHANNEL LOW PRIORITY TRAP 

3- 2540 READER TRAP 

4- 2540 PUNCH TRAP 

i- COMM. BIT SERVICE TRAP 

6- COMM. CHAR. SERVICE TRAP 

7- LEVEL I PRIORITY HOLD 



BRANCH CONDITION REGISTER 

IBA) 
BIT 

0- CHANNEL INTERRUPT LATCH 

1- MODE BIT 

2- MODE BIT 1 

3- MODE BIT 2 

4- I PL LATCH 

5- LS ZONE BIT 

6- LS ZONE BIT 1 

7- LS ZONE BIT 2 



MACHINE CHECK REGISTER 

IMC) 
BIT 

0- FILE CONTROL CHECK 

1- STORAGE PROTECT PARITY CHECK 

2- STORAGE ADDRESS PARITY CHECK 

3- CONTROL WORD PARITY CHECK 

4- STORAGE DATA PARITY CHECK 

5- ALU ERROR CHECK 

6- A-REG PARITY CHECK 

7- B-REG PARITY CHECK 



ERROR COUNT 



BACKUP ADDRESS- 
ADDRESS OF THE 
CGNTROL WORD IN 
OPERATION WHEN 
THE MACHINE CHECK 
OCCURRED. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 







BMCK 


001 


T 




MACHI 


NE CHECK TRAP Ri 






BMCK 


002 


ATABLE 


ADDR=0220 






0220 


3262 


BMCK 


003 


TRAPWD 






LINK D MMSK9= 1 


0222 


8CA6 


BMCK 
BMCK 


004 
005 


AEND 


006 


GETOUT 


BR 


0CA6 


7612 


BMCK 


006 


GETOUT 






STH D DA,8A 


0CA8 


566F 


BMCK 


007 








DO = MMSK 


OCAA 


577F 


BMCK 


008 








Di = BA 


OCAC 


7672 


BMCK 


009 








STH D DA,9E 


OCAE 


2610 


BMCK 


010 








SET BC K=01 


OCBO 


A2CF 


BMCK 


Oil 




028 


I NT RAP N 


BR IF MMSK=NZ 



SAVE ADDR+2 OF FAILING MICRO WD 
GET OUT OF TRAP AREA 

TEMP STORE REG FOR CHNL 
MOVE MMSK i TRAP PRIORITY) REG 
MOVE BAIBRANCH CONDITION) REG 
SAVE MMSK a BA REGS IN AUX K-7 
SET LOGOUT LATCH 
BR IF ANY MMSK BIT 



AuOR 

0CB2 
0CB4 
vJL B 6 
oF40 
UF 4 2 
JF 44 
OF 46 
Jt-48 
JF4A 
0F4C 
uh4fc 
OF 50 
OF 5 2 
0F54 
0F5o 
OF S>8 
JF5A 
JF 5C 
oF 5b 
J F 6 
Oh 6 2 
OF 64. 
1 37A 
13 7C 
137b 
1 i80 
1382 



MRU SfcUUbNCE NO. 



138* 
13 86 
1388 
13 8A 
13 8C 
138E 
1390 
1392 
1394 
1396 
1398 
1 39A 
1 39C 
139b 
1 3A0 
13A2 
13A4 
13 A 6 
i 3A8 
13AA 



2400 

213b 

98FA 

C603 

D6D5 

£603 

F6U7 

C2DB 

U2DF 

L2FL 

02 IE 

8C62 

83BC 

94AC 

21)02 

8FF6 

2D40 

8FF2 

021A 

021C 

10CC 

8F4E 

2CC7 

2400. 

5b3F 

1212 



5672 
244C 
7672 
24CC 
2165 
42CF 
7618 
7318 
57 1C 
271B 
7718 
5672 
16C5 
1713 
6666 
7618 
A7FA 
2404 
2233 
1F2E 



BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 



012 
018 
019 
028 
02 9 
030 
031 
32 
033 
034 
035 
036 
037 
038 
039 
040 
U41 
042 
04 3 
044 
045 
C46 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
C71 
072 
073 
074 
075 
076 
077 



LABEL 
NOTRAP 

INTRAP 



NEXTSEQ NEXTLABEL STATEMENT 



RSTK7 

CHNLCK 
DSKCHN 
RORTRP 

PCHTftP 

COMBI T 
CGMBYT 



LOGOUT 



CSTS 095 
037 
038 
037 
039 
041 
043 
044 

012 
DCLR 196 
FILT 075 

ETTR 043 

€TRP 066 



PICKUP 
CHNLCK 
DSKCHN 
CHNLCK 
RDRTRP 
PCHTRP 
COMBIT 
COMBYT 

NOTRAP 
CCCXXX 
MCHCHK 

RQUEST 

INLK 



035 RSTK7 



075 NGTMC 



SET MODE K=Q0 

Ui=0$K30 

BR 

BR IF MMSKO= 1 

BR IF MMSK1=1 

BR IF MMSK2* 1 

BR IF MMSK3= 1 

BR IF MMSK4* 1 

BR IF MMSK5= 1 

BR IF MMSK6=1 

RST MMSK K=71 

BR 

BR 

BR 

SET RP K=10 

BR 

SET RP K = 04 

BR 

RST MMSK K=51 

RST MMSK K=61 

RST CSETF K=80 

BR 

U0=0 

SET MODE K=00 

V1=MC 

BR IF Z=0 

RST MMSK K=91 
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COMMENTS 

SET TO CPU MODE £ ZONE 
MACHINE CHECK OLD PSW ADDR 
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GO 
BR 



TO STORE € LOAD MC PSW 

IF IN CHNL HI PRIORITY TRAP 



BR IF IN DISK CHAINING TRAP 

BR IF IN CHNL LO PRIORITY TRAP 

BR IF IN READER TRAP 

BR IF IN PUNCH TRAP 

8R IF IN COMM. BIT SVC TRAP 

BR IF IN COMM. CHAR SVC TRAP 

RST LEVEL 1 PRIORITY 

LEVEL I PRIORITY, NOT IN TRAP 

CHANNEL TRAPS 

SET READER MACHINE CK LATCH 
GO BACK TO RDR TRAP ROUTINE 
SET PUNCH MACHINE CK LATCH 
GO BACK TO PCH TRAP ROUTINE 
RSI BIT SERVICE TRAP 
RST GENERAL ICA TRAP 
ICA RESET 



SET CPU MODE TO BR ON MC REG 
MOVE MC REG 

BR IF NOT MACHINE CK LOGOUT 
RST MACHINE CHECK PRIORITY 



FROM THIS POINT ON, A SECOND MACHINE CHECK WOULD CAUSE A RETURN TO THE 
TRAP ADDRESS 0220, IF THE SECOND MACHINE CHECK OCCURRED PRIOR TO THE 
LAST INSTRUCTION, THE CPU WILL STOP WITH THE CLOCK OFF. THE LAST 
INSTRUCTION ALSU RESETS THE MC REGISTER. 



CCOM 181 RSTRKY 



NOTMC 



RDH D DA,9E 

SET MODE K=04 

STH D DA,9E 

SET MODE K=00 

U1^0$K80 

STPO=UO 

STH D U+2 

STB VI U*i 

RDB Di U+0 

D1 = DH-K01 

STB Dl U*l 

RDH DA,9E 

DO=DO*-KCO 

Dl*01*-K0i 

D=D~2 

STH U +2 

BAL 

SET MODE K=20 

V0=0$K03 

RST TA K=F2 **RST 



RD SAVED MMSK S BA FROM AUX K-7 
BACK UP ZONE 

XFER MC BACKUP AODR TO AUX K-7 
SET TO CPU MODE I ZONE 
SET UP ADDR OF LOGOUT AREA 
DISABLE STORAGE PROTECT 
STORE MMSK, BA IN LOCATION 80»8i 
STORE MACHINE CK REG IN 82 
READ LAST ERROR COUNT FROM 83 
ADD i TO ERROR COUNT 
STORE UPDATED ERROR COUNT IN 83 
READ BACKUP MICRO ADOR INTO D 
STRIP BITS 0,1 - HZ,LZ 
STRIP 8IT 15 - ALU CARRY 
MICRO ADDR POINTS AT FAILING WD 
MICRO WD AODR OF FAILURE IN 84,5 
RESTORE THE CPU KEY 
SET BACK TO 1052 MODE 
HW COUNT EQUALS 3 
RD, WT, M-FORCE, ALDP, SHARE IF ON 



ADCR 


WORD 


SEQUENCE NO, 


13AC 


2171 


BMCK 


078 


13AE 


2BC7 


BMCK 


079 


13 BO 


7ACO 


BMCK 


080 


13B2 


4632 


BMCK 


081 


1384 


261D 


BMCK 


82 


13B6 


271D 


BMCK 


083 


13B8 


6662 


BMCK 


084 


13BA 


17AB 


BMCK 


085 


13BC 


2185 


BMCK 


086 


13BE 


873C 


BMCK 


087 


13CO 


968C 


BMCK 


088 
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LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

Ul=0-K07 th=C0F8 - PRKBU052) UCW ADDR 
T1=0 

STH T AS, 0*0 RST 1ST HW OF 1052 UCW 

ROH D DC,8E READ OUT CONSTANT OF 4E08 

D0=D0+K10 SET D TO 5E18 FOR 

Di=Dl*K10 *RDH H U+2* 

STH DC,9C STORE 'DOIT' WD FOR ALDP ROUTINE 

D1=D1QK0A SET FLAGS FOR MC CK OR CE TRAP 

U1=0$K80 SET UP ADDR 

ALDP 182 LINEFD BAL FOR A LINE FEED 

ALDP 100 COLCNT BR GO TO PRINT OUT LOG AREA 

********************************** 

* CROSS REFERENCE FOR CSECT BMCK * 
********************************** 



BMCK 


003 


FiLT 


074 


BMCK 


006 


BMCK 


0C4 


BMCK 


012 


BMCK 


036 


BMCK 


028 


BMCK 


Oil 


BMCK 


035 


BMCK 


046 


BMCK 


037 


BMCK 


028 BMCK 030 


BMCK 


038 


BMCK 


029 


BMCK 


039 


BMCK 


031 


BMCK 


041 


BMCK 


032 


BMCK 


04 3 


BMCK 


33 


BMCK 


044 


BMCK 


034 


BMCK 


047 


DYPE 


021 


BMCK 


075 


BMCK 


050 
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BPSW 



DESCRIPTIVE TEXT 



ENTRY POINTS TO THE BPSW ROUTINE 



PROG WHEN A PROGRAM INTERRUPTION IS DETECTED DURING 

INSTRUCTION PROCESSING THE BPSW ROUTINE IS ENTERED 
HERE. THE CURRENT PSW, ALONG WITH THE INTERRUPTION 
CODE, IS STORED IN THE PROGRAM OLD PSW LOCATION AND 
THE PROGRAM NEW PSW IS READ OUT AND PLACED IN 
CONTROL. 

PROGA ENTRY. IS MADE HERE IF A PROTECTION ERROR OR AN 
EXECUTE INSTRUCTION IS DETECTED. PSW HANDLING IS 
THE SAME AS FOR PROG ENTRY. 

ENTRYB ENTRY IS MADE HERE FOR EXTERNAL INTERRUPT, 

CHANNEL INTERRUPT, OR CHANNEL INITIAL SELECTION. 
HIGH ORDER HEX DIGIT FOR PROPER PSW AOORESS IS SET 
PRIOR TO ENTRY HERE. 



ENTRY A SUPERVISOR CALL OR MACHINE CHECK TRAP CAUSES 
ENTRY AT THIS LABEL. 

LPSW ENTRY HERE IS TO COMPLETE THE 360 LOAD PSW 
INSTRUCTION OR TO LOAD THE I PL PSW. 

INTBR ENTRY HERE IS FROM CONDITIONAL BRANCH INSTRUCTIONS 
TO CHECK FOR ADDRESSING OR SPECIFICATION ERRORS. 

INTXA 
NINTXA ENTRY TO EITHER OF THESE LABELS IS FROM THE BSWI 
ROUTINE WHEN THE SOFT STOP LOOP IS EXITED. 

WAIT THIS LABEL IS BRANCHED TO WHEN THE WAIT BIT IS 
TESTED AND FOUND TO BE ON. 



PROGRAM STATUS WORD AND THE LOCATION OF THE CURRENT PSW 



7 8 11 12 15 16 31 32 33 34 35 36 39 40 47 48 63 

** ************************************************ *************************************************************************** 

* * * * * * * pRQG * * * 

* SYSTEM MASK * KEY * AMWP * INTERRUPTION CODE * ILC * CC ♦ MASK * * INSTRUCTION ADDRESS * 

* *** **** * * 
***************************************************************************************************************************** 



AUX 
A8 



AUX . AUX 

A9 . A9 

3.4 7 



LS . LS 

GO . PO 
.0 3 



LS 
Pi 

3 



AUX 



AA 



AB 



PSW ADDRESS ASSIGNMENTS 
HEX 



HEX 



00 
18 
20 
28 
30 
38 



INITIAL PROGRAM LOADING PSW 
EXTERNAL OLD PSW 
SUPERVISOR CALL OLD PSW 
PROGRAM OLD PSW 
MACHINE-CHECK OLD PSW 
INPUT/OUTPUT OLD PSW 



58 
60 

68 
70 
78 



EXTERNAL NEW PSW 
SUPERVISOR CALL NEW PSW 
PROGRAM NEW PSW 
MACHINE-CHECK NEW PSW 
INPUT/OUTPUT NEW PSW 



A DDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






BPSW 


001 


T 


PSW LOAD ANO STORING 






BPSW 


002 


* 








1C70 


2F07 


BPSW 


003 


PROG 






H1=0 


1C7 2 


2125 


BPSW 


004 


PROGA 






U1=0$K20 


1C74 


21EB 


BPSW 


005 


ENTRYB 






U1=U1+K0£ 


1C76 


20C7 


BPSW 


006 


ENTRY 






U0=0 


1C78 


42GF 


BPSW 


0C7 


ENTRYA 






STP0=U0 


1C7A 


5CEB 


BPSW 


008 








H0=P0H 


1C7C 


3E45 


BPSW 


009 








H0=HO$K40 


1C7E 


4DE5 


BPSW 


010 








H0=P1XL$H0H 


IC80 


E187 


BPSW 


Oil 




014 


NOTEXC 


BR IF S6=l 


1C82 


5892 


BPSW 


012 








ROH I OA,AA 


1C84 


SC8C 


BPSW 


013 




017 


EXECA 


BR 


1C86 


C40A 


BPSW 


014 


NOTEXC 


016 


WOW 


BR IF G00=0 


1C88 


2fc4D 


BPSW 


015 








H0=H0+K40 


1C8A 


D4CE 


BPSW 


016 


WOW 


018 


EXEC 


BR IF GOl^O 


1C8C 


2E4D 


BPSW 


017 


EXECA 






H0=H0+K40 


1C8E 


781A 


BPSW 


018 


EXEC 






STH I U-2 


IC90 


7EIA 


BPSw 


019 








STH H U-2 


1C92 


7A1A 


BPSW 


020 








STH T U-2 


1C94 


5E82 


BPSW 


021 








RDH H GA f A8 


1C96 


7E10 


BPSW 


022 








STH H U 


1C98 


214D 


BPSW 


023 








U1=U1«-K40 


1C9A 


5C18 


BPSW 


024 


LPSW 






ROH P U+2 


1C9C 


44CF 


BPSW 


025 








S M= PO 


1C9E 


42DF 


BPSW 


02 7 








STPO=Pl 


1CA0 


7C82 


BPSW 


029 








STH P DA f A8 


1CA2 


6004 


BPSW 


030 








U=U + 2 


1CA4 


5E18 


BPSW 


031 








RDH H U + 2 


ICA6 


5810 


BPSW 


032 








RDH I U 


ICA8 


4E03 


BPSW 


033 








P1=H0XH*P1L 


1CAA 


5ECB 


BPSW 


034 








PO=HOH 


1CAC 


ICC 5 


BPSW 


035 








PO=PO*-KCO 


1CAE 


FC32 


BPSW 


036 




038 


NOT 


BR IF PO 3=0 


IC80 


3C45 


BPSW 


037 








P0=P0$K40 


1CB2 


2AC7 


BPSW 


038 


NOT 






T0=0 


1CB4 


7CC2 


BPSW 


039 








STH P DA, 88 


ICB6 


4F0F 


BPSW 


040 








MW=P1 


1CB8 


E947 


BPSW 


041 


INTXB 


062 


WAIT 


BR IF P16=l 


1CBA 


2020 


BPSW 


053 


INTBR 






SET S6 


1CBC 


F1CA 


BPSW 


054 




064 


INTX 


BR IF S7=0 


1CBE 


ABC7 


BPSW 


055 


INTXA 


BPSW 065 


ADORER N 


BR IF HL=NZ 


1CCO 


09E3 


BPSW 


056 








Z=U*-KOE 


1CC2 


FOCC 


BPSW 


057 




059 


SPEC 


BR IF LZNZ 


1CC4 


A9A6 


BPSW 


058 




C1CY 008 


ISTART 3 


BR 


1CCC 


2407 


BPSW 


059 


SPEC 






G0=0 


1CCE 


2B63 


BPSW 


060 








T1=0$K06 


1COO 


9B04 


BPSW 


061 




067 


PR0G1 


BR 


1CC6 


0004 


BPSW 


062 


WAIT 






RST S2 


1CC8 


F1C7 


BPSW 


063 




062 


WAIT 


BR IF S7=l 


1CCA 


87CA 


BPSW 


064 


INTX 


BSWI 008 


CHECKE 


BR 


1BOO 


2405 


BPSW 


065 


ADORER 






G0=0$K00 


1B02 


2B53 


BPSW 


066 








T1=0$K05 
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COMMENTS 

001 

CLEAR INVALID ADD* 
CREATE 

PROG. PSW 
ADDRESS 

STOR PROT DISABLE 
PLACE THE 4 BIT CC INTO HO HIGH 
ASSURE ILC = 1 
PLACE PROG MASK INTO HO LOW 
TEST FOR EXECUTE 
READ OUT EXECUTE INST. COUNTER 

TEST OPCODE FORMAT FOR LENGTH 
ADD 1 TO LENGTH CODE ILC = 2 
TEST OPCODE FORMAT FOR LENGTH 
ADD 1 TO LENGTH CODE I LC=2 OR 3 
STORE INSTRUCTION ADDRESS 
STORE ILC, CC, AND PROG. MASK 
STORE INTERRUPT CODE 
READOUT SYS MASK, KEY, AMWP 
STORE INTO OLD PSW 
ADJUST TO NEW PSW ADDRESS 
START NEW PSW READ 
SET SYSTEM MASK 
SET PROTECT KEY 

STORE SYS MASK, KEY, AND AMWP 
POINT TO 3RD HALFWORD OF PSW 
PLACE 3RD HALFWORD PSW IN H-REG 
PLACE 4TH HALFWORD PSW IN I-REG 
PLACE PROG MASK AND AMWP INTO PI 
PLACE ILC AND CC INTO PO HIGH 
ZERO OUT ILC 
BRANCH IF CC I S OR 2 
MAKE 4 BIT CC = TO 5 OR 7 

SAVE PO-l 

SET WAIT L MACHINE CK BITS 

BRANCH IF WAIT BIT ON 

SET EXECUTE INDICATOR OFF 

BRANCH IF EXCEPTIONAL CONDITION 

BRANCH IF 24 BIT ADDRESS 

TEST LOW ADDRESS BYTE 

BRANCH IF ODD ADDRESS 

BRANCH TO ICYCLES FOR INST. READ 

ZERO OP CODE REGISTER 

SET BITS TO IDENTIFY SPEC. CHECK 

BRANCH TO INCREMENT INST. ADDR. 
** WAIT LOOP 
** LEAVE WAIT LOOP ON INTERRUPT 

BRANCH TO DETERMINE INTERRUPT 

ZERO OP CODE REGISTER 

SET BITS TO IDENTIFY ADDR. ERROR 



PAGE 47 



CLQAD=*E60, EC LEVEL=1282 1l PAGE 48 
ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

1B04 6884 BPSW 067 PROGi 1=1*2 INCREMENT INSTRUCTION ADDRESS 

1B06 9C72 BPSW 068 BPSW 004 PROGA BR BRANCH TO STORE INTERRUPT CODE 

********************************** 

* CROSS REFERENCE FOR CSECT BPSW * 
********************************** 

CFHA 037 CICY 046 CICY 060 CICY 067 CICY 069 CLST 015 CNVR 121 CSAS 130 



BPSW 


003 


CCOM 


072 


COMD 


061 


CFAO 


132 


BPSW 


004 


BPSW 


068 


BWRP 


069 


CBRC 


063 


BPSW 


005 


BSWI 


090 


DCHN 


076 






BPSW 


006 


CSIS 


OW 










BPSW 


014 


BPSW 


Oil 










BPSW 


016 


BPSW 


014 










BPSW 


017 


BPSW 


013 










BPSW 


018 


BPSW 


016 










BPSW 


024 


BSYS 


128 


CSTS 


007 






BPSW 


038 


BPSW 


036 


BSYS 


137 






BPSW 


053 


CBRC 


016 










BPSW 


055 


BSWI 


135 










BPSW 


059 


BPSW 


057 










BPSW 


062 


BPSW 


041 


BPSW 


063 


BSWI 


049 


BPSW 


064 


BPSW 


054 










BPSW 


065 


BPSW 


055 










BPSW 


067 


BPSW 


Ott 











BSWI 139 
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BSTP DESCRIPTIVE TEXT 



tNTRY TG THE -BSTP- ROUTINE IS MADE FROM THE -BSWI- 
RUUUNE *HEN AN INSTRUCTION STEP OPERATION OR A SET IC 
UPERATION IS PERFORMED. THE ENTRY IS MADE TO TEST THE 1052 
AND DETERMINE IF THE INSTRUCTION COUNTER CAN BE TYPED OUT. 



IF THE 1052 IS NOT BUSY, THE -ALOP- ROUTINE IS BRANCHED 
TO, AND THE INSTRUCTION COUNTER IS TYPED OUT* 

IF THE 1052 IS BUSY, THE INSTRUCTION COUNTER IS NOT TYPED 
OUT. THE -BSWI- ROUTINE IS BRANCHED TO. THE CPU KEY, P-REG, 
AND I-REG ARE RESTORED AND THE -CICY- ROUTINE IS BRANCHED TO, 



A OCR 



WURC SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 







8STP 


001 


T 


UF06 


2404 


BSTP 


002 


TYPADD 


OF08 


CF8F 


BSTP 


003 




OFOA 


DF8F 


BSTP 


004 




OFOC 


CESO 


BSTP 


005 




OFOE 


AAA2 


BSTP 


006 


BUSY 


OF 10 


B2F8 


BSTP 


007 


OK 


0F12 


4E66 


BSTP 


008 




uF14 


26C3 


BSTP 


016 


ABC 


OF 16 


2707 


BSTP 


017 




UF18 


2213 


BSTP 


018 




uflA 


<*6C4 


BSTP 


019 





oTP 002 

.HiTP 006 
BSTP 007 



BSM 118 
BSTP 003 
BSTP 0C5 



BSTP 004 



BSWI 
CCCM 



006 
006 
007 
066 
173 



BUSY 

BUSY 

OK 

RESTRH 

ST0RH1 



ALOP 157 ENTRY 



INSTRUCTION! TYPEOUT 
SET MODE K=20 
BR IF TUO=l 

TUl=l 

TT0 = O 



IF 
IF 



BR 

BR 

BR 

BAL 

H=I 

DO=0$KOC 

D1 = 

V0=0$K01 

BR 
********************************** 

* CROSS REFERENCE FOR CSECT BSTP * 

********************************** 



CHECK AND BRANCH IF READ LATCH 
CHECK AND BRANCH IF WR T LATCH 
CHECK AND BRACH IF NO ATTEN 

NO TYPE OUT WILL OCCUR 

SAVE HI 
PUT IC IN H REG 
BUILD 

FLAGS 
SET UP COUNT 
GO DISPLAY 



^SW I DESCRIPTIVE TEXT 
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fcNTRY POINTS 



DESCRIPTION — CONTINUED 



CHECKB - FROM I-CYCLES WHEN EXCEPTIONAL CONDITION, S7=0, IS 
RECOGNIZED. THE CONTROL WORD AT THIS ENTRY CREATES 
A VALID NEXT INSTRUCTION ADDRESS BY ENSURING THAT 
THE HIGH-ORDER BYTE IS CLEAR. 



THE FOLLOWING NOT ST BRANCH CONDITIONS CAUSE ENTRY TO THE BSWI 
ROUTINE. THESE CONDITIONS ARE LISTED ACCORDING TO PRIORITY OF 
TESTING. EXCEPT FOR SOFT STOP, THE MICROPROGRAM BRANCHES TO 
THE APPROPRIATE ROUTINE FOR HANDLING THE CURRENT CONDITION. 



CHECKE - FROM LOAD PSW ROUTINE AFTER LOADING A PSW OR AFTER 
AN EFFECTIVE BRANCH INSTRUCTION. IF THE MODE SW IS 
IN THE INSN STEP POSITION, THE CONTROL WORD AT THIS 
ENTRY TLRNS ON THE INSN STEP LATCH, BB BIT 5. BB5 
IS TURNED OFF BY THE START KEY, 

RESTRH - FROM ALTER/DISPLAY AND INTEGRATED I/O ROUTINES. 

THIS ENTRY RESTORES CPU MODE/ZONE, PROTECT KEY, AND 
L.S. REGISTERS BEFORE TESTING FUR THE NEXT INTERRUPT 
OR REQUEST, WHEN THE MICROPROGRAM EXITS FROM BSWI 
TO HANDLE A REQUEST, A RETURN IS MADE TO THIS ENTRY 
AFTER THE REQUEST IS PROCESSED. 



ASCRIPTION 

AhTER ENTRY AT ElTHtR -CHECKB- OR -CHECKE- , THE TIMER 
FUNCTION IS HANDLED. WHEN THE TIMER FEATURE IS PRESENT, THE 
1IMER IN PROGRAM STORAGE IS UPDATED IF THERE IS A VALUE IN THE 
-TIM-' COUNTER. THE -TIM- COUNTER IS THE INVERSE OF THE 
HARDWARE TIMING COUNTER THAT IS STEPPED BY POWER SUPPLY PULSES, 
«HEN THE TIMER VALUE IN PROGRAM STORAGE IS REDUCED THROUGH 
ZERO, AN EXTERNAL INTERRUPT IS INITIATED BY SETTING BC BIT 1. 



1. INTEGRATED I/O REQUEST BB1 * 1 

2. EXTERNAL INTERRUPT MASKED BB3 * 

3. CHANNEL I INTERRUPT MASKED BB6 = 

4. COMMUNICATIONS CHANNEL INTERRUPT PENDING BB7 = 

5. MASKED CHANNEL INTERRUPT BB2 * 

6. INSTRUCTION STEP LATCH BB5 « 1 

7. SET IC LATCH 8B4 = I 

8. SOFT STOP LATCH BBO = 

THE SOFT STOP LATCH IS SET BY ANY ONE OF THE FOLLOWING — 
INSN STEP LATCH, SET IC LATCH, ADDR MATCH, STOP SW, OR BY 
SETTING BCO. IF THE SOFT STOP LATCH IS ON WHEN TESTED, THE 
MICROPROGRAM LOOPS ON THE TESTS FOR INTEGRATED I/O REQUEST 
AND SET IC. EXIT FROM THE SOFT STOP LOOP OCCURS WHEN ONE OF 
THESE TESTS IS SUCCESSFUL OR WHEN THE SOFT STOP LATCH IS 
TURNED OFF, THE SOFT STOP LATCH IS TURNED OFF BY PRESSING THE 
START KEY, LOAO KEY, OR CSL KEY. 



ADDR 



WORD SEQUENCE NO, LA8EL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 







BSWI 


001 


T 






BSWI 


002 


♦ 






BSWI 


003 


* 






BSWI 


004 


* 






BSWI 


005 


* 






BSWI 


006 


* 


07C8 


2FC7 


BSWI 


007 


CHECKB 


07CA 


3600 


BSWI 


008 


CHECKE 


07CC 


B2F8 


BSWI 


009 




07CE 


5AEF 


BSWI 


Oil 




0700 


1EFF 


BSWI 


012 




07D2 


C4F7 


BSWI 


013 




0704 


5E09 


BSWI 


020 




0706 


6EE3 


BSWI 


021 





EXCEPTIONAL CONDITION ROUTINE D. L. SMITH 

REGISTERS NOT TO BE DESTROYED ARE 

PO - CONDITION CODE 

PI - PROG MASK AMWP BITS 

HI - HI ORDER 8 BITS OF A 24 BIT BRANCH ADDRESS 

101- INSTRUCTION COUNTER 
H1=0 



CCOM 173 ST0RH1 



047 GOINA 



SET BC K=80 

BAL 

HO^TIM 

H0=H0nKFF 

8R IF 1=0 

UO^HO 

H0=H0«-H0 



CREATE VALID BRANCH ADDRESS 
CONDITION INSTR STEP 
STORE HI IN AUX 00F4 
READ TIMER VALUE 
INVERT VALUE 

BR IF NO VALUE IN TIMER 
CALCULATE 
VAL UE 



ADD* 


WORD 


SEQUENCE NO* 


LABEL 


NEXT! 


SEQ 


NEXTLABEL 


STATEMENT 


w/DB 


6EE3 


BSWI 


022 










H0=H0+H0 


J 7 DA 


6EG3 


BSWI 


023 










HO=HO*UO 


o7UC 


2B55 


BSWI 


030 










T1=0$K50 


ij7Dt 


50B8 


BSWI 


Oil 










RDH U T+2 


u7EO 


52BA 


BSWI 


032 










RDH V T-2 


U7E2 


20C2 


B Swl 


033 










SET S3 


07E4 


72E9 


BSWI 


34 










VOC=VO-HO*C 


u7Eb 


71A9 


BSWI 


035 










U1C=U1-TQ«-C 


)7E8 


70A9 


BSWI 


036 










UOC=UO-TO+C 


7fcA 


42AF 


BSWI 


038 










STPO=TO 


7 EL 


70B8 


BSWI 


040 










STH U T+2 


07Efc 


72BA 


BSWI 


041 










STH V T-2 


07F0 


A7FA 


BSWI 


043 




CCCM 


181 


RSTRKY 


6AL 


u7F2 


F5F9 


BSWI 


045 






048 


CKWAIT 


BR IF S3=l 


07F4 


26C8 


BSWI 


046 










SET BC K=40 


07F6 


AA84 


BSWI 


047 


GOINA 




051 


INA 


BR 


u7F8 


E<576 


BSWI 


048 


CKWAIT 




047 


GOINA 


BR IF PI BIT 6; 


07FA 


9CC6 


BSWI 


049 




BPSW 


062 


WAIT 


BR 


2A84 


0FE8 


BSWI 


051 


INA 




078 


INB 


3R IF BB1=0 


2A86 


2040 


BSWI 


052 










SET S5 


2A88 


2C80 


BSWI 


053 


INH 








SET S4 


2A8A 


24C6 


BSWI 


054 


TSTRDR 








SET MODE K=30 


2A8C 


E990 


BSWI 


055 






057 


TSTPCH 


BR IF RS BIT6= 


2A8E 


9EBA 


BSWI 


056 




ERRQ 


029 


ROST 


BR 


2A90 


2402 


BSWI 


057 


TSTPCH 








SET MODE K=10 


2A92 


EBS6 


BSWI 


058 






060 


TSTTWR 


BR IF PS BIT6* 


2A94 


9EEA 


BSWI 


059 




ERRQ 


016 


PCHST 


BR 


2A96 


2404 


BSWI 


060 


TSTTWR 








SET MODE K=20 


2A98 


EA9C 


BSWI 


061 






063 


TSTPTR 


BR IF TT BIT6= 


2A9A 


9F10 


BSWI 


062 




OYPE 


002 


TWRREQ 


BR 


2A9C 


2482 


BSWI 


063 


TSFPTR 








SET MODE K=18 


2A9E 


FAA2 


BSWI 


064 






066 


RESTRH 


BR IF PRS BIT 


2AA0 


906A 


BSwI 


065 




DPTQ 


006 


PTRREQ 


BR 


2AA2 


2400 


BSWI 


066 


RESTRH 








SET MODE K=00 


2AA4 


2A07 


BSWI 


067 










TO=G 


2AA6 


A7FA 


BSWI 


069 




CCCM 


181 


RSTRKY 


BAL 


2AA8 


E1AD 


BSWI 


071 






073 


NOTPI 


BR IF S6=l 


2AAA 


9258 


BSWI 


072 




CCOM 


066 


LRSTRB 


BAL 


2AAC 


CLE 3 


BSWI 


73 


NOTPI 




075 


NOTSIO 


BR IF S4=l 


2AAE 


81B3 


BSWI 


074 




CICY 


005 


ISTART N 


N=S BITS67 


2AE2 


B354 


BSWI 


075 


NOTSIO 


CCOM 


186 


RESTRH 


BAL 


2AE4 


D1BE 


BSWI 


076 






105 


IND 


BR IF S5=0 


2AE6 


CG40 


BSWI 


077 










RST S5 


2AE8 


FFB1 


BSWI 


078 


INB 




091 


INC 


BR IF BB3=1 


2ALA 


59BF 


BS*I 


082 










T1=XINT 


2 A EC 


1BFF 


BSWI 


083 










TiaTlQKFF 


2AEE 


0640 


BSWI 


088 










RST BC K=04 


2AF0 


2115 


BSWI 


G89 










U1=0$K10 


2AF2 


9C74 


BSWI 


090 




BPSW 


005 


ENTRYB 


BR 


2AB0 


EBB5 


BSWI 


091 


INC 




099 


INE 


BR IF BB6=1 


2AB2 


A2FA 


BSWI 


093 




OCLT 


047 


INTENT 


BR 


2AB4 


FBB9 


BSWI 


099 


INE 




101 


INF 


BR IF BB7=l 


2A86 


5007 


BSWI 


100 




GINT******INTCQH 


BR 



CL0AD=*E60, 
COMMENTS 



EC LEVEL=128211 PAGE 51 



FOR 60 

CYCLE 

READ OUT 

CURRENT 

VALUE 

SET CARRY LATCH 

DO 

ARITH 
FUNCTION ON TIMER 
DISABLE STORAGE PROTECT 
STORE 
RESULT 
RESTORE CPU KEY 

BR IF NOT THRU 
TURN ON TIMER INT 
MAKE ADDRESSABLE 
BR IF NOT IN WAIT STATE 
TO AVOID RUNNING METER IN WAIT 
BR IF HO NATIVE REQUEST 



**SET MGDE^llO FOR RDR 
BR IF NO RDDR REQ 

**GQ TO RDR ROUTINE 

SET MODE=OIG FOR PCH 
=0 GO TO PCH ROUTINE 

**G0 TO PCH ROUTINE 

**SET M0DE=100 FOR 1052 
i=0 **BR IF NO 1052 REQUEST 
**G0 TO 1052 ROUTINE 

SET 1403 PRINTER MODE 
7=0 BR IF NO PTR REQ 

SET CPU MODE AND ZONE 

RST TO FOR NATIVES 

RESTORE CPU KEY 

BR IF P, I NOT STORED 

RESTORE P. I 

BR IF FROM REQ AND NOT SI 

RTN TO I CYCLES 

RESTORE CPU BYTE HI 



BR IF NO EXTERNAL INT* 
READ INTERRUPT REG FOR INT CODE 
INVERT IT 

INTERRUPT 
FUNCTION 

BR IF NO CHAN I INTR. 
GO TO CHANNEL I 

BR IF NO COMMUN* CHNL INTERRUPT 
GO TO COMMUNICATIONS 



A DOR 



WORD SEQUENCE NO* 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60 f 
COMMENTS 



EC LEVEL* 1282 It PAGE 52 



2AB8 
2ABA 
2A8C 
2A8E 
2AC0 
2AC2 
2AC4 
2AC6 
2AC8 
2ACA 
2ACC 
2ACE 
2AD0 
2AD2 
2AD4 
2AD6 
2AD8 
2ADA 
2ADC 
2ACE 
SAEQ 
2A82 



EFbU 
A3F2 

DBCB 
DF89 
CBCC 
2FC7 
5C8F 
519F 
C602 
8FC6 
CFBE 
2404 
FFOC 
3BE9 
56AA 
D25A 
8734 
1F2A 
2400 
E903 
9C8E 
SCC6 



BSWI 
BSWI 
BSWI 
BSWI 
BSwI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSwI 
BSWI 
BSWI 
BSWI 
8SWI 
BSwI 
BSWI 
BSWI 
BSWI 
BSWI 



101 
102 
104 
105 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
12 8 
135 
139 



INF 

ING 
I NO 
INZ 



INJ 
INI 



104 
OCHN 031 
118 
053 
119 



BSTP 002 
105 



ING 

ENTRY 

INJ 

INH 

INI 



TYPADO 
I NO 



127 INK 



STAROK 
INK 



INL 



126 
ALOP 212 



139 
BPSW 055 
BPSW 062 



STAROK 
RESET 



INL 
INTXA 
WAIT 
******* 

* CROSS 
******* 



BR IF 882^=1 
BR 

BR IF BB5=1 
BR IF BBl=l 
BR IF BB4=0 
H1*0 
IO=SWAB 
I1=SWCD 
RST bC K=10 
BR 

BR IF BBO-O 
SET MOOE K* 
BR IF TU3=0 
Tl=0-KEO 
ROH D AS,T- 
BR IF 00 B I 
BR 

RST TA K=D2 
SET MODE K* 
BR IF P 16^=1 
BR 
BR 
************** 

REFERENCE FOR 
************** 



20 



2 

T5=0 



**RST RD, 

00 



BR IF NO CHAN INTR. 
GO TO BURST CH INT ROUTINE 
BR IF INSTR. STEP 
BR IF NATIVE REQUEST 
NOT SET IC 
GET 
NEW 
INSTR, 
ADDR 
BR TO TYPE THE INST COUNTER 
CHECK FOR EXIT 

PUT IN 1052 MODE 
ALT/OISP ACTIVE CHECK 
T^ 00 IF i ALDP BACKUP AREA 
READ OUT ALDP FLAG HALF WORD 
BR IF ALDP READY TO •START' 
GO TO SET SOFT STOP £ MODE 
WR, ALDP ACTIVE LATCHE S, SH.REQ. 



WAIT STATE CHECK 
GO CHECK ADDRESS 
GO TO WAIT 



************* 

CSECT BSWI * 
************* 



t*SWl 


007 


CICY 


0C7 


CICY 


015 
















BSWI 


008 


BPSW 


064 




















BSWI 


047 


BSWI 


013 


BSWI 


048 
















KSwI 


048 


BSWI 


045 




















t^Wl 


051 


BSWI 


047 




















o$WT 


053 


BSWI 


1C5 




















:>SWI 


057 


BSWI 


055 




















->WI 


060 


BSWI 


058 




















o S w I 


063 


BSWI 


061 




















riSWl 


066 


ALDP 


2C2 


ALDP 


215 


BSTP 006 


BSWI 064 


DPTQ 021 


DYPE 018 


DYPE 52 


DYPE 087 DYPE 124 


EXFR 107 


: 3SWl 


073 


BSWI 


071 




















ti^W I 


075 


BSWI 


073 




















BSWI 


78 


BSWI 


051 




















BSWI 


091 


BSWI 


078 




















BSWI 


099 


BSWI 


GS1 




















iiSWl 


101 


BSWI 


C99 




















«SWI 


104 


8SWI 


1CI 




















dSWI 


105 


BSWI 


0?6 


BSWI 


119 
















BSWI 


118 


BSWI 


104 




















BSWI 


119 


BSWI 


113 




















BSWI 


126 


BSWI 


124 




















3^>WI 


127 


BSWI 


121 




















BSWI 


139 


BSWI 


128 





















BSYS DESCRIPTIVE TEXT 
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THE SYSTEM RESET ROUTINE IS ENTERED AT LABEL * SYSRST * 
FROM THE CHECK SUM ROUTINE -8CHK-, TO INITIALIZE CERTAIN 
I/O LATCHES AND AUXILIARY STORAGE LOCATIONS* 

THIS ENTRY IS MADE AFTER EITHER THE SYSTEM RESET, LOAD, 
OR CONTROL STORAGE LOAD KEYS ARE PRESSED. 



WHEN THE LOAD KEY IS PRESSED, THE FOLLOWING STEPS TAKE 
PLACE PRIOR TO ENTRY AT LABEL * SYSRST * - 

1 A HARDWARE RESET IS PERFORMED. 

2 THE RESIDENT DIAGNOSTIC -BDIA- IS EXECUTED. 

3 THE CHECK SUM ROUTINE -BCHK- IS EXECUTED. 

4 -BSYS- IS ENTERED AT LABEL * SYSRST *. 

5 THE -DCLL- ROUTINE IS BRANCHED TO FOR I PL START, 

6 WHEN IPL IS COMPLETED, A BRANCH TO -BSYS- AT 
LABEL * RETURN *. 

7 BRANCH TO -BPSW- TO LOAD THE INITIAL PSW. 



WHEN THE SYSTEM RESET KEY IS PRESSED, THE FOLLOWING STEPS 
TAKE PLACE PRIOR TO ENTRY AT LABEL * SYSRST * - 

1 A HARDWARE RESET IS PERFORMED. 

2 THE RESIDENT DIAGNOSTIC -BDIA- IS EXECUTED. 

3 THE CHECK SUM ROUTINE -BCHK- IS EXECUTED. 

4 -BSYS- IS ENTERED AT LABEL * SYSRST *. 



WHEN THE CSL KEY IS PRESSED, THE FOLLOWING STEPS TAKE 
PLACE PRIOR TO ENTRY AT LABEL * SYSRST * - 

1 A HARDWARE RESET IS PERFORMED. 

2 THE -BCPL-- ROUTINE IS EXECUTED. 

3 THE RESIDENT DIAGNOSTIC -BDIA- IS EXECUTED. 

4 THE CHECK SUM ROUTINE -BCHK- IS EXECUTED. 

5 -BSYS- IS ENTERED AT LABEL * SYSRST *. 



AI,DR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 






BSYS 


001 


T 




SYSTEM 


RESET 


216C 


3210 


BSYS 


002 


SYSRST 






SET MMSK K=8i 


216E 


2460 


BSYS 


004 








SET MODE K=06 


2170 


2607 


BSYS 


005 








00 = 


2172 


24F6 


BSYS 


018 








SET MODE K=3F 


2174 


4052 


BSYS 


019 








RDH U DC9A 


2176 


4206 


BSYS 


02 








V=U 


2178 


4406 


BSYS 


021 








G=U 


21 7A 


4606 


BSYS 


022 








D=U 


217C 


2DC8 


BSYS 


02 6 








SET GB K=40 


217E 


2490 


BSYS 


02 8 








SET MODE K=09 


21B0 


AFfcA 


BSYS 


029 


GOBAL 


FILE 280 


SETDA 


BAL 


2182 


8224 


BSYS 


03 




FILE 319 


RSTATT 


8AL 


2184 


4 9CF 


BSYS 


031 








MS=P0 


21 86 


E581 


BSYS 


032 




029 


GOBAL 


BR IF DAS 12=1 


2188 


2EC8 


BSYS 


033 








SET FIB K=40 


218A 


2482 


BSYS 


03 7 








SET MODE K=18 


218C 


4A52 


BSYS 


039 








RDH T DC,9A 


218E 


4E42 


BSYS 


040 








RDH H DC, 98 


2190 


5E-E6 


BSYS 


042 








H=H-1 


2192 


5 7E8 


BSYS 


043 








RDB 01 AS,H*1 


2194 


4S7F 


BSYS 


044 








PCCL=01 


2196 


2400 


BSYS 


045 








SET MODE K^OO 


2L98 


6EE4 


BSYS 


046 








H=H+2 



COMMENTS 



SET SYS RST PRIOR I TY, BLOC K TRAPS 
SET 2540 ZONE 
RST 2540 FLAG REG 

SET CHNL MODE AND ZONE 
RST U 



RSI MULTIPLEX LATCH 

SET TO 2311 MODE AND ZONE 

SET DEVICE ADDR £ SELECT MODULE 

GO RST GATED ATTENTION 

RESET MODULE SELECT 

BR IF ANY MORE GATEO ATTENTION 

RST FILE FLAG REG. 

SET 1403 MODE 

SET 1=0000 

SET H=O0C8 

H= COC 7 

GET PCCL CONSTANT 

SET PCCL LATCH FOR 1403 

SET CPU MODE AND ZONE 

H=0OCA 



/ i 9 A 
• ! 19C 

• 19E 

• iAU 
,1A2 
/ 1A4 

• LA6 

• LA8 
2 1AA 

• 1AC 
21AE 

• IBU 
>1B2 

• IB4 
21B6 

• IB8 

• iBA 

• 1BC 
^1BE 

• ICO 

• 1C2 

• iC4 

•1C6 

• lCd 

• ica 

• ice 

• lCfc 

• 100 
^102 

• 104 
?106 

• 108 

• IDA 

• IDC 
21LE 
21E0 

• 1E2 

•J0B4 



00 F4 



WORD SEQUtNCE -NO. LABEL 



56E0 
26C7 
577D 
17B3 
76EA 
7AE0 
2F1D 
F4A4 
2F91 
7AEA 
2E15 
7AEA 
2FF5 
7AE0 
7A3 2 
7A52 
7A62 
40A6 
3212 
1210 
20A0 
C3C8 
A5DA 
E8D2 
C62C 
1212 
4052 
SCSA 
162C 
1212 
5C82 
44CF 
42UF 
4852 
5CC2 
2FC7 
SCB2 

OEOC 



C090 



BSYS 
BSYS 
BSYS 
BSVS 
BSVS 
BSVS 
BSVS 
BSVS 
BSVS 
BSVS 
BSVS 
BSYS 
BSVS 
BSVS 
BSYS 
BSVS 
BSVS 
BSYS 
BSVS 
BSVS 
BSYS 
BSYS 
BSYS 
BSYS 
BSVS 
BSVS 
BSVS 
BSVS 
BSYS 
BSVS 
BSYS 
BSVS 
BSYS 
BSYS 
BSYS 
BSVS 
BSYS 
BSVS 
BSYS 
BSYS 
BSYS 
BSYS 
BSVS 



047 
04 8 
049 
050 
051 
053 
054 
055 
056 
057 
059 
060 
061 
062 
C64 
066 
06 7 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
140 
148 
149 
151 
155 



b^YS 002 

BSYS 029 

BSYS 053 

3SYS 124 

BSYS 125 

tiSYS 129 



BCHK 082 
BSYS 032 
BSVS 055 
BSYS 122 
OCLL 041 
BSYS 124 



LOOP! 



NEXTSEQ NEXTLABEL STATEMENT 



RDH D AS, H+0 
00=0 
Di=DiL 
D1=D1*-K0B 
STH AS,H-2 
STH T AS,H*0 
H1=H1*K10 
BR IF AC=0 
Hl=0-K09 
STH T AS, H-2 
H0=0$K10 
STH T AS, H-2 
H1=0$KF0 



053 LOOPI 



SYSTEM 
RETURN 



RESPSW 



124 

DCLL 002 

129 



SYSTEM 
I PL 
RESPSW 



BPSW 024 LPSW 



BPSW 038 
A TABLE ADDR=00B4 
C 

AENO 

A TABLE ADDR~00F4 
C 
AENO 



NOT 



AS,H*0 
DA,8E 
DA,9A 
DA,9C 



STH 

STH 

STH 

STH 

U=T 

SET MMSK K=9 1 

RST MMSK K=8i 

SET S K=0A 

BR IF BA4=0 

BR 

BR IF DR6=0 

RST BC K=62 

RST MMSK K=9i 

ROH U 0C,9A 

BR 

RST BC K=E2 

RST MMSK K=9i 

RDH P 0A,A8 

SM=PO 

STP0=P1 

ROH I DC,9A 

RDH P DA,B8 

H1=0 

BR 



XAUX f OEOCODlF« 



XAUX«0090 f 



CL0AD=*E60, EC LEVEL=l282ii 

COMMENTS 

GET UNIT STATUS AND SENSE BYTE 
RST UNIT STATUS 
RST SENSE BYTE LOW 
REC-EN BLOCK OATA CHECK 
CLEAR 1403 SENSE 
ZERO OUT 1ST HALFWORD OF THE 
NATIVE DEVICES' UCW 

UN 0X8, 00D8, 00E8, 00F8) 
H=CQF6 

CLEAR 1052 SENSE BYTE 
H*1GF4 

RST PCH INDICATORS & SENSE BYTE 
H*10F0 

RST RDR INDICATORS £ SENSE BYTE 
**RST STATLS/ACT BYTE FOR CHNL 1 OR 2311 
RST 2311 SENSE HALF WORD 1 
RST 2311 SENSE HALF WORD 2 

SET MCH CK TRAP BIT, STOP IF ERR 
RST SYS RST BIT TO ALLOW TRAPS 

BR IF NOT I PL 

BR IF NOT PSW RESTART 



PAGE 54 



ZERO OUT U REG 

SET STOP, RST CSL,RST SYS#RST I PL 
RST TRAP 

LOAD 
UP 
1HE 
LAST 
PSW 
ZERO HIGH ORDER ADDR 



********************************** 

* CROSS REFERENCE FOR CSECT BSYS * 
********************************** 
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3WRP DESCRIPTIVE TEXT 

tNTRY POINT 

THIS ROUTINE IS ENTERED WHEN A TRAP ADDRESS OF 0210 IS 
FORCED BY — 

1. STORAGE PR0TEC1 VIOLATION, PROTECT KEYS DO NOT MATCH. 

2. STORAGE WRAP VIOLATION, THIS OCCURS WHEN A PROGRAM STORAGE 
ADDRESS THAT EXCEEDS THE SYSTEM SIZE IS ENCOUNTERED* 



AFTER THE UNCONDITIQ 
BIT IS SET TO i FOR A 
STORAGE PROTECT VIOLAT 
THE ROUTINE DETERMINES 
FOR FILE, COMMUNICATIO 
BRANCHES TO THE APPROP 
FOR THE INTEGRATED I/O 
CHECK OR PROGRAM CHECK 
APPROPRIATE UCW, THEN 



NAL BRANCH, DYN BIT I IS TESTED. THIS 
STORAGE WRAP VIOLATION, IF DYN1 = 0, A 
ION HAS OCCURRED. FOR EITHER VIOLATION, 
THE MODE BY TESTING BA BITS 1,2, AND 3. 
NS, OR CHANNEL MODES, THE MICROPROGRAM 
RIATE ROUTINE TO ATTEMPT THE INTERRUPT. 
UNITS REMAINING, EITHER PROTECTION 
IS SET IN THE CHANNEL STATUS OF THE 
THE INTERRUPT IS ATTEMPTED. 



SYSTEM SIZE 
16K 

24K 
32K 
4 8K 



PRGG STOR ADDR RANGE 
0000 - 3FFF 
0000 - 5FFF 
0000 - 7FFF 
0000 - QFFF 



DESCRIPTION 



THE UNCONDITIONAL 8RANCH WORD AT THE START OF THE ROUTINE 
STORES THE ADDRESS +Z OF THE TRAPPED WORD IN BITS 2-6 OF THE 
I-REG BACKUP, I.E., ZONE 4. BI T 7 OF THE I-REG BACKUP IS SET 
FROM DYN BIT 3. IF THE TRAP OCCURS DURING INSTRUCTION READOUT 
IN I-CYCLES, THE ADDRESS STORED IN THE BACKUP I-REG IS THE 
ADDRESS OF THE TRAPPED WORD *3 BECAUSE DYN BIT 3 IS SET TO I 
LATER IN THE ROUTINE, THIS BACKUP ADDRESS IS DECREMENTED BY 
1 TO POINT TO THE CONTROL WORO THAT FOLLOWS THE TRAPPED WORD. 
THIS CONTROL WORD IS USED TO DETERMINE WHICH HALFWORD OF THE 
INSTRUCTION WAS BEING READ WHEN THE TRAP OCCURRED. THIS IS 
DONE IN ORDER TO SET UP THE NECESSARY REGISTERS FOR THE 
PENDING INTERRUPT. 



WHEN A STORAGE PROTECT VIOLATION IN CPU MODE OCCURS, THE 
PROTECTION ERROR IS FLAGGED, AND THE PROGRAM INTERRUPT IS 
INITIATED. 

WHEN A STORAGE WRAP VIOLATION IN CPU MODE OCCURS, TESTS ARE 
MADE TO DETERMINE IF THE WRAP OCCURRED DURING INSTRUCTION 
READOUT, AS PREVIOUSLY STATED. FOR ANY STORAGE WRAP VIOLATION 
IN CPU MODE, THE ROUTINE EXITS TO FLAG THE ADDRESS ERROR AND 
INITIATE THE INTERRUPT. 



ADDR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 







BWRP 


001 


T 




WRAP 


TRAP AND S 


TORAGE 






BWRP 


002 


* 














BWRP 


003 


* 














BWRP 


004 


* 














BWRP 


005 


* 














BWRP 


006 


* 














BWRP 


007 


A TABLE 


ADDR=0210 






02 10 


8 8 7C 


BWRP 
8WRP 


008 
009 


AEND 




010 


NXTADR 


BR 


08 7C 


D4FA 


BWRP 


010 


NXTADR 




020 


PROTCK 


BR IF DYNI=0 


0S7E 


9795 


BWRP 


Oil 






012 


STRG N 


N=BA BITS123 


0A80 


F790 


BWRP 


012 


STRG 





037 


ADDRCK 


BR IF BA3=0 


UA82 


94B4 


BWRP 


013 


STRG 


1 


FILT 079 


WRAP 


BR 


0A84 


B35E 


BWRP 


014 


STRG 


2 


090 


PUNRP 


BR 


0A86 


9270 


BWRP 


015 


STRG 


3 


077 


WRAP 


BR 


0A88 


9270 


BWRP 


016 


STRG 


4 


077 


WRAP 


BR 



COMMENTS 
D. L. SMITH 



SAVE BACKUP ADDR IF IN CPU MODE 

BR IF STORAGE PROTECT 
FIND THE MODE CAUSING WRAP TRAP 

23 11 MODE 
2540 PUNCH WRAP 
1403 MODE 
1052 MODE 



ADCR 

0A8A 
uABC 
JA8E 
08 7 A 
■)A60 
A 6 2 
uA64 
)A6o 
)A68 
JA6A 
JAbC 
OAbt 
uASO 
J A 9-2 
0A94 
0A96 
OA98 
0A9A 
0A9C 
GA9E 
OAAU 
OAA2 
JAA4 
uAA6 
JAA8 
-JAAA 
UAAC 
0AB2 
0AB4 
UA8 6 
OAAE 
UABO 
10 1 8 
10 1A 
10 1C 
HUE 



1268 
I 26 A 
12 6C 
1Z6E 
12 70 
12 72 
1274 
1276 
12 78 
127A 
12 7C 
12 7E 
1280 
12 60 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



50C7 
926E 
8476 
97E5 
9018 
94B0 
9268 
926A 
926A 
50C7 
9268 
9614 
tlAE 
C8CD 
C4AE 
C92B 
C4AE 
2440 
78F2 
2400 
56F2 
16C5 
372B 
4660 
D633 
24C7 
A9C0 
E22D 
6886 
8AAA 
2AC7 
A9C0 
2AC7 
2B43 
2FG7 
9C72 



26C7 
2E95 
C4F2 
26C7 
2EA5 
177 3 
5460 
64E5 
2543 
2EC3 
7468 
7E6A 
6 763 
9D52 



BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
B WRP 
BWKP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWKP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 
BWRP 



017 

018 
019 
02 
021 
022 
02 3 
024 
025 
026 
02 7 

02 8 

03 7 
040 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
C70 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
085 
086 



STRG 
STRG 

STRG 

PROTCK 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

AODRCK 



NXTC 
NXTB 
NXTA 



NXTD 
CPUPRT 



RDPU 
PROTfcC 

RDORPU 

WRAP 

WRORPR 



GAN3**** 
076 

OCLR 106 
021 
066 

FILT 077 
073 
074 
074 

GAN3**** 
073 

OCLR 108 
064 



**COMWRP 

RDORPU 

WRAP 

PRT 

CPUPRT 

PRTCHK 

RDPU 

PROTEC 

PROTEC 
**PSUEDO 

RDPU 

PROTCH 

NXTD 



064 NXTD 
064 NXTD 



061 NXTA 

CICY 045 A3DERR 

060 NXTB 

059 NXTC 

CICY 045 ADDERR 



BPSW 004 PRCGA 



078 WRCRPR 



WHICHN 



086 
DPTQ 019 



WHICHN N 
TAKEIN 



BR 

BR 

BR 

N=8A BITS123 

BR 

BR 

BR 

BR 

BR 

BR 

BR 

BR 

BR IF S6=0 

Z=I0nKC0 

BR IF 2NZ 

Z=UQK02 

BR IF ZNZ 

SET MODE K=0 

STH I DA, BE 

SET MODE K=0 

RDH D DA, BE 

D0=D0*~KC0 

Di=Dl-K02 

RDH D CS,D 

BR IF DO 1=1 

G0=0 

BR 

BR IF 006=1 

1=1-2 

BR 

T0=0 

BR 

T0=0 

T1=0$K04 

H1=0 

BR 
*********** 

NATIVE I/O 
*********** 

00=0 

H0=0$K9O 
BR IF ZNZ 
D0=0 

HO=0$KAO 
D1=D1*-K07 
RDH G AStD*0 
GO = GO $ HO 
G1=0$K04 
HO=0$KOC 
STH G AS, 0+2 
STH H AS,D-2 
N=D1 BITS23 
BR 



CL0AD=*E60, EC LEVEL=128211 

COMMENTS 

COMMUNICATIONS 
25 40 READER WRAP 
CHANNEL 

FIND THE MODE CAUSING THE PROT. 
CPU MODE 
2311 MODE 

2540 PUNCH PROTECT CK 
14C3 MODE 
1052 MODE 
COMMUNICATIONS 
254C READER PROTECT CK 
CHANNEL 
IF EXECUTE ON ADDR. OK 

CHECK FAILURE 

DURING INSTRUCTION 
READOUT 

4 PUT IN BACKUP ZONE 

SAVE ADDRESS STORED 
PUT BACK IN CPU ZONE 

GET ADDRESS IN TO WORK ON 
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READ CONTROL WORD FOLLOWING 
1ST HALFWORD TRAPPED BR NO 
RESET ILC CODE 

BR IF THIRD READOUT FAILED 
8UILD IT AS AN 
RR OP FLAGGED 



FL AG 
PROTECTION 
ERROR 

*********************************** 

WRAP AND PROTECT 
******************************** 

FIX DO FO 2540 

SET PROTECT AND SEC* 

UNC BR 
FIX DO FO 2 540 
SET PRGM. CHECK AND SEC. 
D1=XXX8 
READ CHANNEL STATUS 

OR IN PRGM. CHECK OR PROT. CHK 
RESET CHAINING — KEEP ACTIVE ON 

SET CH END DEV END UNIT STATUS 
D=XXX8 CHAN STATUS AND FLAGS 

= XXXA UNIT STATUS 
BREAK OUT NATIVES 
14C3 * TRY 



ADQR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60f EC LEVEL=1282 11 

COMMENTS 
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1262 


8C9E 


BWRP 


087 


WNICHN 


1 


DCLR 


038 


NTY PE 


BR 


1264 


BC9E 


BWRP 


088 


WHICHN 


2 


DCLR 


038 


NTYPE 


BR 


1266 


9F2G 


BWRP 


089 


WHICHN 


3 


OY PE 


010 


NOATEN 


BR 


3 3 5E 


A062 


BWRP 


090 


PUNRP 




ERRQ 


087 


RPHUCW 


BAL 


3360 


9270 


BWRP 


091 








077 


WRAP 


BR 



2540 READER * TO 

2540 PUNCH * CAUSE INT 

1052 CAUSE INTERUPT 
SET TO 00E8 



********************************** 

* CROSS REFERENCE FOR CSECT BWRP * 
********************************** 



BWRP 


010 


BWRP 


0C8 








BWRP 


012 


BWRP 


Oil 








BWRP 


020 


BWRP 


010 








BWRP 


021 


BWRP 


020 








BWRP 


037 


BWRP 


012 








BWRP 


059 


BWRP 


06 3 








BWRP 


060 


BWRP 


0*1 








BWRP 


061 


BWRP 


C58 








BWRP 


064 


BWRP 


037 


BWRP 


048 


BWRP 50 


BWRP 


066 


BWRP 


021 








iJWRP 


073 


BWRP 


023 


BWRP 


02 7 




:3WRP 


074 


BWRP 


024 


BWRP 


02 5 




BWRP 


076 


BWRP 


018 








BWRP 


077 


BWRP 


015 


BWRP 


016 


BWRP 091 


BWRP 


078 


BWRP 


073 








BWRP 


086 


BWRP 


0€5 








BWRP 


090 


BWRP 


014 
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CBIN DESCRIPTION 



ENTRY 


* 


OPERATION 


RRQP19 


m 


COMPARE 


RRQP1A 


• 


AOO 


RROPIB 


• 


SUBTRACT 


RROP1E 


* 


ADO LOGICAL 


RROP IF 


• 


SUBTRACT LOGICAL 


RX0P49 


• 


COMPARE HALFWORD 


RX0P4A 


m 


ADO HALFwORD 


RX0P4B 


• 


SUBTRACT HALFWORD 


RXOP59 


• 


COMPARE 


RXOP5A 


• 


loo 


RXOP5B 


• 


SUBTRACT 


RXOP5E 


« 


ADO LOGICAL 


RX0P5F 


• 


SUBTRACT LOGICAL 



INSTRUCTION FORMAT 
BYTE 1 . BYTE 2 . BYTE 3 . BYTE 4 



19 

IA 
IB 
IE 
IF 
49 
4A 
4B 
59 
5A 
5B 
5E 
5F 



Rl 
Rl 
Rl 
Rl 
Rl 
Rl 
Rl 
Rl 
Rl 
Rl 
Rl 
Rl 
Rl 



R2 
R2 
R2 
R2 
R2 
X2 
X2 
X2 
X2 
X2 
X2 
X2 
X2 



B2 D2 

82 02 

B2 02 

B2 02 

82 D2 

B2 D2 

B2 02 

B2 02 



02 
02 
02 
02 
02 
02 
D2 
02 



OBJECTIVES 



ADD 



AOD LOGICAL 
SUBTRACT 

SUBT. LOG. 
COMPARE 



THE SECOND OPERAND IS ADDED TO THE FIRST 
OPERAND, AND THE SUM IS PLACED IN THE FIRST 
OPERAND LOCATION* 

SAME AS ADD. THE CONDITION CODES DIFFER. 

- THE SECOND OPERAND IS SUBTRACTED FROM THE 
FIRST OPERAND, AND THE DIFFERANCE IS PLACED 
IN THE FIRST OPERAND LOCATION. 

- SAME AS SUBT. THE CONDITION CODES DIFFER 

- THE FIRST OPERAND IS COMPARED WITH THE 
SECOND OPERAND, AND THE RESULT DETERMINES 
THE CONDITION CODE. THE COMPARE IS DONE BY 
COMPLEMENT ADDING THE OPERANDS. 



GENERAL OBJECTIVES 
1. 
2. 
3. 
4. 



FETCH OPERANDS 

ADD OR COMPLEMENT ADD OPERANDS 

SET CONDITION CODE 

RETURN TO I-CYCLES 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLA* 


*El 


STATEMENT 






CBIN 


001 


T 


BINARY AOO AND 


SUB COMP 






CBIN 


002 


* 














CBIN 


003 


* 














CBIN 


004 


* 










1148 


8A70 


CBIN 


005 


RR0P19 


CCOM 036 


CRGET 




BAL 


U4A 


A8CA 


CBIN 

CBIN 


006 
007 


♦ 


009 


CXCOMP 




BR 


28C8, 


A770 


CBIN 


008 


RXGP59 


CCOM 045 


CXGET 




BAL 


28CA 


8174 


CBIN 


009 


CXCOMP 


CCOM 086 


CSLOOP 




BAL 


28CC 


E4D0 


CBIN 


010 




012 


OVER 




BR IF NOVFL 


28CE 


168D 


CBIN 


Oil 










D0=D0aK80 


2800 


E5D7 


CBIN 


012 


OVER 


015 


NZG 




BR IF S2*i 


2802 


2CC7 


CBIN 


013 










P0=0 


2804 


81B3 


CBIN 


014 




CICY 005 


I START 


N 


N=S BITS67 


2806 


C645 


CBIN 


015 


NZO 


018 


ALOW 




BR IF 000=1 


2808 


2C25 


CBIN 


016 










P0=0$K20 


280A 


81B3 


CBIN 


017 




CICY 005 


I START 


N 


N=S BITS67 


28C4 


2C55 


CBIN 


018 


ALOW 








P0=0$K50 


28C6 


81B3 


CBIN 
CBIN 
CBIN 


019 
020 
021 


* 

* 


CICY 005 


ISFART 


N 


N=S BITS67 


3388 


ADA8 


CBIN 


022 


RX0P49 


CCOM 012 


CXGETH 




BAL 



COMMENTS 



** RR COMPARE 

FETCH OPERANDS 

GO COMPLEMENT ADD OPERANDS 
'** RX COMPARE 

FETCH OPERANDS 

COMPLEMENT ADD OPERANDS 

BR IF NO OVERFLOW 

INVERT SIGN 

BR 'IF RESULT NOT ZERO 

SET CONDITION CODE — EQUAL 

RETURN TO I-CYCLES 

BR IF RESULT IS MINUS 

SET CONDITION CODE 2 — A-H1GH 

RETURN TO I-CYCLES 

SET CONDITION CODE 1 ~ A-LOW 

RETURN TO I-CYCLES 

** RX COMPARE HALFWORD 

FETCH OPERANDS, EXTEND SIGN 



ADDK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


3 3 8A 


A8CA 


CBIN 
CBIN 
CBIN 


023 
024 
025 


* 




009 


CXCCMP 


BR 




3 3 66 


8A70 


CBIN 


026 


RR0P1A 


CCOM 


036 


CRGET 


BAL 




3368 


AC1A 


CBIN 
CBIN 
CBIN 


027 
028 
029 


* 
* 




031 


CXADD 


BR 




2C18 


A770 


CBIN 


030 


RX0P5A 


CCOM 


045 


CXGET 


BAL 




2C1A 


6176 


CBIN 


031 


CXADD 


CCOM 


087 


CXLOOP 


BAL 




^CIC 


E4BD 


CBIN 


032 


CAC1BC 


CLST 


009 


OVCHEK 


BR IF 


OVFL 


2C1E 


E5B0 


CBIN 


033 




CLST 


034 


NEGCCO 


BR IF 


S2=0 


2C20 


C625 


CBIN 


034 


CCCHK 


CLST 


036 


NEGCC1 


BR IF 


DO 0=1 


2C22 


AC 46 


CBIN 
CBIN 
CBIN 


03 5 
036 
037 




CLST 


024 


TESCC2 


BR 




1A7C 


ADA8 


CBIN 


038 


RX0P4A 


CCOM 


012 


CXGETH 


BAL 




1A7E 


AC1A 


CBIN 
CBIN 
CBIN 


039 
040 
041 


* 

* 




031 


CXADD 


BR 




OIF* 


8A7C 


CBIN 


042 


RR0P1B 


CCCM 


036 


CRGET 


BAL 




01F6 


810C 


CBIN 
CBIN 
CBIN 


043 

044 
045 


* 

* 




047 


CXSUB 


BR 




(HOA 


A77C 


CBIN 


046 


RX0P5B 


CCOM 


045 


CXGET 


BAL 




010C 


8174 


CBIN 


047 


CXSUB 


CCOM 


086 


CSLOOP 


BAL 




OlOE 


AC1C 


CBIN 
CBIN 
CBIN 


048 
049 
050 


* 
* 




032 


CAC1BC 


BR 




31 76 


A0A8 


CBIN 


051 


RX0P4B 


CCOM 


012 


CXGETH 


BAL 




3178 


810C 


CBIN 
CBIN 
CBIN 


052 
053 
054 


* 
* 




047 


CXSUB 


BR 




3380 


8A70 


CBIN 


055 


RR0P1E 


CCOM 


036 


CRGET 


BAL 




3382 


ADC 8 


CBIN 
CBIN 
CBIN 


056 
057 

058 


* 




060 


CXAODL 


BR 




20C6 


A770 


CBIN 


059 


RX0P5E 


CCOM 


045 


CXGET 


BAL 




2UC8 


8176 


CBIN 


060 


CXADDL 


CCOM 


087 


CXLOOP 


BAL 




20CA 


76A8 


CBIN 


061 


S2 S3CK 








STH D 


AS,T+2 


2DCC 


7EAA 


CBIN 


062 










STH H 


AS,T-2 


2DCE 


E50B 


CBIN 


063 






067 


NONZER 


BR IF 


S2=l 


20D0 


F5D7 


CBIN 


064 






072 


ZRCARY 


BR IF 


S3=l 


2D 02 


2C07 


CBIN 


065 










P0=0 




2DD4 


8 183 


CBIN 


066 




CICY 


005 


ISTART N 


N=S BITS67 


2DDA 


F5C3 


CBIN 


067 


NONZER 




070 


NZCARY 


BR If 


S3=l 


20 OC 


2C55 


CBIN 


068 










P0=0$K50 


20 OE 


818 3 


CBIN 


069 




CICY 


005 


ISTART N 


N=S BITS67 


20C2 


2C75 


CBIN 


070 


NZCARY 








P0=0$K70 


2DC4 


81B3 


CBIN 


071 




CICY 


005 


ISTART N 


N=S BITS67 


2 DO 6 


2C25 


CBIN 


072 


ZRCARY 








P0=0$K20 


2008 


81B3 


CBIN 


073 




CICY 


005 


ISTART N 


N^S BITS67 






CBIN 


074 


* 
















CBIN 


075 


* 
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COMMENTS 

GO COMPLEMENT ADD OPERANDS 

** RR ADD 

FETCH OPERANDS 
GO ADD OPERANDS 

** RX ADD 

FETCH OPERANDS 

ADC OPERANDS 

BR IF OVERFLOW TO SET CC3 

BR IF ZERO RESULT TO SET CCO 

BR IF NEG SIGN TO SET CC1 

BR TO SET CONDITION CODE 2 

** RX ADD HALFWORD 

FETCH OPERANDS 
GO ADD OPERANDS 

** RR SUBTRACT 

FETCH OPERANDS 

GO COMPLEMENT ADD OPERANDS 

** RX SUBTRACT 

FETCH OPERANDS 
COMPLEMENT ADD OPERANDS 
GO TEST FOR CONDITION CODE 

** RX SUBTRACT HALFWORD 
FETCH OPERANDS 
GO COMPLEMENT ADD OPERANDS 

** RR ADD LOGICAL 

FETCH OPERANDS 
GO ADD OPERANDS 

** RX ADD LOGICAL 

FETCH OPERANDS 
GO ADD OPERANDS 
PUT RESULT IN 

FIRST OPERAND LOCATION 
BR IF RESULT NOT ZERO 
BR IF 0-BIT CARRY 
SET CONDITION CODE 
RETURN TO I-CYCLES 
BR IF ZERO-BIT CARRY 
SET CONDITION CODE 1 
RETURN TO I-CYCLES 
SET CONDITION CODE 3 
RETURN TO I-CYCLES 
SET CONDITION CODE 2 
RETURN TO I-CYCLES 

** RR SUBTRACT LOGICAL 
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ADOR 



*ORD SEQUENCE NO, LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, EC LEVEL=1282il 
COMMENTS 
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336E 


8A70 


CBIN 


076 


RR0P1F 


CCOM 


036 


CRGET 


BAL 


33 70 


AF?4 


CBIN 
CBIN 
CBIN 


077 
078 
C79 


* 




081 


CXSUBL 


BR 


2F72 


A770 


CBIN 


080 


RX0P5F 


CCOM 


045 


CXGET 


BAL 


2F 74 


8174 


CBIN 


081 


CXSUBL 


CCOM 


086 


CSLQOP 


BAL 


2F76 


ADCA 


CBIN 


082 






061 


S2S3CK 


BR 



FETCH OPERANDS 

GO COMPLEMENT AOO OPERANDS 



♦*. RX SUBTRACT LOGICAL 
FETCH OPERANDS 
COMPLEMENT ADO OPERANDS 
GO STORE RESULT & SET CONO CODE 
********************************** 

* CROSS REFERENCE FOR CSECT CBIN * 
********************************** 



caiN 


005 


CICY 


156 


CBIN 


008 


CICY 


188 


CBIN 


009 


CBIN 


0C6 CBIN 023 


ca in 


012 


CBIN 


010 


CBIN 


015 


CBIN 


012 


CttIN 


018 


CBIN 


015 


C8IN 


022 


CICY 


172 


CBIN 


026 


CICY 


157 


CBIN 


030 


CICY 


189 


CBIN 


031 


CBIN 


027 CBIN 039 


caiN 


032 


CBIN 


048 


ca in 


038 


CICY 


173 


CSIN 


042 


CICY 


158 


C8IN 


046 


CICY 


190 


caiN 


047 


CBIN 


043 CBIN 052 


caiN 


051 


CICY 


174 


caiN 


055 


CICY 


161 


caiN 


059 


CICY 


193 


caiN 


060 


CBIN 


056 


caiN 


061 


CBIN 


082 


CBIN 


067 


CBIN 


0£3 


caiN 


070 


CBIN 


067 


Li IN 


072 


CBIN 


064 


caiN 


076 


CICY 


U2 


LaiN 


080 


CICY 


194 


caiN 


081 


CBIN 


077 
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CBRC DESCRIPTION 



BRANCH INSTRUCTIONS 



OBJECTIVES CQNTINUEO 



• • 




INSTRUCTION FORMAT 


. ENTRY . OPERATION 


. BYTE I 


. BYTE 2 « 


. BYTE 3 < 


. BYTE 4 * 


* ————————— »■""— "~" — — — — ——.———— -. XT U - > ^ 

. RROP05 . BRANCH AND LINK 


05 


. Rl R2 « 






. RROP06 . BRANCH ON COUNT « 


06 


. Rl R2 « 






. RROP07 . BR CN CONDITION < 


07 


. Ml R2 « 






. RX0P44 . EXECUTE 


44 


. Rl X2 « 


. B2 D2 


02 


. RX0P45 . BRANCH AND LINK , 


45 


• Rl X2 « 


► 82 02 « 


02 


. RX0P46 . BRANCH CN COUNT « 


46 


. Rl X2 « 


. 82 D2 < 


D2 


* RX0P47 . BR ON CONDITION , 


47 


. Ml X2 . 


. B2 D2 < 


02 


. RS0P86 . BR ON INDEX HIGH , 


86 


. Rl R3 < 


B2 D2 , 


D2 


. RS0P86 . BRANCH ON INDEX « 


87 


• Rl R3 . 


► B2 D2 


D2 


LOW OR EQUAL 




• 







BR ON CONDITION 



EXECUTE 



IF CONDITION CODE AND MASK MATCH, BRANCH 
TO DEVELOPED ADDRESS. 

NOTE - THE CONDITION CODE IN LS REG PO 
IS CODED AS FOLLOWS* 

COND CODE PO HIGH 



1 5 

2 2 

3 7 

- BITS 8-15 OF THE SUBJECT INSTRUCTION ARE 
MODIFIED BY OR-ING THEM WITH BYTE 3 OF 
Rl. THEN THE MODIFIED INSTRUCTION IS 
EXECUTED. THE SUBJECT INSTRUCTION IS 
LOCATED AT THE 2ND OPERAND EFFECTIVE 
ADDRESS. 



OBJECTIVES 



BRANCH AND LINK 



STORE THE UPDATED RIGHTMOST 32 BITS OF THE 
CURRENT PSW, AND SET THE BRANCH ADDRESS 
INTO THE INSTRUCTION COUNTER. 



BRANCH ON COUNT - BRANCH TO DEVELOPED ADDRESS, EACH TIMEt 
UNTIL SUM IN Rl EQUALS ZERO. EACH TIME 
THROUGH, SUBTRACT I FROM VALUE IN Rl. 



BR ON INDEX HIGH- 



BRANCH ON INDEX 
LOW OR EQUAL 



ADD THE CONTENTS OF R3 TO Rl. COMPARE 
THIS SUM TO THE CONTENTS OF R3 » OR R3 
PLUS 1 IF R3 IS EVEN. IF COMPARE IS 
HIGH, BRANCH TO THE EFFECTIVE SECOND 
OPERAND ADDRESS. 



SAME AS BRANCH ON INDEX HIGH, EXCEPT 
THE BRANCH IS ON LOW OR EQUAL COMPARE- 



AuDR 


WORD 


SEQUENCE NO. 


LAB£ 


:L 




NEXTSEQ 


NEXTLABEL 


STATEMENT 






CBRC 


001 


T 






BRANCH INSTRUCTIONS 






CBRC 


002 


* 
















CBRC 


003 


* 
















CBRC 


004 


* 






BRANCH 


CONDITION 


RR 


28BA 


55B3 


CBRC 


005 


RR0P07 








TI=G1XH 


2BBC 


C483 


CBRC 


006 








013 


LEG 1 


BR IF Z=0 


2BBE 


5EA8 


CBRC 


007 












RDM H AS,T+2 


28 CO 


50A0 


CBRC 
CBRC 


008 
009 


* 








- 


RDH U AS,T+0 






CBRC 


010 


* 






BRANCH 


CONDITION 


RX 


2dC2 


9C11 


CBRC 


on 


RX0P4 7 




012 


LEG N 


N=PO BITS123 


2ti80 


C5C7 


CBRC 


012 


LEG 







015 


LEG 3 


BR IF G10=l 


2B82 


61B3 


CBRC 


013 


LEG 




1 


CICY 005 


ISTART N 


N=S BITS67 


<>884 


£502 


CBRC 


014 


LEG 




2 


013 


LEG 1 


BR IF G12=0 


2H86 


4806 


CBRC 


015 


LEG 




3 






I=U 


2688 


5CBA 


CBRC 


016 


LEG 




4 


BPSW 053 


INTBR 


BR 



COMMENTS 

D. L. SMITH 



EXECUTION 
OF 
RR 
BCR 



EXECUTION 
OF 
RX AND 
RR 
BRANCH 
CONDITION 



AD OR 


fcORD 


SEQUENCE HU. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


288A 


D5C7 


CBRC 


017 


LEG 5 




015 


LEG 


3 


BR IF Gll^l 


288C 


81B3 


CBRC 


018 


LEG 6 


CICY 


005 


I ST ART 


N 


N=S BITS67 


2886 


F507 


CBRC 


019 


LEG 7 




015 


LEG 


3 


BR IF GI3*I 


2890 


81B3 


CBRC 
CBRC 


020 
021 


* 


CICY 


005 


I START 


N 


N=S BITS67 






CBRC 


022 


♦ 


BRANCH 


AND LINK 


RR 


2892 


0040 


CBRC 


023 


RR0P05 










RST S5 


2894 


55B3 


CBRC 


024 












T1=G1XH 


2896 


C49F 


CBRC 


025 






032 


0P45A 




BR IF Z=0 


2898 


5EA8 


CBRC 


026 












RDH H AStT+2 


289A 


50A0 


CBRC 
CBRC 
CBRC 


027 
02 8 
029 


* 










ROH U AS,T 






CBRC 


30 


* 


BRANCH 


AND LINK 


RX 


28 9C 


2040 


CBRC 


031 


RXGP45 










SET S5 


289E 


5C2B 


CBRC 


032 


0P45A 










V0=P0H 


28A0 


3245 


CBRC 


033 












V0=V0$K40 


28A2 


E1B6 


CBRC 


034 






044 


EXECUT 




BR IF S6=0 


28A4 


0428 


CBRC 


035 






03 7 


0P45 B 




BR IF GO 1=0 


28A6 


2240 


CBRC 


036 


GP45C 










V0=V0>K40 


28A8 


4025 


CBRC 


03 7 


0P45B 










V0=P1XL$V0H 


28AA 


23C7 


CBRC 


038 












V1=0 


28AC 


55BB 


CBRC 


039 












Ti^GlH 


28 AE 


72A8 


CBRC 


040 












STH V AS,T+2 


28B0 


78A0 


CBRC 


041 












STH I AS,T 


28B2 


D187 


CBRC 


042 






015 


LEG 


3 


BR IF S5^l 


28B4 


81B3 


CBRC 


043 




CICY 


005 


I ST ART 


N 


N«S B1TS67 


28B6 


5892 


CBRC 


044 


EXECUf 










ROH I DA,AA 


28B8 


A8A6 


CBRC 


045 






036 


0P45C 




BR 






CBRC 


046 


* 


EXECUTE OP CQOE 


44 


<>C56 


A853 


CBRC 


047 


RX0P44 


CICY 


045 


ADDERR 


N 


BR IF H1=NZ 


2C58 


01E3 


CBRC 


048 












Z-U1*-K0E 


2C5A 


FCD4 


CBRC 


049 






064 


SPEC 




BR IF LZNZ 


2C5C 


6 100 


CBRC 


050 






062 


0P44B 




BR IF S6^0 


?C5E 


7CC2 


CBRC 


051 












STH P 0A,B8 


2C60 


7892 


CBRC 


052 












STH I DA,AA 


2C62 


48C6 


CBRC 


053 












1»U 


2C64 


0020 


CBRC 


054 












RST S6 


2C66 


55BB 


CBRC 


055 












Tl^GlH 


2C68 


C4CF 


CBRC 


056 






065 


RETRNC 




BR IF Z=0 


2C6A 


5498 


CBRC 


057 












RDH G I>2 


2C6C 


2B3B 


CBRC 


058 












TI-T1+K03 


2C6E 


53A0 


CBRC 


059 












RD8 VI AS,T+0 


2C70 


6535 


CBRC 


060 












G1=G1$V1 


2C72 


B461 


CBRC 


061 




CICY 


016 


OPHI 


N 


N^GOH 


2C50 


2B33 


CBRC 


062 


0P44B 










T1=0$K0 3 


2C52 


9C72 


CBRC 


063 




BPSW 


004 


PROGA 




BR 


2C54 


AE98 


CBRC 


064 


SPEC 


CICY 


059 


SPECHK 




BR 


2C4E 


A9A6 


CBRC 


065 


RETRNC 


CICY 


008 


I START 


3 


BR 






CBRC 


066 


* 


BRANCH 


ON' COUNT 


OP CODE 06 


2BCE 


0040 


CBRC 


067 


RR0P06 










RST S5 


2B00 


55B3 


CBRC 


068 












Tl^GlXH 


28D2 


C4DB 


CBRC 


069 






074 


0P4X 




BR IF Z=0 



CL0AD=*E60, EC LEVEL*1282 1l PAGE 62 
COMMENTS 



EXECUTION 
RR 
8ALR 



RR 



EXECUTION 

AND 
RX 

BRANCH 

AND 

L I NK 



RESTORE EXECUTE INST. COUNTER 



SPEC CHECK 



EXECUTE CHECK 
SAVE P 



READ INSTRUCTION 
ADJUST REG ADDRESS 



A DDK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


2304 


5EA8 


CBRC 


070 








RDH H AS»T+2 


26D6 


50A0 


CBRC 


071 








RDH U AS,T*0 






CBRC 


072 


* 


BRANCH 


ON COUNT 


OP CODE 46 


2BD8 


2040 


CBRC 


073 


RXUP46 






SET S5 


2BDA 


55BB 


CBRC 


074 


0P4X 






T1=G1H 


2BDC 


56A8 


CBRC 


075 








ROH AS,T+2 


2B0E 


32AA 


CBRC 


076 








RDH V AS,T-2 


2BE0 


GOOA 


CBRC 


077 








RST S K=50 


2BE2 


73AS 


CBRC 


078 








V1C=V1-TQ+C 


2BE4 


72A9 


CBRC. 


079 








V0C=V0-T0*C 


2BE6 


77A9 


CBRC 


080 








01C=01-TO+C 


2368 


76A9 


CBRC 


081 








D0C= DO-TO +C 


2BEA 


76A8 


CBRC 


082 








STH AS,T+2 


2BEC 


72AA 


CBRC 


83 








STH V AS,T-2 


26EE 


5F3 


C8RC 


084 




086 


CBRANC 


BR IF Sl=l 


28F0 


81B3 


CBRC 


085 


NBRANC 


CICY 005 


ISTART N 


N=S BITS67 


2BF2 


D1FC 


CBRC 


086 


CBRANC 


085 


NBRANC 


BR IF S5=0 


2BF4 


A886 


CBRC 


C87 




015 


LEG 3 


8R 






CBRC 


088 


♦ 


BRANCH 


INDEX HI, 


LO, EQUAL THE F 






CBRC 


089 


* 






BY OP 


2CC8 


8DC4 


CBRC 


C90 


RS0P86 


CCOM 058 


LSAVEB 


BAL 


2CCA 


55BB 


CBRC 


091 








T1=G1H 


2CCC 


58A8 


CBRC 


092 








RDH I AS,T+2 


2CCE 


52AA 


CBRC 


093 








ROH V AS,T-2 


2C00 


55B3 


CBRC 


094 








T1=G1XH 


2C02 


56A8 


CBRC 


095 








ROH D AS,T+2 


2CD4 


5CAA 


CBRC 


C96 








ROH P AS,T-2 


2CD6 


60 3B 


CBRC 


097 








P1C=P1*V1 


2C08 


6C20 


CBRC 


098 








P0C=PQ+V0+C 


2C0A 


6790 


CBRC 


099 








ClODl + U+C 


2C0C 


6680 


CBRC 


too 








D0C=D0*I0*C 


2C0E 


3B15 


CBRC 


101 








T1=TI$K10 


2CE0 


58A8 


CBRC 


102 








ROH I AS,T+2 


2CE2 


52AA 


CBRC 


103 








ROH V AS,T-2 


2CE4 


55BB 


CBRC 


104 








T1=G1H 


2CE6 


76A8 


CBRC 


105 








STH AS,T*2 


2CE8 


7CAA 


CBRC 


106 








STH P AS,T-2 


2CEA 


C004 


CBRC 


107 








RST S2 


2CEC 


30C2 


CBRC 


108 








SET S K=90 


2CEE 


70 3D 


CBRC 


109 








PlOPUVl+C 


2CF0 


7C2D 


CBRC 


110 








P0C=PQ*V0*C 


2CF2 


7790 


CBRC 


111 








01C=D1£I1*C 


2CF4 


7680 


CBRC 


112 








00C=00?I0*C 


2CF6 


9258 


CBRC 


113 




CCCM 066 


LRSTRB 


BAL 


2CF8 


E4Ci 


CBRC 


114 




118 


OVERFL 


BR IF OVFL 


2CFA 


E5C3 


CBRC 


115 


CHKANS 


119 


SIGN 


BR IF S2=l 


2CFC 


F047 


CBRC 


116 


LHCHEK 


121 


GOBR 


BR IF GO BIT7=1 


2CF£ 


81B3 


CBRC 


117 


NQBR 


CICY 005 


ISTART N 


N^S BITS67 


2CC0 


1680 


CBRC 


118 


OVERFL 






00=00QK80 


2CC2 


C670 


CBRC 


119 


SIGN 


116 


LHCHEK 


BR IF DO BIT0=1 


2CC4 


FG7F 


CBRC 


120 




117 


NO BR 


BR IF GO BIT7=1 


2CC6 


A886 


CBRC 


121 


GOBR 


015 


LEG 3 


BR 



CL0AD=*E60, EC L£VEL=12821l 

COMMENTS 
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DECREMENT 
COUNT 
6Y 

ONE 



CHECK RESULT 

COUNT ONLY GO TO ICYC 



IRST WORD OF THIS ROUTINE IS ENTERED 
CODES 86 AND 87 
SAVE I AND P 



INDEX IN IV 
GET 
INCREMENT 
FROM R3 
ADO 
INDEX 
INTO 
INCREMENT 

GET 

COMPARAND 
SET Rl ADDRESS 

STORE 
SUM 



COMPARE 
COMPARAND 
TO THE 
SUM 
RESTORE I,P 
BR IF OVERFLOW 

EQUAL FIRST LO 2ND 

OVERFLOW INVERT SIGN 

SUM IS HIGH 



CdRC 


005 


CICY 


129 






CdRC 


Oil 


CICY 


170 






CdRC 


012 


CBRC 


on 






CdRC 


013 


CdRC 


0C6 


CBRC 


014 


CdRC 


015 


CdRC 


012 


CBRC 


017 CBRC 019 CBRC 042 CBRC 087 


udKC 


023 


CICY 


127 






tdkC 


031 


CICY 


168 






CiRC 


032 


CBRC 


02 5 






CdkC 


036 


CBRC 


045 






CdRC 


037 


CBRC 


035 






CdRC 


044 


CBRC 


034 






CiiRC 


047 


CICY 


167 






Lc5KC 


062 


CBRC 


050 






CdRC 


064 


CdRC 


049 






CdRC 


065 


CBRC 


056 






CdRC 


067 


CICY 


128 






caac 


073 


CICY 


169 






CdRC 


074 


CBRC 


069 






CdRC 


085 


CBRC 


0£6 






CdRC 


086 


CBRC 


064 






CdRC 


090 


CICY 


201 


CICY 


2 02 


CBRC 


116 


CBRC 


119 






CdRC 


117 


CBRC 


120 






CdRC 


118 


CBRC 


114 






CdRC 


119 


CBRC 


115 






CdRC 


121 


CBRC 


116 
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********************************** 

* CROSS REFERENCE FOR CSECT CBRC * 
********************************** 



CBRC 121 
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ADD* 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






COMMENTS 






CCOM 


001 


J 








**** COMMON 


ROUTINES ***** 






CCOM 


002 


* 




















CCOM 


003 


* 




















CCOM 


004 


* 




















CCOM 


005 


* 




















CCOM 


006 


* 


** 






**THE FQLLING ROUTINES** 






CCOM 


007 


* 


** 




**ARE 


OPERAND FETCHES** 






CCOM 


008 


* 




















CCCM 


009 


* 




















CCOM 


010 


♦ 




















CCOM 


Oil 


* 








** 


LINKED'GET HALF ROUTINE ** 


2DA8 


A853 


CCOM 


012 


CXGETH 


CICY 


045 


ADDERR N 


BR IF H1=NZ 






CHECK FOR VALID ADDRESS 


20AA 


C1E3 


CCOM 


013 










Z=U1*-K0E 








2QAC 


F0A6 


CCOM 


014 






027 


CXSPEC 


BR IF LZNZ 






CHECK BOUNDARY 


20AE 


5E10 


CCOM 


015 










ROH H U+0 








2DBG 


CE23 


CCOM 


016 






025 


CXNEG 


BR IF HO BIT0=1 


CHECK SIGN 


2DB2 


2305 


CCOM 


017 










V1=0$K00 






EXTEND PLUS SIGN 


2QB4 


5329 


CCOM 


018 


CCSIGN 








V0=V1 








2DBb 


40E6 


CCOM 


019 










U = H 








2DB8 


55B8 


CCOM 


020 


GETR1 








T1=G1H 








2DBA 


56A8 


CCOM 


021 










RDH D AS,T+2 








2DBC 


5EAA 


CCCM 


022 










ROH H AS»T-2 








2DBE 


iOOE 


CCOM 


023 










RST S K^FO 






RESET S BITS 0,1,2,3 


20C0 


128E 


CCOM 


024 










RTN 








2f)A2 


23F7 


CCOM 


02 5 


CXNEG 








V1=0$KFF 








2DA4 


C4B4 


CCOM 


026 






018 


CCSIGN 


BR IF ZNZ 






UNC BR ON ZNZ 


2DA6 


AE98 


CCOM 


027 


CXSPEC 


C1CY 


059 


SPECHK 


BR 












CCOM 


028 


♦ 








** 


OPERAND FETCH FOR LOADS ** 


3 7C 


55B3 


CCOM 


029 


LGET 








T1=G1XH 








037E 


56A8 


CCOM 


030 










ROH AS,T«-2 








3 80 


5EAA 


CCOM 


031 










ROH H AS,T-2 








J 3 82 


55BB 


CCOM 


032 










T1=G1H 






SET DESTINATION ADDR 


0384 


CCC8 


CCOM 


033 










RST SI 






RESET ZNZ STAT 


0386 


128E 


CCOM 


034 










RTN 












CCCM 


035 


* 








** 


RR 


OPERANO FETCH ** 


0A70 


5 5B3 


CCOM 


036 


CRGET 








Tl^GlXH 








0A72 


52A8 


CCOM 


037 










RDH V AS,T*2 






2ND OPERAND 


0A74 


50AA 


CCOM 


038 










RDH U AS,T-2 








0A76 


55BB 


CCOM 


039 










T1=G1H 








0A78 


56A3 


CCOM 


040 










RDH D AS, T *2 






1ST OPERAND 


0A7A 


5EAA 


CCCM 


041 










RDH H AS,T-2 








0A7C 


IOOE 


CCOM 


042 










RST S K=FO 






RESET S BITS 0,1,2,3 


0A7E 


128E 


CCCM 


04 3 










RTN 












CCCM 


044 


* 








** 


RX 


OPERAND FETCH ** 


2770 


5218 


CCCM 


045 


CXGET 








RDH V IK2 






2ND OPERAND 


27 7 2 


5010 


CCOM 


046 










RDH U U+0 








2774 


55BB 


CCOM 


047 










T1=GIH \ 








2776 


56A8 


CCOM 


048 










RDH D AS,T+2 






1ST OPERAND 


2 7 78 


5EAA 


CCOM 


049 










RDH H AS,T-2 








277A 


iOOE 


CCOM 


050 










RST S K=FO 






RESET S BITS 0,1,2,3 


27 7C 


128E 


CCOM 
CCOM 
CCOM 


051 
052 
053 


* 
* 








RTN 









AUDR 


WORD 


SEQUENCE NO* 


LABEL 






CCOM 


054 


♦ 






CCOM 


055 


* 


OOCO 


70A2 


CCOM 


056 


LSAVE 


OUC2 


74B2 


CCCM 


057 


L SAVE A 


QDC4 


7CC2 


CCOM 


058 


LSAVEB 


0DC6 


E1CC 


CCOM 


059 




00C8 


7892 


CCOM 


060 




OOCA 


0020 


CCOM 


061 




oucc 


128E 


CCOM 


062 


LSAVEC 






CCOM 


063 


* 


1254 


5 0A2 


CCOM 


064 


LRSTR 


1256 


54B2 


CCOM 


065 


LRSTRA 


1258 


5CC2 


CCOM 


066 


LRSTRB 


125A 


5892 


CCOM 


067 


LRSTRC 


125C 


2020 


CCOM 


068 




125E 


128E 


CCOM 


069 








CCOM 


070 


* 


30 7C 


2B73 


CCOM 


071 


FLGDEX 


30?e 


9C70 


CCOM 


072 








CCOM 


073 


* 






CCOM 


074 


* 






CCOM 


075 


* 


UAEO 


300 2 


CCOM 


076 


COMPL 


QA62 


7FFB 


CCOM 


077 




0AE4 


7EEB 


CCOM 


078 




0A£6 


777B 


CCOM 


C79 




QAE8 


766B 


CCOM 


080 




OAEA 


100A 


CCOM 


081 




OAEC 


128E 


CCOM 


082 








CCOM 


083 


♦ 






CCOM 


084 


* 






CCOM 


085 


* 


0174 


3002 


CCOM 


086 


C SLOOP 


0176 


7FID 


CCOM 


087 


CXLOOP 


0178 


7E0D 


CCOM 


088 




017A 


7 730 


CCOM 


089 




017C 


7620 


CCOM 


090 




017E 


128E 


CCOM 


091 








CCOM 


092 


* 






CCOM 


093 


♦ 






CCOM 


094 


* 






CCOM 


095 


♦ 






CCOM 


096 


* 






CCOM 


097 


* 


200E 


26C7 


CCCM 


110 


fULCSW 


20 10 


577B 


CCOM 


114 




2012 


3763 


CCOM 


115 




2014 


58 6.0 


CCOM 


116 




2016 


5B68 


CCOM 


117 




2018 


27C7 


CCOM 


118 


HELP 


201A 


F0A5 


CCOM 


120 




20 1C 


4E52 


CCOM 


121 


CLEAR 






CCOM 


122 


* 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 
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062 LSAVEC 



BPSW 003 PROG 





** 


LOCAL 


STORE SAVE ** 


STH U DA, AC 






SAVE U 


STH G DA,AE 






G 


STH P DA, B8 






SAVE P 


BR IF S6=0 






TEST EXECUTE-BR IF YES 


STH I DA, AA 






I 


RST S6 








RTN 










** 


RESTORE LOCAL STORE ** 


RDH U DA, AC 






RESTORE U 


RDH G CA,AE 






G 


RDH P DA, B8 






P 


RDH I DA,AA 






1 


SET S6 








RTN 








Ti=0$K07 






FLAG DATA 


BR 






EXECPTION 



** LINKED COMPLIMENT ROUTINE ** 



SET S K=90 
HIOO-HIhkC 

HOC=0-HO+C 
D1C=0-D1«-C 
D0C=0-D0+C 
RST S K=DO 
RTN 



SET COMPLIMENT, CARRY 



RESET ZNZ,CARRY,COMP 
** COMMON ADD, SUBTRACT, COMPARE ROUTINE ** 



SET S K-90 SET COMPLIMENT, CARRY 

HIC-HlfUl+'C 

HOC=HO%UO«-C 
DlC^DUVl+C 
DQC=DO%VO*C 
RTN 
******************** ************************** *********8** ****** 



*** CSW STORE ROUTINE ******** 



127 CSWAOR 



00=0 

D1=D1H 

01=D1$K06 

RDB Ti AS,D«-0 

D0=T1H 

D1 = 

BR IF LZ=0 

ROH H DC,9A 



ADJUST UCW ADDR TO NAT KEY LOC 
D=UCW A0DR-00X6 ANY NATIVE 
GET NATIVE KEY Tl^KKKKOOOO 
DO=KKKKOOOO-NATI VE KEY-NOT COMM 
ZERO OUT ADDRESS BYTE FOR CSW 
UNC BR 

ENTRY FOR ALL ZERO CSW STORE 
READ ZERO CONSTANT INTO H 



AUOR 

201E 

2020 
2022 
2024 
2026 
2028 
2u2A 
202C 
202E 
20 30 
2032 
20 34 
2036 
2038 
203A 
203C 
203E 



3362 
3364 

2DF4 
20F6 
2DF8 

2C74 
2C76 
2C78 

2AF4 
2AF6 
2AF8 



32F8 
32FA 
32FC 



27FA 



WORD 

4252 

4626 
4026 
2B45 
42AF 

76B8 
72B8 
6AA4 
70B0 
2B47 
42AF 
76B0 
5282 
423F 
C5BE 
128E 
A0F4 



SEQUENCE NO. 



2400 
A8DC 

24C0 
2C55 

81B3 

2400 
2C25 
8183 

2400 
2C75 
81B3 



2BB1 
7FA0 
128E 



5682 



CCOM 
CCOM 
CCOM 
CCOM 
CCCM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCCM 
CCCM 
CCOM 
CCOM 
CCCM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCGM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCGM 
CCCM 
CCOM 
CCOM 
CCOM 
CCGM 
CCOM 
CCOM 
CCCM 
CCGM 
CCCM 
CCOM 



123 
124 
125 
126 
127 
129 
131 
132 
133 
134 
135 
137 
139 
141 
142 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 



LABEL 
STATOS 

CSWADR 
STATUS 



NEXTSEQ 



NEXTLABEL STATEMENT 



ROH V CC9A 



NORTN 







O^V 






u^v 






Ti=0$K40 






STP0=T0 






STH D T*2 






STH V T+2 






T = T*2 






STH U T*0 






T1=0SK44 






STP0=T0 






STH H T+G 






RDH V 0A,A8 






STPG^Vl 


146 


NORTN 


BR IF SO^O 

RTN 


157 


CC1B 


BR 



CLQAD=*E60, EC LEVEL=1282 11 

COMMENTS 

** ENTRY FOR STAT STORE-ZERO REST OF CSW 
READ ZERO CONSTANT INTO V 



DIXABLE CPU KEY 
KEY AND OtS 

NEXT CCW ADOR 

RES COUNT 

ENTRY FOR STATUS ONLY 

DIXABLE CPU KEY 

STATUS=UNIT,CHAN. 

GET CPU KEY 

PUT CPU KEY BACK IN Q 

S0=1 FOR RTN FROM THIS ROUTINE 
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GO RST MODE ,SET CC1 



CCOB 



CC1B 
CC1C 



CC2B 
CC2C 



CC3B 
CC3C 



****COMMON CONDITION CODE SET**** 

SET MODE K=00 
BR 



CICY 003 CHECKX 



SET MODE K=00 
P0=0$K50 
CICY 005 ISTART N N=S BITS67 

SET MODE K=00 
P0=Q$K20 
CICY 005 ISTART N N=S BITS67 

SET MODE K=00 
P0=0$K70 
CICY 005 ISTART N N^S BITS67 



SET CC1-BITS2,3=C0ND CODE 



SET CC2 



SET CC3 



$T0RH1 



RSTRKY 



********* *** ************************************* *************** 

** STORE HI ROUTINE ** 

T1=0-K0B 

STB Hi AS,T+0 

RTN 

**************************************************************** 
** RESTORE CPU KEY ROUTINE ** 
RDH D DA,A8 GET CPU KEY 



AUDK 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



27FC 


427F 


CCOM 


182 




27FE 


128E 


CCOM 


183 








CCOM 


184 


* 






CCOM 


185 


* 


3354 


2BB1 


CCOM 


186 


RESTRH 


3356 


5FA0 


CCOM 


187 




3358 


128E 


CCOM 


188 





CL0AD=*E60, EC LEVEL=i292il 
COMMENTS 

RESTORE CPU KEY INTO Q 
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CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
luOM 
uCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 



012 
018 
020 
025 
027 
029 
036 
045 
056 
057 
058 
062 
064 
065 
066 
067 
071 
076 
086 
087 
110 
123 
127 
135 
146 
154 
157 
161 
165 
173 
181 
186 



CBIN 
CCOM 
CNVR 
CCGM 
CCOM 
COVD 
CBIN 
CBIN 
CDMD 
COVD 
CBRC 
CCOM 
COMO 
COVD 
BSM 
CFAO 
COMO 
COVD 
CBIN 
CBIN 
OCHN 
DCHN 
CCCM 
DC LA 
CCOM 
DCLA 
CCOM 
DCLA 
DCLC 
BSTP 
BMCK 
BSfcl 



022 
026 
013 
016 
014 
0C4 
005 
0C8 
0C9 
Oil 
090 
059 
054 
086 
072 
127 
55 
018 
CC9 
031 
072 
090 
120 
227 
144 
041 
146 
060 
037 
0C7 
74 
075 



CBIN 038 CBIN 051 



CLST 

CBIN 
CBIN 
ERDR 
CFCY 
OPTS 

CDMD 
CDVD 
CBRC 
CFCY 

CNVR 
CLSF 

CBIN 
CBIN 
DPTT 
DCLC 
DCLT 
DCLC 

DCLA 
DCLA 
DCLA 
OYPE 
BSWI 
BSWI 
OCLT 



005 
026 
030 
067 
016 
045 

059 
098 
113 

068 
073 

00 7 
04/ 
060 
041 
05 7 
040 
168 

22 8 
042 
285 
215 
009 
043 
041 



CLST 018 
CBIN 042 
CBIN 046 

CFCY 036 
DYPE 004 

CDMD 139 
CMLT 070 
CFAD 072 
CFHA 033 
CSAS 025 
CLST 032 
CBIN 081 



DPTf 015 
FILE 018 
OCLR Oil 

DCLC 065 

DC LB 005 



STPO^Dl 

RTN 
****************************************** 

*** RESTORE Hi ROUTINE *** 
T1=0-K0B T=00F4 

ROB Hi AS,T + 
RTN 
********************************** 

* CROSS REFERENCE FOR CSEGT CCOM * 
********************************** 

CMLT 014 



CLST 030 CLST 040 

CBIN 055 CBIN 076 CLOG 036 CLOG 069 CLOG 110 CLOG 140 CMLT Oil 

CBIN 059 CBIN 080 CLOG 039 CLOG 073 CLOG 114 CLOG 144 CMLT 004 



CMLT 015 CNVR 009 

DYPE 113 DYPE 226 ERRQ 021 ERRQ 066 



CNVR Hi 

CNVR 047 DPTR 070 OPTS 078 DYPE 154 EROR 070 

CFLS 042 

CTRT 085 

CLST 042 CNVR 017 

CLOG 040 



DPTT 054 FILE 118 F INT 041 

FiNT 009 

OPTS 079 DPTT 068 FILE 128 FILX 437 



DCLH 021 DPTT Oil DYPE 202 ERRQ Oil FILE 030 FILE 094 FILX 189 FILX 329 pILX *45 
DCLT 008 DPTT 025 FILE 026 



BSWI 069 CSTS 053 
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CDMD — DECIMAL MULT IPL Y-DI VI DE ROUTINES 
ENTRY POINT 



DESCRIPTION CONTINUED 



S SUP EC 



THIS IS THE COMMON ENTRY POINT FOR BOTH MULTIPLY 
DECIMAL AND DIVIDE DECIMAL. 



MULT DECIMAL • FC . Li L2 - Bi Dl . 01 Dl 
DIV DECIMAL . FD . Li L2 . Bl Dl . Dl Dl 



B2 D2 
B2 02 



02 02 
D2 02 



OBJECTIVES 



MULTIPLY 



THE PRODUCT OF THE MULTIPLIER AND THE 
MULTIPLICAND REPLACES THE MULTIPLICAND IN THE 
1ST OPERAND LOCATION, 

THE MULTIPLIER SIZE IS LIMITED TO 15 DIGITS 
AND SIGN — LENGTH CODE OF 7 IN L2. ALSO, L2 
MUST NOT BE LARGER THAN OR EQUAL TO Li. 
r THE MULTIPLICAND MUST HAVE HIGH-ORDER ZERO 
BYTES EQUAL TO OR GREATER THAN THE NUMBER OF 
BYTES IN THE MULTIPLIER FIELD. 

THE MAXIMUM PRODUCT SIZE IS 31 DIGITS. AT 
LEAST ONE HIGH-ORDER DIGIT OF THE PRODUCT 
FIELD IS ZERO. 

THE DIVIDEND IS DIVIDED BY THE DIVISOR. THE 
QUOTIENT AND THE REMAINDER REPLACE THE DIVIDEND 
IN THE 1ST OPERAND LOCATION. 

THE QUOTIENT FIELD IS PLACED IN THE LEFT 
PORTION OF THE DIVIDEND FIELD* THE REMAINDER 
IS THE SAME SIZE AS THE DIVISOR AND OCCUPIES 
THE LOW-ORDER BYTES OF THE DIVIDEND FIELD. 

THE DIVISOR SIZE IS LIMITED TO 15 DIGITS AND 
SIGN — LENGTH CODE OF 7 IN L2 . ALSO, L2 MUST 
NOT BE LARGER THAN OR EQUAL TO Li. 



DESCRIPTION 

THE ROUTINE CHECKS OPERAND SIZE AND SETS THE SIGN VALUE. 
THEN, TWO COPIES OF THE MULTIPLIER OR DIVISOR ARE STORED. 



DIVIDE 



MULTIPLY OP 



4. 



TEST F 

SHIFT 
BYTES 
OF THE 
VACATE 
STARTI 
MULTIP 
4. EN 
DIGIT, 
ORDER 
IS IN 
T/C AD 
FOR AD 
ALTE 
PLIER 
DIGIT 
CASE, 
DO SPE 
END TH 



OR ENOUGH Z 
THE MOST SI 

OF THE MULT 
MULTIPLiCA 
D BYTES, RE 
NG WI TH THE 
LICAND. TR 
TER CALCULA 
THE STRAIG 
BYTE IS T/C 
ALIGNMENT W 
D CYCLES AR 
D OR 9 FOR 
RNATE MULTI 
WITH 09 AS 
GOES TO F 
THE MULTI PL 
CIAL SKEWED 
E OPERATION 



EROES IN MULTIPL 
GNIFICANT BYTE A 
IPLICAND TO THE 
NO FIELD. SUPPL 
MOVE SIGN. 

LOW-ORDER, TEST 
UE ADD IF UNDER 
TE LOOP FOR EACH 
HT MULTIPLIER WI 

ADDED TO THE PR 
ITH THE TESTED M 
E CONTINUED UNTI 
SUBTRACT. 
PLICAND DIGITS U 
THE HIGH-ORDER B 
OR ADD OR 9 FOR 
IER I S NOT SWITC 

ADD IF NECESSAR 



ICAND FIELD. 


.NO THE FOLLOWING 


HIGH-ORDER POSITIONS 


Y ZEROES FOR THE 


EACH DIGIT OF 


5, SUBTRACT IF OVER 


DIGIT. FOR THE 1ST 


TH 90 AS THE HIGH- 


■ODUCT FIELD. THE 9 


IULTIPLICAND DIGIT. 


L TEST DIGIT IS 


ISE THE SKEWED MULT l- 


YTE UNLESS THE TEST 


SUBTRACT. FOR THIS 


HED. 


,Y, INSERT SIGN, AND 



DIVIDE OP 



STRAIGHT COPY 
SKEWED COPY 



AUX STORAGE 

FIELD 

0018-001F 

0038-OOBF 



POINTER FOR 

LOW-ORDER BYTE 

OOBC 

OOBE 



1. DO A TRIAL SUBTRACT TO DETERMINE IF THE 
REMAINDER CAN BE CONTAINED IN THE OIVID 
SKEWED DIVISOR IS USED. A CARRY OUT OF 
POSITION INDICATES A DIVIDE CHECK. IF 
OCCURS, SKEWED DIVISOR IS ADDED BACK TO 
DIVIDEND AND ROUTINE EXITS TO TAKE PROG 

2. FOR 1ST CALCULATE CYCLE, STRAIGHT DIVIS 
THE HIGH-ORDER BYTE IS ADDED TO THE DIV 
IS IN ALIGNMENT WITH THE HIGH-ORDER DIV 
THE ADD CYCLES CONTINUE UNTIL DIGIT TO 
THE 9 GOES TO ZERO. 

3. SKEWED DIVISOR WITH 09 AS THE H1GH-0RDE 
SUBTRACTED FROM THE PREVIOUS RESULT WIT 
SHIFTED ONE DIGIT. SUBTRACT CYCLES CON 
DIGIT TO THE RIGHT OF THE 9 GOES TO NIN 

4. ALTERNATE STRAIGHT AND SKEWED CYCLES AR 
DIVISOR SHIFTING ONE DIGIT FOR EACH CHA 
OPERATION ENDS WHEN THE CYCLE THAT INCL 
LEFTMOST POSITION OF THE DIVIDEND IS CO 

5. QUOTIENT SIGN IS INSERTED INTO LQW-ORDE 
QUOTIENT, SIGN OF REMAINDER IS INSERTE 
ORDER 4 BITS OF REMAINDER. 



QUOTIENT AND 
END FIELD. 

THE HIGH-ORDER 
DlVIOfc CHECK 

RESTORE THE 
RAM INTERRUPT. 
OR WITH 90 AS 
IDEND. THE 90 
IDEND BYTE. 
THE RIGHT OF 

R BYTE IS 

H ALIGNMENT 

TINUE UNTIL 

E 

E TAKEN WITH 

NGE. 

UDES THE 

MPLETE. 

R 4 BITS OF 

D INTO LOW- 



AODR 



2582 
2*84 
2586 
2588 
25 8A 
258C 
258E 
2590 
2592 
2594 
2596 
2598 
259A 
259C 
2596 
2dA0 
25A2 
25A4 
25A6 
25A8 
2 5AA 
25AC 
25A6 
2580 
25B2 
25B4 
25B6 
2588 
25BA 
2 5BC 
25BE 
25C0 
2t>C2 
25C4 
25C6 
25C8 
25CA 
25CC 
25CE 
25DO 
2502 
2504 

2506 
2508 
2580 



251C 
251E 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



E187 
1445 
C10A 
AE98 
5575 
77E3 
EC88 
8OC0 
573C 
A4EC 
5710 
3415 
A4EC 
10CE 
55B0 
3B83 
3B15 
7AE2 
4CA6 
3B25 
7AF2 
5F3A 
5fFB 
7FAF 
7FCA 
5FF1 
C946 
573A 
47F3 
77AF 
7FAA 
77CA 
5 7F5 
C939 
7FAA 
55E5 
55FD 
7EF1 
2002 
71E9 
70A9 
4206 

FOOi 
8B82 
A51C 



9AEE 
C1A4 



CDMD 
COMD 
COMD 
COMD 
COMD 
COMD 
COMD 
CDMO 
CDMO 
CO MO 
CDMO 
COMD 
COMO 
COMD 
CDMO 
CDMO 
CDMO 
COMD 
COMD 
COMO 
COMD 
COMD 
CDMO 
COMD 
CDMO 
CDMO 
COMD 
CDMO 
CDMO 
CDMO 
COMD 
COMD 
CDMD 
CDMD 
CDMO 
CDMO 
CDMO 
CDMD 
CDMD 
CDMD 
CDMD 
COMD 
CDMD 
CDMO 
CDMD 
CDMO 
CDMD 
CDMD 
CDMO 
CDMO 
CDMD 
CDMO 
CDMD 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
02 2 
023 
024 
025 
02 6 

02 7 
028 
029 
030 
031 
032 

03 3 
034 
035 
036 
03 7 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 



SSOPFC 

NOF I LC 

FLGERR 
LENCHK 



DEC I 
004 

006 
CICY 059 



MAL MULT 
N0F1LC 

LENCHK 
SPECHK 



005 
CCCM 056 

203 



203 



SHORE 



SSKEW 



SOUT 



FLGERR 
LSAVE 

SCNSET 
S INSET 



036 SSKEW 



029 SMORE 



1PLY 01 
BR 
GO* 
BR 
BR 
01* 
Dl* 
BR 
BAL 
RD8 
BAL 
ROB 
G0 = 
BAL 
RST 
Ti= 
Ti* 
Tl = 
STH 
P=T 
Tl 
STH 
ROB 
Hi* 
H1C 
STB 
Hi* 
BR 
ROB 
HI* 
01C 
STB 
ST8 
HI* 
BR 
STB 
HO* 
HI* 
HO* 
SET 
U1C 
UOC 
V=U 



DIVIDE 



047 
106 
052 
AT 

IS 
P 

213 
056 



VIDE ROUT INES 
IF S6*l 
G0*-K40 
IF 614=0 

GiXL 
01 -HO 
IF HZNZ 

Dl V 

Dl U 
G0SK10 

S K=FC 
GIL 

T1SK08 
TUK10 

T DA f BC 

T1SK20 

T DA, BE 

HI V-l 
H1H 
*HIS)T0*C 

HI AS,P-1 
HiX 
IF P14=0 

Dl V-l 
D1XH+H1L 
*D13T0+C 

Hi AS,T-1 

Dl AS,P-1 
D1XL 
IF Pl4*l 

HI AS,T-l 
GIXL 
GIL 
HO-Hl+1 

S3 

UL-HO+C 
*UO-TO+C 



CLQAD=*E60, EC LEVEl*1282U 

COMMENTS 



FIX ILC FOR EXECUTE 

LENGTH CHECK OVER 7 
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CHECK IF 
L2 LARGER 

THAN LI 

READ 2ND OPRAND 

GO SET THE SIGN VALUE 
READ 1ST OPRAND 
START WITH REMAINDER SIGN ♦ 
GO SET THE SIGN VALUE 
RESET S REG 0*1,2,3,4,5 
-BUILD THE 

STRAIGHT AND SKEWED AODRESSES 
AND PUT THEM IN AUX 
OOBC-STRAIGHT 
OOEE- SKEWED 



-THIS STORES THE 01 VI SOR 
PLIER IN AUX STRAIGHT AND 
SKEWED 



TAKE THIS BR IF 1 POS. FIELD 



STORE LAST SKEWED CHAR. 
-THIS ADJUSTS THE ADDRESS 1ST OP 
TO THE LEFT MOST PQS* 



BREAK OUT 
THE OP 
CODES 



SOUT BR IF GO 7=1 

MULTPY BR 

DIVIDE BR 

THIS POINT THE DIVIDE OPERATION 

STARTED IT GOES BACK TO A COMMON 
OINT WITH MULTIPLY TO SET THE RESULT SIGN 



DVLOOP BAL 

VALIOA BR IF S4*0 



GO SEE IF ANS. WILL FIT 



ADCR 


fcQRD 


SEQUENCE NO, 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


25 20 


9254 


CDMD 


054 


DATEXP 


CCCM 064 


LRSTR 


BAL 


2o 22 


B07C 


CDMD 


05 5 




CCOM 071 


FLGDEX 


BR 


2?2<* 


F5BQ 


CDMD 


056 


VALIDA 


062 


VALIFL 


BR IF S3=0 


252b 


1002 


COMD 


037 








RST S K=90 


2528 


9AF0 


COMD 


058 




214 


DVLOPB 


BAL 


232A 


9254 


CDMO 


059 




CCOM 064 


LRSTR 


BAL 


2t>2C 


2BB3 


CDMD 


060 








T1=0$K0B 


Z52E 


9C7G 


COMD 


061 




8PSW 003 


PROG 


BR 


2530 


56A2 


CDMO 


062 


VALIFL 






RDH DA, AC 


2542 


5D7C 


COMO 


063 








RDB PI D 


2t>34 


50DB 


CDMO 


064 








P1=P1H 


2 3 36 


7D70 


CDMD 


065 








STB PI D 


2538 


2993 


CDMO 


066 








I1=0$K09 


253A 


59 81 


CDMD 


067 








I0=I1X 


253C 


5004 


CDMD 


068 


ENTYA 






U=U + 1 


253E 


1042 


CDMD 


069 


ENTYB 






RST S K=94 


2340 


56E2 


CDMO 


070 








RDH DA, BC 


2d42 


9AF2 


CDMD 


071 




215 


DVLOPC 


BAL 


2344 


5D30 


CDMO 


072 








RDB PI V 


2346 


7D8F 


CDMD 


073 








PlC=PiaiO+C 


2548 


FG81 


CDMD 


074 




077 


OTHLOP 


BR IF LZ=G 


254A 


7030 


CDMD 


075 








STB Pi V 


254C 


A53E 


CDMO 


076 




069 


ENTYB 


BR 


2500 


7030 


CDMD 


077 


OTHLOP 






STB PI V 


2502 


7fcA3 


CDMD 


078 








H0=HO~T0 


2504 


C4CF 


CDMO 


079 




091 


CHECK 


BR IF Z=0 


2^06 


9AEE 


CDMD 


080 


OTALGP 


213 


DVLOOP 


BAL 


2508 


CD9D 


COMO 


081 








Z=P1PK90 


250A 


EC8E 


CDMO 


082 




084 


ARDN 


BR IF HZNZ 


250C 


2040 


CDMD 


083 








SET S5 


250E 


5D30 


COMO 


084 


ARDN 






RDB PI V 


2!>10 


5D7B 


CDMO 


085 








Dl^PlH 


2512 


7DSF 


CDMD 


086 








Pic=Piam-c 


2514 


47DB 


CDMO 


087 








P1 = D1H*.P1L 


2316 


7D30 


CDMO 


088 








STB PI V 


2518 


0186 


CDMD 


089 




080 


CTALOP 


BR IF S5=0 


251A 


A53C 


CDMD 


090 




068 


ENTYA 


BR 


254E 


C1A1 


CDMD 


091 


CHECK 


054 


OAT EXP 


BR IF S4=l 


2350 


5CC2 


CDMD 


092 








RDH P DA, B8 


2552 


2FC3 


CDMO 


093 








H1=0$K0C 


2 5 54 


C958 


CDMD 


094 




096 


ARDNB 


BR IF P14=0 


2556 


IF6B 


CDMD 


095 








Hl=HlnK06 


2558 


E450 


CDMO 


096 


ARDNB 


098 


ARDNC 


BR IF GO 2=1 


255A 


3F13 


COMO 


097 








H1=H1$K01 


25 5C 


5730 


COMD 


098 


ARDNC 






RDB Dl V 


255E 


67F5 


CDMD 


099 








01=01$H1 


2560 


7730 


COMO 


100 








STB Dl V 


2562 


6443 


CDMO 


101 








G0 = G0+G0 


2 564 


8BC2 


COMD 
CDMO 
CDMD 
CDMD 


102 
103 
104 
105 


* 
* 


138 


MEND 


BR 


0S82 


571A 


CDMD 


106 


MULTPY 






RDB 01 U-l 



CLGAD=*E60, 
COMMENTS 
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THIS RESTORES LOCAL STORAGE AND 

FLAGS A DATA EXCEPTION INTERUPT 
IF S3=l A DIVIDE EXCEPTION EXIST 
ADD BACK IN 
THE VALUE 
SUB 
AND FLAG 
DIV. EXCEP, INTER* 
GET 
RID 
OF 
SIGN 



RESET S REG 0,3,5 
GET THE STRAIGHT ADDRESS 



THIS 
SETS 

THE 
QUO 
SIGN 



CHECK 



ADDR 


WORD 


SEQUENCE NO, 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


0B84 


A317 


CDMD 


107 




150 


EREXCP N 


BR IF D1=NZ 


0B86 


2FFF 


CDMD 


108 








H1 = HH-KFF 


08 88 


F483 


COMO 


109 




106 


mult py 


BR IF AC=1 


08 8 A 


5004 


CDMO 


110 








U=U*1 


08 8C 


5224 


COMO 


111 








v=v + i 


088E 


5EF9 


COMO 


112 








H1=H0 


0890 


2BC7 


COMO 


113 








Ti=0 


0892 


E597 


CDMO 


114 




116 


MNZERO 


BR IF S2=l 


0894 


2040 


COMD 


115 








SET S5 


0896 


0004 


CDMO 


116 


MNZERO 






RST S2 


0898 


77AF 


CDMO 


117 


MLUPA 






01C^DiaT0+C 


089A 


5730 


CDMD 


118 








RDB Dl V 


089C 


01A1 


CDMD 


119 




121 


MZER 


BR IF $5*1 


089E 


7718 


CDMD 


120 








STB Di im 


08A0 


7B38 


CDMO 


121 


MZER 






STB Tl V*l 


08A2 


2fFF 


CDMD 


122 








Hl^Hl+KFF 


08A4 


C498 


CDMD 


123 




117 


MLUPA 


BR IF ZNZ 


08A6 


5006 


CDMD 


124 








U=U-l 


08A8 


bZZb 


CDMD 


125 








V=V-1 


08AA 


D1C3 


CDMD 


126 




138 


MENO 


BR IF $5=1 


08AC 


577B 


COMD 


127 








D1=D1H 


OBAE 


7710 


CDMD 


128 








STB Dl U 


08B0 


77AF 


CDMD 


129 








D1C=D13T0*C 


0BB2 


C181 


CDMD 


130 




150 


EREXCP 


BR IF S4=l 


08 B4 


E5C2 


CDMO 


131 




138 


MEND 


BR IF S2=0 


08B6 


B1BC 


CDMD 


132 




151 


MSTART 


BR 


08B8 


0B9D 


CDMO 


133 


ENDING 






Z=TinK90 


OBBA 


E0C2 


CDMD 


134 




138 


MEND 


BR IF HZNZ 


OBBC 


4C86 


CDMD 


135 








U=I 


OBBE 


1002 


CDMD 


136 








RST S K=90 


OBCO 


9AF0 


CDMD 


137 




214 


DVLOPB 


BAL 


0BC2 


54F9 


CDMD 


138 


MEND 






H1 = G0 


08C4 


9254 


CDMD 


139 




CCOM 064 


LRSTR 


8AL 


08C6 


27C3 


CDMD 


140 








D1-=0SK0C 


0BC8 


C94C 


CDMD 


141 




143 


MASCI 


BR IF P14=0 


08CA 


176B 


CDMD 


142 








Dl=DlaK06 


OBCC 


EF51 


CDMD 


143 


MA SCI 


145 


PPLUS 


BR IF H12=i 


OBCE 


3713 


CDMD 


144 








D1=D1$K01 


OBDO 


5F10 


CDMD 


145 


MPLUS 






RDB HI U 


0B02 


6F75 


CDMD 


146 








H1=H1$D1 


0BD4 


7F10 


CDMD 


147 








STB HI U 


0B06 


2A07 


CDMD 


148 








T0 = 


0BD8 


A8DE 


CDMD 


149 




CICY 004 


CHECK 


BR 


0B80 


A520 


CDMD 


150 


EREXCP 


054 


DATEXP 


BR 


31BC 


2040 


CDMD 


151 


M START 






SET S5 


31BE 


4 826 


CDMD 


152 








I = V 


3LC0 


57B9 


CDMD 


153 


MSB 






T1=D1 


31C2 


C5C6 


CDMD 


154 


MSJKA 


156 


MSA 


BR IF S0=0 


31C4 


CB9F 


CDMD 


155 








Z=TlaK99 


31C6 


0C8E 


CDMD 


156 


MSA 






RST S K=78 


31C8 


D1DA 


CDMD 


157 




174 


MSLGW 


BR IF $5=0 


31 C A 


EOEE 


CDMD 


158 


MSH1 


166 


MSC 


BR IF HZNZ 


31CC 


781A 


CDMD 


159 


MSSTOR 






STB Tl'U-1 



CL0AD=*E60# EC LEVEL=1282ll 
COMMENTS 

FIELD FOR 
ENOUGH ZEROS 
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STORE THE 
1ST 
OP 
SHIFTED 
TO 
LEFT 



R ID OG 
SIGN 



SET THE 

SIGN 
FOR 
REMAIN 
AND 
PRODUCT 



THIS 

DOES 
THE 
ACTUAL 

MULTIPLY 
SO i-SUB 
0-ADO 
S5 0-LOW HALF 



ADOR 


WORD 


SEQUENCE NO* 


LABEL 


31CE 


5886 


COMD 


160 




3100 


5710 


CDMD 


161 




3102 


0040 


COMD 


162 




31D4 


2EFF 


COMO 


163 




3106 


C4C0 


COMD 


164 




3108 


8BB8 


COMD 


165 




31EE 


2040 


COMD 


166 


MSC 


31F0 


2A<55 


COMO 


167 




31F2 


56E2 


COMD 


168 




31F4 


57C9 


COMO 


169 




31F6 


1CCC 


COMO 


170 




31F8 


CBB9 


COMD 


171 




31FA 


F4EB 


COMO 


172 




31FC 


A74C 


COMD 


173 




31CA 


FOCB 


COMD 


174 


MSLGrt 


310C 


5BB0 


CDMO 


175 




3 IDE 


2A93 


COMO 


176 




31E0 


56F2 


COMO 


177 




3iE2 


57C9 


CDMO 


178 




31E4 


10C0 


CDMO 


179 




31E6 


CBB1 


COMD 


180 




31E8 


EOEO 


CDMD 


181 




316A 


3002 


CDMD 


182 


SUBCYC 


31EC 


A74C 


CDMO 


183 


ADDCYC 


274A 


5C79 


COMO 


184 


MSJK 


274C 


4286 


COMD 


185 


CALLOP 


2/4E 


5030 


CDMO 


186 


MSCLOP 


2750 


5F6A 


COMO 


187 




2752 


70FF 


COMO 


188 




2754 


7D3A 


CDMD 


189 




27 56 


C34F 


CDMD 


190 




2758 


7BAF 


CDMO 


191 




2 75A 


0002 


COMD 


192 




2 7 5C 


C5E2 


CDMO 


193 




?75E 


0B9F 


CDMO 


194 




2760 


2002 


CDMO 


195 




2762 


D1E8 


CDMD 


196 


MSJA 


?764 


fcCCA 


CDMD 


197 




2766 


B1CC 


COMO 


198 




2768 


FOCA 


COMO 


199 


MSKY 


276A 


5710 


COMD 


200 




2fbC 


47BB 


COMD 


201 




27 6E 


BIC2 


COMO 


202 




24EC 


5773 


CDMO 


203 


SCNSET 


24EE 


0769 


CDMD 


204 




24F0 


F4F5 


COMD 


205 




24F2 


A520 


COMO 


206 




24F4 


F77C 


COMD 


207 


SIGVAL 


24F6 


0719 


COMD 


208 




24F8 


F4FD 


COMD 


209 




24FA 


1430 


COMD 


210 




24FC 


128E 


COMD 


211 


EXIT 






COMD 


212 


* 



NEXTSEQ 



NEXTLABEL STATEMENT 







1 = 1-1 






ROB 01 U 






RST S5 






H0=H0*KFF 


153 


MSB 


BR IF ZNZ 


133 


ENDING 


BR 

SET S5 

T0=0$K90 

RDH D DA, 8C 

P0 = 01 

RST SO 

Z=T1*KB0 


182 


SUBCYC 


BR IF AC=i 


185 


CALLOP 


BR 


158 


MSHI 


BR IF LZ=0 
T1 = T1L 
T0=0$K09 
RDH DA, BE 
P0 = D1 
RST SO 
Z=T1+K0B 


183 


AOOCYC 


BR IF HZ=0 
SET S K=90 


185 


CALLOP 


BR 

01= PO 

V=I 

RDB PI V 

ROB HI AStO- 

P1C=P13HH-C 

STB PI V-l 


186 


MSCLOP 


BR IF D14=l 
TlC=TiaTO«-C 
RST S3 


196 


MSJA 


BR IF S0=0 
Z=TioK99 
SET S3 


199 


MSKY 


BR IF S5=0 


184 


MSJK 


BR IF HZNZ 


159 


MSSTOR 


8R 


184 


MSJK 


BR IF LZNZ 
RDB 01 U 
T1=D1H+T1L 


154 


MSJKA 


BR 

D1=01XH 

Z-D1+K60 


207 


SIGVAL 


BR IF AC=1 


054 


DATEXP 


BR 


211 


EXIT 


BR IF D13=0 
Z=DH-K10 


211 


EXIT 


BR IF AC=i 

G0=G0nK30 
RTN 
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COMMENTS 

1-HI HALF 

HO=NUMBER OF BYTES 



CALCULATE 
LOOP 



SIGN CHECK AND SET ROU 
GO IS USED TO PUT THE SIGNS 

BRANCH TO DATA EXCEPTION 



1010- PLUS 

1011- MINUS 
1100- PLUS 

GO BIT 2 
GO B.OT 3 



1101-MINUS 

1110-PLUS 

illl-PLUS 
0=ANS MINUS 1-PLS 
0=REM NEG 1-PLUS 



AUOK 

1AEE 
iAFO 
1AF2 
1AF4 
1AF6 
IAFB 
iAFA 
IAFC 
lAFfc 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLA8EL STATEMENT 



3002 
56F2 
4206 
5030 
5F6A 
70FF 
7D3A 
C375 
128E 



COMO 
CDMD 
CDMD 
CDMO 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 



213 
214 

215 
216 
217 
218 
219 
220 
221 



DVLOOP 
DVLOPB 
DVLOPC 
ALOOP 



SET S K=90 
RDM D DA, BE 
V-=U 

ROB PI V 
RDB Hi AS, 0~1 
PiC^PiaHUC 
STB PI V-t 
216 ALOOP 8R IF 014=1 

RTN 
********************************** 

* CROSS REFERENCE FOR CSECT CDMD * 
********************************** 



CL0AD=*E60 f EC LEVEL*>128211 
COMMENTS 

SET S 0, 3 FOR SUB CYCLE 
GET THE SKEWED ADDRESS 

SET UP V FOR LOOP 
ACTUAL LOOP 
FOR DOING 
THE ADD OR 
SUB FUNCTION 
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CDMD 


002 


CiCY 


253 


CICY 


254 


CDMD 


004 


CDMD 


0C2 






CDMD 


005 


CDMO 


0C8 






CDMD 


006 


CDMD 


0C4 






CDMD 


029 


CDMD 


035 






CDMD 


036 


CDMD 


028 






CDMD 


047 


CDMD 


045 






CDMD 


052 


COMD 


047 






CDMD 


054 


COMD 


091 


CDMD 


150 


CDMD 


056 


CDMD 


053 






CDMD 


062 


CI MO 


056 






CDMO 


068 


CDMD 


090 






CDMD 


069 


CDMD 


076 






CDMD 


077 


CDMD 


074 






COMD 


080 


CJMD 


069 






CDMD 


084 


CDMD 


082 






CDMD 


091 


CDMD 


079 






CDMD 


096 


CDMD 


94 






CDMD 


098 


CDMD 


096 






CDMD 


106 


COMD 


046 


CDMD 


109 


COMD 


116 


CDMD 


114 






CDMD 


117 


CDMD 


123 






CDMD 


121 


CDMD 


119 






CDMD 


133 


CDMD 


U5 






CDMD 


138 


CDMD 


1C2 


CDMD 


126 


CDMD 


143 


CDMD 


141 






CDMD 


145 


CDMD 


143 






CDMD 


150 


CDMD 


1C7 


CDMD 


130 


CDMD 


151 


CDMD 


132 






CDMD 


153 


CDMD 


164 






CDMD 


154 


CDMD 


2C2 






CDMD 


156 


CDMD 


154 






CDMD 


158 


CDMD 


174 






CDMD 


159 


CDMO 


1S8 






CDMD 


166 


COMD 


158 






COMD 


174 


CDMO 


157 






CDMD 


182 


COMO 


172 






CDMD 


183 


CDMO 


iei 






CDMO 


184 


CDMD 


197 


CDMD 


199 


CDMD 


185 


CDMD 


173 


CDMO 


183 


CDMD 


186 


CDMD 


190 







CDMD 206 



CDMD 131 COMO 134 
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CDMD 
CDMD 
CDMD 
CDMO 
CDMD 
CDMD 
CDMO 
CDMD 
CDMO 



196 
199 
203 
207 
21L 
213 
214 
215 
216 



COMO 
CDMD 
CDMD 
CDMD 
CDMD 
CDMO 
CDMO 
CDMD 
CDMD 



193 

196 

on 

205 
2C7 

052 
058 
071 
220 



********************************** 

* CROSS REFERENCE FOR CSECT CDMD * 
********************************** 



CDMD 014 CNVR 070 



CDMD 
CDMO 
CDMD 



209 
080 
137 
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CDVD DESCRIPTIVE TEXT 



** * ** ******************************** 4c ************ *************** 

* * ***** 

* ENTKY * OPERATION * 8YTE 1 * BYTE 2 * BYTE 3 * BYTE 4 * 

*_„._ . — *^ . — * *_* * -* * 

* HUCPiD * BINARY DIVIDE * ID * Ri R2 * * * 

* RXQP5D * BINARY DIVIDE * 5D * Rl X2 * 82 02 * 02 * 
***. ************************************************************** 



EXECUTION 



OBJECTIVES 



THE DIVIDEND (1ST OPERANDI IS DIVIDED BY THE 
DIVISOR (2ND OPERAND). THE QUOTIENT AND 
REMAINDER ARE PLACED IN THE FIRST OPERAND LOCATION, 

IHE DIVIDEND I S A 64 BI T SIGNED INTEGER THAT MUST 
BE LOCATED IN AN EVEN-ODD PAIR OF GENERAL PURPOSE 
REGISTERS* THE DIVISOR IS A 32 BIT SIGNED INTEGER, 
THE QUOTItNT SIGN IS DETERMINED BY THE RULES OF 

ALGEBRA, 



READOUT THE DIVISOR 

CHECK FOR EVEN DIVIDEND ADDRESS 

IF ODD ADDRESS, FLAG SPECIFICATION EXCEPTION 
CICY ROUTINE AND GO STORE INTERRUPT CODE 
PSW. 

THE DIVIDEND 

DIVIDEND MINUS, COMPLEMENT IT* 
DIVISOR MINUS, COMPLEMENT IT. 
DO A TRIAL SUBTRACT 

IF QUOTIENT WILL FIT, DO THE DIVIDE. 
IF QUOTIENT TOO LARGE # FLAG A DIVIDE EXCEPTION 
AND GO TO STORE INTERRUPT CODE IN PSW. 
THE SUBTRACT 

THE QUOTIENT AND REMAINDER ARE PLACED IN THE 
FIRST OPERAND LOCATION. 



IN 
IN 
READOUT 
IF 
IF 



DO 



AUDR 


WORD 


SEQUENCE Nu. 


LABEL 






CDVD 


001. 


T 


19F8 


tlFD 


CDVD 


002 


KR0P1D 


19 FA 


3483 


CDVD 


0C3 




19FC 


8 3 7C 


CDVD 


04 


N E Q L A B 


19FE 


A21E 


CDVD 


005 




It 18 


5618 


CDVD 


006 


RX0P5D 


2 2 i A 


5E10 


CDVD 


007 




Id IC 


55B8 


CD VO 


008 




22 IE 


F*22 


CDVD 


009 


MEET 


2*20 


AES8 


CDVD 


010 




2222 


euc2 


CDVD 


Oil 


MEETA 


2224 


54A8 


CDVD 


012 




2226 


58AA 


C D VO 


013 




2228 


3815 


CDVD 


014 




222b 


52A8 


CDVD 


015 




222C 


5 0AA 


CDVD 


016 




222E 


C634 


CDVD 


017 




22 30 


8AE0 


CDVD 


018 




2232 


3B13 


CDVD 


019 




2234 


C43A 


CDVD 


020 


MEETB 


2236 


$708 


CDVD 


021 




2238 


3B23 


CDVD 


022 




223A 


4C86 


CDVD 


023 


MEETD 


223C 


30C2 


CDVD 


024 





NEXTSEQ NEXTLABEL STATEMENT 



BINARY DIVIDE ROUTINES 



COMMENTS 





004 


NEUAB 


BR IF S6=l 
G() = G0$K80 


CCOM 


029 


LGET 


BAL 




009 


MEET 


BR 

HOH D U*2 

RDH H U 

TI=G1H 




on 


MEETA 


BR IF G13=0 


I i C r 


5 9 


SPLCHK 


BR 


CCGM 


057 


LSAVEA 


BAL 

RDH G AS,T*2 
RDH I AS,T-2 
r 1 = 1 UK 10 
RDH V AS.,T*2 
RDH U AS,T-2 




020 


MLET b 


br if doo=o 


CCOM 


076 


COMPL 


BAL 
Tl^TlSKOl 




023 


MEETD 


BR IF GOO^O 




088 


COMDVD 


BAL 

TUTUKO'2 

P»I 

SET S K=90 



READ 
OUT 



DIV 



READ 
OUT 
THE 
DVD 



MINUS 
DIV 

MINUS 

DVD 
SETUP 

AND 00 



ADDR 


WOR D 


SEQUENCE NO. 


LABEL 


223E 


7DFD 


CDVD 


025 




2240 


7CE0 


CDVD 


026 




2242 


4C46 


CDVD 


027 




2244 


7D70 


CDVD 


028 




22**b 


7C6D 


CDVD 


029 




2248 


F5CC 


CDVD 


030 




224A 


AEFC 


CDVD 


031 




224C 


4C5 2 


CDVD 


032 


MEETC 


224E 


10CE 


CDVD 


033 




2250 


A6F8 


CDVD 


034 




2252 


625A 


CDVD 


035 




0258 


A6F6 


CDVD 


036 


INSERT 


025A 


3002 


CDVD 


037 


ARND 


025C 


79FD 


CDVD 


038 


COMPUT 


025E 


78E0 


CDVD 


039 




0260 


7 5 70 


CDVD 


040 




0262 


746D 


COVD 


041 




0264 


F5D9 


CDVD 


042 




026o 


A6F6 


CDVD 


043 




0268 


1C02 


CDVD 


044 




026A 


82 5C 


CDVD 


045 




26F6 


2C1B 


CDVD 


046 


SHIFT 


26F8 


611D 


CDVD 


047 


SHIFTA 


2bFA 


60CD 


CDVD 


048 




2bFC 


6330 


CDVD 


049 




26FE 


622D 


CDVD 


050 




2700 


ECOD 


CDVD 


051 




27 02 


6SSQ 


CDVD 


052 




2704 


688D 


CDVD 


053 




2706 


6550 


CDVD 


054 




2708 


644D 


CDVD 


05 5 




270A 


128E 


CDVD 


056 




270C 


C418 


CDVD 


05 7 


CYCLE 


270E 


1002 


CDVD 


058 




2710 


79FU 


CDVD 


059 




2712 


78ED 


CDVD 


060 




2714 


7570 


CDVD 


061 




2716 


7460 


CDVD 


062 




2718 


5BC9 


CDVD 


063 


ARNg 


27 1A 


52DS 


CDVD 


064 




27 10 


E627 


CDVD 


065 




27 IE 


C436 


CDVD 


066 




2720 


97EC 


CDVD 


06 7 




2722 


C436 


CDVD 


068 




2724 


AEFC 


CDVD 


069 


LAdELQ 


2726 


C42B 


CDVD 


070 


NXTA 


2 728 


97EC 


CDVD 


071 




272A 


F839 


CDVD 


072 


NXTD 


272C 


97F0 


CDVD 


073 


NXIC 


272E 


52D9 


CDVD 


074 




2730 


D5BA 


CDVD 


075 




2732 


C03B 


CDVD 


07o 




2734 


AEFC 


CDVD 


077 





NEXTSEQ NEXTLABEL STATEMENT 







P1C=P1*HH-C 






POC=PO%HO*C 






P = G 






P1C=P1%DH-C 






POC=PO%00+C 


032 


MEETC 


BR IF S3=0 


098 


DiVCHK 


BR 

RDH P DC,9A 

RST S K=FC 


04 7 


SHIFTA 


BAL 


037 


ARND 


BR 


046 


SHIFT 


BAL 

SET S K=90 

IiC=I«Hl«-C 

IOC^IOSHO+C 
G1C=G1%D1+C 
GOC=GG%DO+C 


036 


INSERT 


BR IF S3=l 


046 


SHIFT 


BAL 

RST S K=90 


038 


COMPUT 


BR 

P0 = P0+K0 1 

U1C=U1+U1*C 

uoc=uo+uo+c 

V1C=V1+V1+C 
VOC=VO+VQ+C 


057 


CYCLE 


BR IF P02=l 
UC=I1 + I1+C 
10C=I0*-I0 + C 
G1C=G1+G1+C 
GOC=GO+GO+C 
RTN 


06 3 


ARNg 


BR IF G00=0 

RST S K=90 

ilC»U%Hl+C 

IOC=IO%HO+C 

G1C=G1£D1+C 

GOC=GQ%DO*C 

P0=T1 

Pl^VO 


070 


NXTA 


BR IF P06=l 


078 


NXTB 


BR IF G00=0 


100 


COMR 


BAL 


078 


NXTB 


BR IF G00=0 


098 


DIVCHK 


BR 


072 


NXTD 


BR IF GOO=i 


100 


COMR 


BAL 


079 


NXTF 


BR IF P07=l 


102 


COMQUO 


BAL 
P1 = V0 


080 


FINISH 


BR IF S1=0 


080 


FINISH 


BR IF PI BITOM 


098 


DIVCHK 


BR 
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COMMENTS 

TRIAL 

SUBTRACT 



eRANCJ OK 



SHIFT 
LEFT 

ROUTINE 



REM - 

REM SHD BE ♦ 



IS ♦ 



AUDK 

11 36 
//id 
27 U 
<?73C 
2 7JE 
2740 
2742 
2744 
2746 
2748 
1708 
17DA 
1 7 DC 
17DE 
17E0 
17E2 
17E4 
17E6 
17E8 
17 E A 
2EFC 
2EFE 
17EC 
17EE 
UFO 
i?F2 
17F4 
17F6 
17F8 
1 7 FA 
17FC 



CDVD 
CDVO 
CDVD 
COVO 
COVO 
COVO 
COVO 
CDVO 
CDVD 
CDVD 
COVO 
COVO 
CDVO 
COVO 
CDVO 
CDVD 
CDVD 
CDVD 
CDVO 



WORD SEQUENCE NO. 



F820 
CD25 
5BB8 
72A8 
70AA 
1B15 
74A8 
78AA 
92 56 
A8D€ 
2002 
711B 
700B 
733B 
722B 
799B 
788B 
755B 
744B 
128E 
9256 
AB62 
2002 
F5E3 
0008 
3002 
711B 
70CB 
733B 
722B 
128E 



CDVD 
CDVO 
CDVO 
COVO 
CDVD 
CUVD 
CDVD 
CDVO 
COVO 
CDVD 
CDVD 
COVO 
COVO 
COVO 
COVO 
CDVO 
CDVD 
CDVO 
COVO 
CDVD 
CDVO 
CDVD 
COVO 
COVO 
CDVD 
CDVO 
COVO 
COVO 
COVO 
CDVO 
COVD 



078 
C79 
080 
081 
082 
G83 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 



002 
004 
006 
009 
Oil 
020 
023 
032 
036 
037 
038 
046 
047 
057 
063 
069 
070 
072 
073 



CICY 160 
COVD 002 
CICY 192 
COVD 0C5 
CDVO 0C9 
COVO 017 
CDVO 020 
COVD 030 
COVD 042 
COVD 035 
CDVO 045 
CDVD 036 
COVO 034 
COVD 051 
CDVD 057 
COVO 079 
COVD 065 
COVO 070 
COVD 78 



LABEL 

NXTB 
NXTF 
FINISH 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, EC LEVEL = 1282 1l 
COMMENTS 
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CQMDVD 

CMOVA 

DIVCHK 

COMR 

COMQUO 



073 NXTC BR IF P07=l 

069 LABELQ BR IF PiO=l 

Ti=TlH 

STH V AS,T*2 

STH U AS,T-2 

Tl=Tl*-K10 

STH G AS.T+2 

STH I AS,T-2 
CCOM 065 LRSTRA BAL 

CICV 004 CHECK BR 

SET S K=10 COMP 

U1C-0-UHX DVD 

U0C=0-U0+C 

VIC-O-VH-C 

VOC=0-VO*C 

■IIOO<-U*C 

I0C=0-I0*C 

GIO0-G1+C 

GQC=0-GO+C 

RTN 
LRSTRA BAL 

LAB14 BR 

SET S K=10 
093 CMDVA BR IF S3-i 

RST SI 

SET S K=90 

U1C=0-U1+C 

uaoo-uo*c 

VlC*0-VI*C 
VGC=0-V0*C 
RTN 
********************************** 

* CROSS REFERENCE FOR CSECT CDVO * 
**^****************************** 



CCOM 065 
CNVR 120 



GO FLAG DIVIDE CHECK AND INTRPT 



COVD 043 



COVO 


078 


CDVO 


06:6 


COVD 


068 


covo 


079 


covo 


072 






CDVO 


080 


covo 


075 


COVO 


076 


COVO 


088 


CDVD 


021 






covo 


093 


COVD 


1C1 






covo 


098 


covo 


031 


COVO 


069 


covo 


100 


covo 


067 


CUVD 


071 


covo 


102 


covo 


73 
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*************** ** 4c 4c ******* ******** 

* CROSS REFERENCE FOR CSECT CDVD * 
********************************** 



CDVO 077 
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CFAO DESCRIPTIVE TEXT 



ENTRY IS MADE TO THE -CFAD- ROUTINE FROM FLOATING 
POINT I-CYCL6S -CFCY-. THE NORMALIZED AND UNNORMALIZED 
ADD OR SUBTRACT, AND COMPARE OP CODES LISTED BELOW ARE 
HANDLED BY THIS ROUTINE* 



OBJECTIVES 



****************************************************************** 

* OP CODE TYPE * BYTE I * BYTE 2 * BYTE 3 * BYTE 4 * 
************* * **************************************************** 

* RR COMPARE I LONG) * 29 * Rl R2 * * * 

* * * * * * 

* RR ADD NORM. (LUNG) * 2A * Rl R2 * * * 

* * * * * * 

* RR SUB. NORM. I LONG) * 2B * Rl R2 * * * 



* RR ADD UNORM. 4LQNGJ * 2E * Rl R2 * 

* . * — * * — 

* RR SUB UNORM. (LONG) * 2f * Rl ' R2 ♦ 

* RR COMPARE I SHORT) * 39 * Rl R2 * 

* * * * — 

* RR ADD NORM, i SHORT) * 3A * Ri R2 * 

* * * *— 

* RR SUB NORM. (SHORT) * 3B * Rl R2 * 



* * 

* * 
* * 

* * 

* 4c 

* * 



* RR ADD UNORM. (SHORT) * 3E * Ri R2 * 

* * * *- 

* RR SUB UNORM. (SHORT) * 3F * Rl R2 * 



* RX COMPARE (LONG) 

* 

* KX ADD NORM. (LUNG) 

* 

* RX SUB NORM. (LONG) 

* 

* RX ADD UNORM. (LONG) 



X2 * 82 D2 * 

* *.. 

X2 * B2 D2 * 
X2 * B2 D2 * 



D2 * 
* 

02 * 
D2 * 



* 69 * Rl 

.* * . 

* 6A * Rl 

.* * 

* 6B * Rl 

* 6E * Rl X2 * B2 D2 * 02 * 

* * * * * * 

* RX SUB UNOKM. iLONG) * 6F * Rl X2 * B2 D2 * D2 * 

* RX COMPARE (SHORT! * 79 * Rl X2 * B2 D2 * D2 * 

* * * * * * 

* RX ADD NORM. (SHORT) * 7A * R2 X2 * 82 D2 * D2 * 

* RX SUB NORM, i SHORT) * 7B * R2 X2 * B2 D2 * D2 * 

* * * * * * 

* RX ADD UNORM. (SHORT) * 7E * Rl X2 * 82 D2 * D2 * 

* * * — * * 4c 

* RX SUB UNORM. I SHORT) * 7F * Rl X2 * B2 02 * 02 * 

* * * , * * * 



COMPARE OPS - THE FIRST OPERAND IS COMPARED WITH 
THE SECOND OPERAND. THE CONDITION CODE 
IS SET TO INDICATE THE RESULT OF THE 
COMPARE. COMPARISON TAKES INTO ACCOUNT 
THE SIGN, FRACTION, AND EXPONENT OF 
EACH OPERAND. 



ADD OPS 



- THE SECOND OPERAND IS ADDED TO THE 
FIRST OPERAND, AND THE SUM IS PLACED 
IN THE FIRST OPERAND LOCATION. FOR 
SHORT OP FORMATS, THE LOW ORDER HALVES 
OF THE FLOATING POINT REGISTERS ARE 
NOT USED. 

CHARACTERISTICS ARE ALIGNED BEFORE 
ADDITION TAKES PLACE. 



SUBTRACT OPS- THE SECOND OPERAND IS SUBTRACTED 
FROM THE FIRST OPERAND, AND THE 
DIFFERENCE IS PLACED IN THE FIRST 
OPERAND LOCATION. FOR SH CRT OP FORMATS 
THE LOW ORDER HALVES OF THE FLOATING 
POINT REGISTERS ARE NOT USED. 

CHARACTERISTICS ARE ALIGNED BEFORE 
SUBTRACTION TAKES PLACE. 



CONDITION CODES 



COMPARE 



ADD 
AND 
SUBTRACT 



O^OPERANOS ARE EQUAL 
l=FIRST OPERAND IS LOW 
2*FIR-ST OPERAND IS HIGH 

0=RESULT FRACTION IS ZERO 
t "RESULT IS LESS THAN ZERO 
2-RESULT IS GREATER THAN ZERO 
3*RESULT EXPONENT OVERFLOWS 



ADOK 


WORD 


SEQUENCE m. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






CFAO 


001 


T 








ADD,SUBTRAC 






CFAO 


002 


* 














CFAO 


003 


♦ 














CFAO 


004 


♦ 














CFAO 


005 


* 














CFAD 


006 


ASEQ 


AL07=72 








0972 


3B35 


CFAD 


007 


SCAO 








Ti=Tl$K30 ** 


09 74 


9AD0 


CFAD 


008 




CFCO 


078 


ST0RE2 


BAL 


0976 


5E79 


CFAD 


009 










Di = HO 


0978 


5AE2 


CFAD 


010 










RDH T CA,BC 


097A 


8212 


CFAO 


Oil 




CFCO 


090 


RDOPER 


BAL 


097C 


2C07 


CFAD 


012 










P0=0 


097E 


5E69 


CFAD 


013 










00= HO 


0980 


5609 


CFAO 


014 










P1=H0 


0982 


2040 


CFAD 


015 










SET S5 ** S 


0984 


7671 


CFAD 
CFAD 


016 
017 


* 








00 = DO- om 


09 86 


E48E 


CFAD 


018 






022 


NOTOVF 


BR IF NOVFL 


0988 


F491 


CFAD 


019 






023 


N0T1BC 


BR IF AC=l 


098A 


56C9 


CFAD 


020 


HAV1BC 








P0=00 ** SH 


098C 


8996 


CFAD 


021 






027 


TCCTRL 


BR 


098E 


F48B 


CFAO 


022 


NQTGVF 




020 


HAV1BC 


BR IF AC=1 


0990 


0040 


CFAO 
CFAO 


023 
024 


N0T1BC 

* 








RST S5 ** NO 
R2 


0992 


57E9 


CFAD 


02 5 










H0 = D1 


0994 


7C61 


CFAD 


026 










P0=P0-D0+1 * 


0996 


F01A 


CFAD 


027 


TCCTRL 




029 


THISAO 


BR IF GO 7=0 


0998 


1C80 


CFAD 


028 










P0=P0QK80 


099A 


ccie 


CFAO 


029 


THISAO 




031 


TRUE 


BR IF P00=0 


099C 


3002 


CFAD 


030 










SET S K=90 


0996 


1C85 


CFAD 


031 


TRUE 








P0=P0*-K80 


09A0 


ECA5 


CFAD 


032 






034 


SPEEDY 


BR IF HZ=0 


09A2 


2CF3 


CFAD 


033 










PO=0$KOF 


09 A4 


FOBF 


CFAO 


034 


SPEEDY 




047 


N0SH1F 


BR IF LZ=Q 


09A6 


01B6 


CFAO 


035 






043 


SHIFRl 


BR IF S5=0 


09A8 


3B35 


CFAD 


036 










T1=T1$K30 


09AA 


8212 


CFAD 


037 




CFCO 


090 


RDOPER 


BAL 


09AC 


A656 


CFAD 


038 




CFCO 


007 


SHIFR4 


BAL 


09AE 


9AD0 


CFAD 


039 




CFCO 


078 


ST0RE2 


BAL 


09B0 


5AE2 


CFAD 


040 










ROH T DA,BC 


09 B 2 


8212 


CFAD 


041 




CFCO 


090 


RDOPER 


BAL 


09 64 


89C0 


CFAD 


042 






048 


ADD 


BR 


09B6 


1E85 


CFAD 


043 


SHIFRl 








H0=H0*-K80 


09B3 


C03C 


CFAD 


044 






046 


DESAOD 


BR IF P10=0 


09BA 


3E85 


CFAD 


045 










H0=H0$K80 


09BC 


A656 


CFAD 


046 


OESADD 


CFCO 


007 


SHIFR4 


BAL 


09B6 


0040 


CFAD 


047 


NOSH IF 








RST S5 ** 


09C0 


3B35 


CFAD 


048 


ADD 








T1=T1$K30 


09C2 


0008 


CFAD 


049 










RST SI 


09C4 


01CB 


CFAO 


050 






053 


R2GUAR 


BR IF S5=l 


09C6 


75AD 


CFAD 


051 


R2TRUE 








G1C=G1%T0+C 


09C8 


89CE 


CFAD 


052 






055 


CHKNQR 


BR 


09CA 


C5C6 


CFAO 


053 


R2GUAR 




051 


R2TRUE 


BR IF S0=0 
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COMMENTS 

FLOATING POINT 



T=AOD OF SAVE AREA-38 OR 78 IN AUX 
SAVE 2N0 OPERAND 
SAVE R2 EXPONENT 
GET Ri AODRESS 
GET Ri OPERANO 

SAVE RI EXP 

SAVE RI EX? FOR ORIG SIGN 
5 WILL BE RST IF Ri MUST BE RIGHT SHIFT 
SUBTRACT R1EXP-R2EXP 
NO 1BC IND. RI MUST SHIFT DO HAS COUNT 

OVFL IS ON 
IFT COUNT TRUE FORM TO PO 



1BC Ri IS SMALL-MUST SHIFT 
IS RES EXP MOVE R2 EXP TO RI OPERANO 

* SHIFT COUNT IS IN COMP. MUST RECOMP 
BR IF ADD COMP CTRL IS OK 
SUB,CQMP-MUST INVERT T/C BIT 
BR IF TRUE 
** SET COMP CTRL AND CARRY 

REMOVE SIGN FROM SHIFT COUNT 
BR IF NO HI COUNT ALIGNMENT 
USE COUNT OF 15 TO ZERO OUT REG 
BR IF EXPONENTS ARE EQUAL 
BR IF Ri MUST SHIFT 
T= R2 SAVE 
GET R2 

PUT SHIFTED R2 BACK IN SAVE 
GET Ri ADD T=00X8 



MAKE RESULT SIGN ♦ 
BR IF ORIG SIGN * SIGN IS OK 
ORIG WAS - MAKE RES - 
GO SHIFT Ri RIGHT 
NO SHIFT RSI S5 FOR GUARD DIGIT CTRL 
T= 38 OR 78 =R2 SAVE 
FOR GUARD SIGNIF* TEST 
BR IF GUARD IS R2 
DO SIG TEST ON RI 

D TRUE AOO 



AOUR 

09CC 
09C6 
09D0 
0902 
0904 
09D6 
09D8 
09DA 
09 DC 
09 DE 
09E0 
09E2 
09E4 
Q9E6 
09E8 
09EA 
09EC 
09EE 
09F0 
09F2 
09F4 
U9F6 

09F8 

09FA 
09FC 
09FE 

OAOO 
UA02 
0A04 
0A06 
0A08 
OAOA 
OAOC 
OAOE 
OAIO 
0A12 
0A14 
0A16 
0A18 



OAIA 
OAIC 
0A1E 
0A20 
0A22 
0A24 
0A26 
0A28 

0A2A 



WORD SEQUENCE NO. 



7556 

D052 

oooa 

A 704 
5AE2 
C5EE 
F50E 
00G2 
89EE 
1E80 
E070 
00G8 
20G2 
7 55B 
006C 
0OC8 
9364 
E07F 
9258 
Q5F9 
F5F9 
A80C 

CE7D 
ACA4 
ASIA 
F5A9 

5CC2 

D5CA 
0043 
OFF 3 
C4C2 
A1E4 
2EFF 
E496 
F499 
2507 
6A06 
F493 
ED IF 



2CC7 
8260 
2080 
1E80 
2 703 
25C7 
8AC6 
2A13 

2C13 



CFAD 
CFAD 
CFAO 
CFAD 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAD 
CFAO 
CFAO 
CFAO 
CFAO 
CFAD 
CFAO 
CFAD 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAD 
CFAO 
CFAO 
CFAO 
CFAD 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 



054 
055 
056 
057 
058 
059 
060 
061 
062 
06 3 
064 
06 5 
066 
067 
06 8 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
C94 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 



LABEL 

CHKNOK 
NORM 



NOCARY 



NEXTSEQ NEXTLABEL STATEMENT 



SAVSIG 
TCOMPU 
CPFIN 



COMNZ 

COMPNE 
NO TCP 



CONOKM 



HA1BC 

NOOVER 
UNDERF 



TAKE IN 



FRACOV 



057 

CFCO 120 

071 
063 

071 

072 



CFCO 103 
080 

CCOM 066 
077 
077 

CICY 003 

079 
CLOG 052 
CLOG 082 

104 



123 
118 

118 
CFCO 034 

093 
094 

085 
091 
099 



NORM 

COMPUT 

TCOMPU 
NOCARY 

TCCMPU 

CPFIN 



070 SAVSIG 



RECGMP 

NOTCP 

LRSTRB 

COMNZ 

COMNZ 

CHECKX 

COMPNE 
0P95A 
SETNZ 
FRACGV 



FRACZO 
UNOREN 

UNOREN 
SHIFL4 

NOOVER 
UNDERF 

CONOPM 

HA1BC 

TAKEIN 



CFMA 029 DIVNOI 



085 CONGRM 



G1O0-G1+C 

BR IF G05=0 

RST SI ** 

BAL 

ROH T 0A,8C 

BR IF S0=0 

BR IF S3=0 

RST S3 

BR 

H0=H0nK80 

BR IF G06-0 

RST Si 

SET S3 

GlC-O-Gl+C 

BR IF GO 5-0 

RST Si 

BAL 

BR IF G06=i 

BAL 



BR 
BR 
BR 

BR 
BR 
BR 
BR 



IF 
IF 



Sl=l 
S3*i 
** RES 



IF HOO*l 



IF S3=l 



RDH P 
BR IF 
BR IF 
Z=Hl*- 



DA, B8 

Sl^O 

G05=l 

KOF 

ZNZ 



BR IF 

BAL 

H0 = H0«-KFF 
BR IF NOVFL 
BR IF AC-1 



CLOAD=*E60, EC LEVEL=1282U 

COMMENTS 

R2 GUARD COMP 

UNORMAL I ZED-GUARD NOT TESTED FOR SIGNIFI. 
GO ADD,S,C Rl*R2 
GET Rl ADDRESS 
BR IF TRUE COMPUTE 
COMPLIMENT -CHECK CARRY 

ALL OK RESULT IS TRUE FORM 
INV SIGN-COMP OP -MUST RECOMP 
BR IF COMPARE 

RST SI FOR RES CHECK OF COMP 
COMP GUARD 

BR IF NORMAL, SAVE GUARD SIGNIF. 
UNGRM. RST SIG. TEST BIT 

BR IF ADD OR SUB 

SET 

BR IF OVERFLOW ON CMP. NOT-0 

CQND 

CODE 
BR IF NEG 
SET CC 2 
SET CC 1 
BR IF CARR RES NOT 

FRACTION MUST SHIFT RIGHT 4 
RESTORE P 
GO CHECK SIG MASK 

CHECK HI DIGIT FOR NORMALIZING 
BR IF NO NORMALIZE REQUIRED 

DECREMENT EXPONENT 
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G1=0 
BR 

BR IF 
BR IF 



** ZERO GUARD- HAVE 1BC NO UNDERFLOW 



AO 1 
PI 2*1 



P0=0 

BR ** UNDERFLOW BUT 

SET S4 

H0=H0aK80 

D1^0$K0D 

Gi^O 

BR 

T0=0$K01 

P0=0$K01 



EXPONENT HAS UNDERF LOWED 
IF UNDF IS MASKED RESULT IS 0«0 OUT 
IF NOT MASKED CONT NORM. BUT TAKE INTER. 

SET CCO 

NO INT, GO STORE 0,REST I , GO ICYC 

REMEMBER INT 

INVERT SIGN 

UNDERFLOW INT CODE 

ZERO OUT GUARD 

CO NT I NUE NORMAL I Z I NG 

FRAC.HAS OVERF. INSERT 01 FOR 
RIGHT SHIFT 

SET SHIFT COUNT =1 



ADOK 


WORD 


SEQUENCE NO, 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


0A2C 


A656 


CFAO 


107 




CFCO 


007 


SHIFR4 


BAL 


OA2E 


5CC2 


CFAO 


108 










ROH P DA f B8 


OA.30 


2A07 


CFAO 


109 










T0=0 


UA32 


2E18 


CFAO 


110 










H0=H0+K01 


GA34 


E4B8 


CFAO 


111 






114 


ACERAN 


BR IF OVFL 


0A36 


F4B0 


CFAO 


112 






115 


EXPOV 


BR IF AC=1 


0A38 


8A42 


CFAO 


113 


NQ1BC 




118 


UNOREN 


BR ** NO 1BC< 


0A3A 


F4B9 


CFAO 


114 


AC BRAN 




113 


N01BC 


BR IF AC^l 


0A3C 


1B8D 


CFAO 


115 


EXPQV 








H0=H0aK80 


0A3E 


2 7C3 


CFAO 


116 










D1=0$K0C 


0A40 


2C80 


CFAO 


117 










SET S4 


QA42 


2C25 


CFAD 


118 


UNOREN 








P0=0$K20 


0A44 


CE48 


CFAD 


119 






121 


FIN 


BR IF H00=0 


0A46 


1C70 


CFAO 


120 










P0=P0nK70 


0A48 


B266 


CFAO 
CFAO 


121 
122 


FIN 


CFHA 


032 


ST0RE1 


BR 


0A4A 


FQ4F 


CFAO 


123 


FRACZO 




125 


SIGiNT 


BR IF P13=l 


0A4C 


2EC7 


CFAO 


124 










H0=0 


0A4E 


1E85 


CFAO 


125 


SIGINT 








H0=H0*-K80 


0A50 


9ADG 


CFAO 


126 




CFCO 


078 


ST0RE2 


BAL 


0A52 


925A 


CFAO 


127 




CCGM 


067 


LRSTRC 


BAL 


0A54 


2CC7 


CFAO 


128 










P0=0 


0A56 


F05B 


CFAO 


129 






131 


TSIGIN 


BR IF P13=i 


0A58 


A80E 


CFAO 


130 




CICY 


004 


CHECK 


BR 


0A5A 


2BE3 


CFAD 


131 


TSIGIN 








Ti^OSKOE 


0A5C 


9C70 


CFAO 
CFAO 


132 

133 


A END 


BPSW 


003 


PROG 


BR 



CLQAD=*E60, EC LEVEL = 1282 11 

COMMENTS 



RESTORE P 

INC EXPONENT 
CFECK 
FOR EXPONENT OVERFLOW 
-NO OVERFLOW-GO SET CC+STORE RESULT 

INVERT SIGN 

SET OVERF INT CODE 

REMEMBER INT TO BE TAKEN 

SET CC 2 + 

IF POS CC IS CORRECT 

RES - CORRECT CC = 1 

STORE RESULT,RESTORE I , GO TO 

I CYCLES OR INTER* IF S4=l 
BR IF SIG INT NOT MASKED 
ZERO OUT EXP -NO INT 
MAKE TRUE ZERO 
STORE RES 
RESTORE I 
CCO 



PAGE 83 



CFAO 
CFAO 
CFAD 
CFAD 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAO 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAO 
CFAD 
CFAD 



007 
020 
022 
023 
027 
029 
031 
034 
043 
046 
047 
048 
051 
053 
055 
057 
063 
070 
071 
072 
077 
079 
080 



CFCY 061 
CFAD 022 
CFAD 018 
CFAD 019 
CFAD 021 
CFAO 027 
CFAD 029 
CFAD 032 
CFAD 035 
CFAO 044 
CFAD 034 
CFAD 042 
CFAO 053 
CFAD 050 
CFAO 052 
CFAD 055 
CFAO 060 
CFAO 068 
CFAO 059 
CFAD 064 
CFAO 073 
CFAO 077 
CFAD 071 



CFCY 062 CFCY 063 



********************************** 

* CROSS REFERENCE FOR CSECT CFAO * 
********************************** 

CFCY 066 CFCY 067 



CFAD 062 



CFAD 074 
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********************************** 

* CROSS REFERENCE FOR CSECT CFAO * 
************* *** * * * * *** * * **** ** * * * 



CFAD 


085 


CFAD 


092 


CFAD 103 


CFAO 


091 


CFAO 


093 




CFAO 


093 


CFAD 


069 




CFAO 


094 


CFAO 


090 




CFAO 


099 


CFAO 


094 




CFAO 


104 


CFAD 


oeo 




CFAD 


113 


CFAD 


114 




CFAO 


114 


CFAO 


111 




CFAO 


115 


CFAD 


112 




CFAO 


118 


CFAD 


0£4 


CFAD 086 


CFAD 


121 


CFAD 


119 




CFAO 


123 


CFAD 


0€3 




CFAO 


125 


CFAD 


123 




CFAO 


131 


CFAD 


129 





CFAD 113 



ADDR 


WORD 


SEQUENCE NO. 








CFCO 


001 


T 






CFCO 


002 


♦ 






CFCO 


003 


* 






CFCO 


004 


* 






CFCO 


005 


* 






CFCO 


006 


* 


2656 


F4 5C 


CFCO 


007 




2558 


4953 


CFCO 


008 




265A 


F46F 


CFCO 


009 




26 5C 


4153 


CFCO 


010 


1 


265E 


5115 


CFCO 


Oil 




2660 


4013 


CFCO 


012 




2662 


5CC5 


CFCO 


013 




2664 


4303 


CFCO 


014 




2666 


5335 


CFCO 


015 




2668 


4233 


CFCO 


016 




266A 


5225 


CFCO 


017 




266C 


4923 


CFCO 


018 




266E 


5995 


CFCO 


019 


I 


2670 


4 89 3 


CFCO 


020 




2o72 


5865 


CFCO 


021 




ZbT* 


4F8 3 


CFCO 


022 




26 76 


5FF5 


CFCO 


02 3 




2678 


4AF3 


CFCO 


024 




2o7A 


2CFF 


CFCO 


02 5 




26 7C 


C4D6 


CFCO 


026 




2676 


128E 


CFCO 


027 








CFCO 


028 


* 






CFCO 


029 


* 






CFCO 


030 


* 






CFCO 


031 


* 






CFCO 


032 


* 






CFCO 


033 


* 


2164 


5FF3 


CFCO 


034 




21E6 


48F5 


CFCO 


03 5 




21E8 


5883 


CFCO 


036 




21EA 


4965 


CFCO 


037 




2 LEG 


5993 


CFCO 


038 




2LEE 


F474 


CFCO 


039 




21F0 


4595 


CFCO 


04 C 




2LF2 


128E 


CFCO 


041 




21F4 


4295 


CFCO 


042 




2LF6 


5223 


CFCO 


043 




21F8 


43 25 


CFCO 


044 




21FA 


5233 


CFCO 


045 




21FC 


4035 


CFCO 


046 




2IFE 


5003 


CFCO 


04 7 




2200 


4105 


CFCO 


048 




2202 


5113 


CFCO 


049 




2204 


4515 


CFCO 


050 




2206 


128E 


CFCO 


051 








CFCO 


052 


* 






CFCO 


053 


* 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 

*** COMMON FLOATING POINT ROUTINES *** 

*** SHIFT RIGHT 4 *** 



CL0AD**E60, EC LEVEL=128211 PAGE 85 

COMMENTS 



SHIFR4 



RLONG 



010 RLONG 
019 RSHGRT 



R SHORT 



007 SHIFR4 



SHIFL4 



042 LONGL 



LONGL 



BR IF G03=0 

G1=I1XH+G1L 

BR IF GO 3=1 

G1=U1XH+G1L 

U1=U1XL 

UI=U0XH*U1L 

U0=U0XL 

U0=V1XH+U0L 

VI=V1XL 

VI = V0XH+V1L 

VO=VOXL 

V0=£1XH4-V0L 

U=I1XL 

U=I0XH*UL 

IO=IOXL 

I0=H1XH+I0L 

Hl=HlXL 

H1=T0XH+HIL 

PO=PQ+KFF 

BR IF ZNZ 

RTN 



BR IF LONG 

UNC BRANCH TO SHORT OP 
SAVE GUARD LONG 



DEC SHIFTCOUNT 



*** SHIFT LEFT 4 *** 



H1=H1XH 

Hl-I0XL$H1H 

I0=I0XH 

I0=I1XL$10H 

Il=ilXH 

BR IF GO 3=0 

II = G1XL$UH 

RTN 

I1=V0XL$I1H 

V0=V0XF 

V0=V1XL$\/0H 

V1=V1XH 

V1=U0XL$V1H 

U0=U0XH 

U0=UiXL$U0H 

U1=U1XH 

UI=GIXL$U1H 

RTN 



BR IF LONG 
SHIFT IN GUARD 



SHIFT IN LONG GUARD 



AUOR 


WORD 


SEQUENCE NO. 


LABEL 






CFCO 


054 


* 






CFCO 


055 


♦ 


OBDA 


0008 


CFCO 


056 


ZTESI 


08OC 


6FF5 


CFCO 


057 




OBOE 


4886 


CFCO 


058 




OBEO 


F467 


CFCO 


059 




0BE2 


4226 


CFCO 


060 




0BE4 


40C6 


CFCO 


061 




0BE6 


128E 


CFCO 


062 


Z SHORT 






CFCO 


063 


* 






CFCO 


064 


* ■ 






CFCO 


065 


* 






CFCO 


066 


* 






CFCO 


067 


* 






CFCO 


068 


* 


0136 


4E52 


CFCO 


069 


ZEROUT 






CFCO 


070 


* 


0133 


48E6 


CFCO 


071 




013A 


42E6 


CFCO 


072 




01 3C 


40E6 


CFCO 


073 




013E 


128E 


CFCO 


074 








CFCO 


075 


♦ 






CFCO 


076 


♦ 






CFCO 


077 


♦ 


IADO 


7EA8 


CFCO 


078 


ST0RE2 


IAD 2 


78A8 


CFCO 


079 




IAD4 


F45B 


CFCO 


080 




1AD6 


72A8 


CFCO 


081 




1AD8 


70A0 


CFCO 


082 




LA DA 


1B73 


CFCO 


083 


SHORTS 


1A0C 


128E 


CFCO 


084 








CFCO 


085 


♦ 






CFCO 


086 


* 






CFCO 


087 


♦ 






CFCO 


088 


* 






CFCO 


089 


♦ 


0212 


5EA8 


CFCO 


090 


RDOPER 


0214 


58A8 


CFCO 


091 




0216 


F410 


CFCO 


092 




0218 


52A8 


CFCO 


093 




02 1A 


50A0 


CFCO 


094 




02 1C 


1B73 


CFCO 


095 


SHORTR 


02 IE 


12 8E 


CFCO 


096 








CFCO 


097 


* 






CFCO 


098 


♦ 






CFCO 


099 


♦ 






CFCO 


100 


♦ 






CFCO 


101 


♦ 






CFCO 


102 


* 


1364 


F46F 


CFCO 


103 


RECOMP 


1366 


711B 


CFCO 


104 




1368 


7008 


CFCO 


105 




136A 


7338 


CFCO 


106 





NEXTSEQ NEXTLABEL STATEMENT 



*** ZERO 
RST SI 

HUMllHi 

1*1 

BR IF 003*1 

V*V 

U=U 

RTN 
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COMMENTS 



062 Z SHORT 



083 SHCRTS 



095 SHORTR 



108 SHCRTC 



TEST *** 



MOVE THRU ALU — SET SI IF NZ 
BR IF SHORT 



*** 


ZERO 


ROH H 


DC, 9 A 


I*H 




V=H 




U*H 




RTN 





OUT 



RESULT *** 

READ Z€RO CONSTANT INTO * 



*** STORE ROUTINE *** 

STH H AStT*2 
STH I AS f T*2 

BR IF G03=l BR IF SHORT 

STH V AS,T*2 
STH U AS,T*0 

Ti*Ti*-K07 RST T TO 00X8 

RTN 



*** REAO REGI$T€R 
ROH H AS f T*2 
ROH I AS,T*2 
BR IF GO 3*1 
ROH V AS,T*2 
ROH U AS*T*0 
Tl=Tl*-K07 
RTN 



*** 



BR IF SHORT 



Tl= X8 



*** COMPLIMENT ROUTINE ♦** 



BR IF GO 3=1 

UIC*0-U1*C 

uoc*o-uo*c 

V1C*0-V1*C 



BR IF SHORT 
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AUDR 


WORD 


SEQUENCE NO.. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 




136C 


7228 


CFCO 


107 








V0C=0-V0+C 






136E 


7998 


CFCO 


108 


SHGRTC 






I1C=0-I1+C 






1370 


788B 


CFCO 


109 








I0C=0-I0*C 






13 72 


7FF8 


CFCO 


110 








HIO0-HH-C 






13 74 


EC79 


CFCO 


111 




113 


COMPAR 


BR IF G06=l 


BR IF NOT COMPARE OP 


1376 


0002 


CFCO 


112 








RST S3 






1378 


128E 


CFCO 
CFCO 
CFCO 

CFCO 


113 
114 
115 
116 


CGMPAR 
* 

* 






RTN 










CFCO 


117 


* 






*** AOO AND DIVIDE COMUTE RI-R2 


*** 






CFCO 


118 


* 
















CFCO 


119 


* 












27D4 


3BE3 


CFCO 


120 


CQMPUT 






Tl=Tl$KO£ 


SET T TO LOW HALF OOXE 


2706 


F45C 


CFCO 


121 




124 


LOCOMP 


BR IF GO 3=0 


BR IF LONG 




2708 


1B43 


CFCO 


122 








Tl=Tl*-K04 


TI = OOXA FOR 


SHORT LOW 


27DA 


F469 


CFCO 


123 




130 


SHCCMP 


BR IF GO 3* 1 


UNC BRANCH 




27DC 


56AA 


CFCO 


124 


LOCOMP 






RDH D AS,T-2 


T= OOXE T I S SET 


27DE 


7170 


CFCO 


125 








U1C-UUDUC 




TO 38 OR 78 


27EO 


706D 


CFCO 


126 








U0C=U0$OO+C 




WHICH I S A 


27E2 


56AA 


CFCO 


127 








RDH D AS,T-2 


T= OOXC 


SAVE AREA 


27E4 


7370 


CFCO 


128 








V1C=V1%D1+C 




FOR R2 OP 


27E6 


7260 


CFCO 


129 








V0C=V0%D0+C 






27E8 


56AA 


CFCO 


130 


SHCOMP 






RDH D AS,T-2 


T= OOXA 




27EA 


7970 


CFCO 


131 








11C=I1%D1*C 






27 EC 


7860 


CFCO 


132 








IOC=IOSDO+C 






27EE 


56A0 


CFCO 


133 








ROH D AS,T+0 


T= 00X8 




27F0 


7F7D 


CFCO 


134 








H1C=H1£DH-C 






27F2 


C1F7 


CFCO 


135 




137 


DIVCOM 


BR IF S4=l 


BR IF DIVIDE 




27F4 


128E 


CFCO 


136 








RTN 


A,S,C 




27F6 


7E60 


CFCO 


137 


DIVCOM 






H0C=H0%D0+C 






27F8 


128E 


CFCO 
CFCO 
CFCO 


138 
139 

140 


* 
* 






RTN 










CFCO 


141 


* 






*** RX OPERAND 


FETCH *** 








CFCO 


142 


* 












2574 


5E18 


CFCO 


143 


RXOPER 






RDH H U + 2 






2576 


5818 


CFCO 


144 








RDH I U + 2 






2578 


F47F 


CFCO 


145 




148 


XSHORT 


BR IF GO 3=1 






257A 


5218 


CFCO 


146 








RDH V U+2 






257C 


5010 


CFCO 


147 








RDH U U+0 






257E 


128E 


CFCO 


148 


XSHORT 






RTN 







CFCO 


007 


CFAD 


038 


CFAD 


046 


CFAD 


107 


CFCO 


026 


CFCO 


010 


CFCO 


0C7 














CFCO 


019 


CFCO 


0C9 














CFCO 


034 


CFAD 


087 


CFHA 


016 


CFMD 


030 


CFMU 


046 


CFCO 


042 


CFCO 


039 














CFCO 


056 


CFDV 


048 


CFLS 


025 


CFMD 


010 


CFMU 


051 


CFCO 


062 


CFCO 


059 














CFCO 


069 


CFHA 


030 















********************************** 

* CROSS REFERENCE FOR CSECT CFCO * 
********************************** 

CFDV 016 CFHA 010 
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* CROSS REFERENCE FOR CSECT CFCO * 
******* ************************** * 



CFCO 


078 


CFAD 


0C8 


CFAD 039 


CFAD 126 


CFHA 032 


CFMD 037 


CFMD 051 










CFCO 


083 


CFCO 


080 




















CFCO 


090 


CFAD 


Oil 


CFAO 037 


CFAO 041 


CFCY 019 


CFDV 009 


CFDV 047 


CFLS 036 


CFMD 039 


CFMD 060 


CFMD 068 


CFCO 


095 


CFCO 


0S2 




















CFCO 


103 


CFAD 


070 




















CFCO 


108 


CFCO 


1C3 




















CFCO 


113 


CFCO 


111 




















CFCO 


120 


CFAD 


057 


CFDV 007 


CFDV 026 
















CFCO 


124 


CFCO 


121 




















CFCO 


130 


CFCO 


123 




















CFCO 


137 


CFCO 


135 




















CFCO 


143 


CFCY 


044 




















CFCO 


148 


CFCO 


145 
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CFCY OESCRIPTIVE TEXT 



THE FLOATING POINT I-CYCLES ROUTINE -CFCY- IS ENTERED 
AT LABELS -RROP- OR -RXOP- FROM THE MAIN I-CYCLES ROUTINE 
-1CYC-. 

THE CHECK FOR CORRECT OPERAND ADDRESS 80UNDRIES AND THE 
CHECK FOR VALID FLOATING POINT REGISTER ADDRESSES IS MADE* 



THE SECOND OPERAND IS FETCHED AND THE FIRST OPERAND 
ADDRESS IS DEVELOPED BEFORE A BRANCH IS TAKEN TO THE 
INDIVIDUAL FLOATING POINT OPERATION ROUTINES* 



A DDR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 



2844 
2846 
2848 
284A 
284C 
284E 
2850 
2852 

2854 
2856 
2858 
285A 
285C 



2820 
2822 
2824 
2826 
2828 
282A 
282C 
282E 
2830 
2832 
2834 
2836 
2838 



E1C9 
3465 
056 7 
C4C2 
8DC2 
5563 
3B83 
8212 

458B 
25C7 
7AE2 
10CE 
BCC1 



AF4E 
2B83 
8DC2 
0565 
fcOC2 
AB53 
F43F 
0183 
F0C2 
CC38 
A5?4 
A854 
G4F5 



CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 



001 
003 
004 
005 
006 
007 
008 
012 
013 
014 
0X5 
016 
017 
018 
019 
020 
021 
022 
02 3 
024 
02 5 
026 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 



RROP 



NOEXEC 



014 NOEXEC 



051 
CCOM 057 



RIOPER 



FLOATING POINT i 

ALL OPS EXCEPT STORE BEGIN ALIKE 
2ND OPERAND IS IN LS HO, HI IO,Il f 

HO, Hi, 10,11, 
1ST OPERAND-NORM. OR UNNOR. IS IN R 
*** RR I CYCLES 

BR IF S6=l 

G0=G0$K80 

Z-GI*-K66 

BR IF ZNZ 

BAL 

Tl^GlXH 

Ti=Tl$K08 

BAL 



T1 = GIH+T1L 
Gi=0 

STH T DA,BC 
RST S K=FC 
N=G0L 
****************** 

*** RX I CYCLES 



RXOP 



LOCKLD 



STORCK 



CICY 081 

CCOM 057 

051 

CICY 045 

049 

051 

046 

CFCO 143 

021 



SPEC 
LSAVEA 



CFCC 090 RDCPER 



CYCLE DECODE RR AND RX 
* 

AS FOLLOWS 

Gi (SHORTI 

VOfVltUOtlHtGl (LONG ) 
1 LOCATION 
FLTPT *** 

CHK EXECUTE STAT BR IF NOT 

REMEMBER EXECUTE 

CHEC FOR ODD REG-SPEC CHECK 

SAVE P, I,G 
R2 ADDRESS 

GET 2ND OP- H0H1I0II I SHORTI 

HOHUOIiVOVlUOUl ILONG I 
Rl ADDRESS=T1 X8 

SAVE Rl OPER ADD IN AUX 



052 FLOAT N 



BASE2 

LSAVEA 

SPEC 

ADDERR 

SHORT 

SPEC 
STORCK 
RXOPER 
RIOPER 



BAL 

Tl=0$K08 

BAL 

Z=G1*-K60 

BR IF HZNZ 

BR IF H1=NZ 

BR IF GO 3- I 

Z=U1*-K08 

BR IF LZNZ 

BR IF G04=0 

BAL 

BR 

Z=G0*-KF0 



SEP. OPS 
*** 
FLTPT *** 



GET REST OF OP 

SAVE P,I,G 

CHK IF R2 NOT 0,2,4,6 

CHK 2ND OPER ADD TOO LARGE 

BR IF SHORT OP 

CHK FOR DOUBLE BOUNDARY 



LOOK FOR 60 OR 70 OP 



AOOR 


WORD 


SEQUENCE NO* 


LABEL 




NEXTSEQ 


NEXTLABEL 


STATEMENT 


283A 


FC8A 


CFCY 


04 7 








057 


FLOAT 5 


BR IF LZN2 


283C 


8D6C 


CFCY 


048 






CFLS 


034 


STORE 


BR 


283E 


01C3 


CFCY 


049 


SHORT 










Z=U1*-K0C 


2840 


F0B3 


CFCY 


050 








043 


LOOKLD 


BR IF LZ-0 


2842 


AE98 


CFCY 


051 


SPEC 




CICY 


059 


SPECHK 


BR 


2800 


B384 


CFCY 


052 


FLOAT 





CFLS 


007 


LOADP 


BR 


2802 


A150 


CFCY 


053 


FLOAT 


1 


CFLS 


014 


LQAON 


BR 


2804 


A154 


CFCY 


054 


FLOAT 


2 


CFLS 


022 


LOADT 


BR 


2806 


A152 


CFCY 


055 


FLOAT 


3 


CFLS 


021 


LOADC 


BR 


2808 


B23E 


CFCY 


056 


FLOAT 


4 


CFHA 


006 


HALVE 


BR 


28GA 


B376 


CFCY 


057 


FLOAT 


5 




068 


NOGOOD 


BR 


280C 


8376 


CFCY 


058 


FLOAT 


6 




068 


NOGCOD 


BR 


280E 


8376 


CFCY 


059 


FLOAT 


7 




068 


NOGOOO 


BR 


2810 


B266 


CFCY 


060 


FLOAT 


8 


CFHA 


032 


ST0RE1 


BR 


2812 


89 72 


CFCY 


061 


FLOAT 


9 


CFAD 


007 


SCAD 


BR 


2814 


8972 


CFCY 


062 


FLOAT 


A 


CFAD 


007 


SCAD 


BR 


28 16 


8972 


CFCY 


063 


FLOAT 


B 


CFAD 


007 


SCAD 


BR 


2818 


9080 


CFCY 


064 


FLOAT 


C 


CFMD 


010 


MULPRE 


BR 


281A 


907E 


CFCY 


065 


FLOAT 





CFMO 


009 


DIVPRE 


BR 


28 IC 


8972 


CFCY 


066 


FLOAT 


E 


CFAD 


007 


SCAD 


BR 


281E 


8972 


CFCY 


067 


FLOAT 


F 


CFAD 


007 


SCAO 


BR 


3 376 


925A 


CFCY 


068 


NOG 000 




CCO-H 


067 


LRSTRC 


BAL 


33 78 


A05A 


CFCY 


069 






CICY 


066 


OPERR 


BR 


















********************** 


















♦ CROSS REFERENCE FOR 


















********************** 


CFCY 


012 CICY 018 


CICY 


019 












CFCY 


014 CFCY 012 
















CFCY 


021 CFCY 045 
















CFCY 


034 CICY 022 


CICY 


023 












CFCY 


043 CFCY 050 
















CFCY 


046 CFCY 043 
















CFCY 


049 CFCY 040 
















CFCY 


051 CFCY 015 


CFCY 


038 CFCY 


042 








CFCY 


052 CFCY 025 
















CFCY 


057 CFCY 047 
















CFCY 


068 CFCY 057 


CFCY 


058 CFCY 


059 
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COMMENTS 

OPER NOT STORE OP 
CHK WORD BOUNDARY 



LOAD POS 

LOAD NEG 

LOAD AND TEST 

LOAD COMPLIMENT 

HALVE 

OP ERROR 

OP ERROR 

OP ERROR 

LOAD 

COMPARE-LONGt SHORT-RR OR RX 

ADD NORMALIZED LONG OR SHORT 

SUBTRACT NORM LONG OR SHORT 

MULTIPLY LONG OR SHORT 

DIVIDE LONG OR SHORT 

ADD UNORMALIZED LONG OR SHORT 

SUBTRACT UNORMALIZED LONG OR SH 

RESTORE I 
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************ 

CSECT CFCY * 
************ 
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CFOV DESCRIPTIVE TEXT 



THE FLOATING POINT DIVIDE INSTRUCTIONS ARE FIRST 
HANDLED BY THE -CFMD- ROUTINE. THERE THE ZERO FRACTION 
TEST, PRENURMALIZATIGN, AND SUBTRACTION OF EXPONENTS 
IS MADE. 

THE -CFDV- ROUTINE HANDLES THE COMPUTATION OF THE 
QUQTENT AND THE STORING OF THE RESULTS. THE -CFCO- 
ROUTINE IS USED FOR ACTUAL COMPUTATION! RIGHT SHIFTING* 
AND ZERO TESTING OF THE RESULT. THE -CFHA- ROUTINE 
HANDLES LEFT SHIFTING, INTERRUPT CHECKING, AND THE 
DIVIDE EXIT TO EITHER THE INTERRUPT OR I-CYCLES ROUTINE, 



OP CODES HANDLED BY THE -CFDV- ROUTINE 

* ************ ****************************** ****** **************** 

* OP CODE TYPE * BYTE 1 * BYTE 2 * BYTE 3 * BYTE 4 * 
***************************************************************** 

* RR DIVIDE (LONG) * 2D * Rl R2 * * * 



* RR DIVIDE (SHORT) 

* 

* RX DIVIDE (LONG) 

* RX DIVIDE (SHORT! 



* 3D * Rl R2 * * * 

* * * * * 

* 6D * Rl X2 * B2 D2 * D2 * 



7D 



* Rl 



X2 * 82 D2 



D2 



***************************************************************** 



OBJECTIVE — 



THE FIRST OPERAND IS DIVIDED BY THE 
SECOND OPERAND. THE QUOTIENT REPLACES 
THE FIRST OPERAND. 



ADDR 



hORO SEQUENCE NO. LABEL 







CFDV 


001 


T 






CFDV 


002 


* 






CFDV 


003 


* 






CFDV 


004 


* 






CFDV 


005 


* 


IF84 


3082 


CFDV 


006 


DIVIDE 


IF86 


A704 


CFDV 


007 




LF88 


5AE2 


CFDV 


008 




1F8A 


8212 


CFDV 


009 




1F8C 


46A6 


CFDV 


010 




1F8E 


3B35 


CFDV 


Oil 




IF90 


3 713 


CFDV 


012 




IF92 


76F2 


CFDV 


013 




IF94 


F5A4 


CFDV 


014 




IF96 


2C13 


CFDV 


015 




IF98 


A656 


CFDV 


016 




IF9A 


5CA2 


CFDV 


017 




1F9C 


2C1B 


CFDV 


018 




IF9E 


C4A2 


CFDV 


019 




IFAO 


ID13 


CFDV 


020 




1FA2 


7CA2 


CFDV 


021 


FIXUNO 


1FA4 


A 608 


CFDV 


022 


NCNOSH 


IFA6 


3002 


CFOV 


023 




IFA8 


0040 


CFOV 


024 


LGOPI 


IFAA 


2013 


CFOV 


025 




IF AC 


A7D4 


CFDV 


026 


LOOP 


IFAE 


F5F0 


CFDV 


02 7 





NEXTSEQ NEXTLA8EL STATEMENT COMMENTS 

FLOATING POINT DIVIDE 



CFCO 120 COMPUT 

CFCO 090 ROOPER 

022 NCNOSH 

CFCO 007 SHIFR4 

021 FIXUNO 

CFHA 044 OIVIDL 



CFCO 120 COMPUT 
034 DQADD 



SET S K=98 

BAL 

RDH T OA,BC 

BAL 

0=T 

Tl=Ti$K30 

0UD1SK01 

STH DA, BE 

BR IF S3=0 

PO=0$KOi 

BAL 

ROH P OA,AC 

PO^POt-KOl 

BR IF ZNZ 

Pi«Pl*-KOl 

STH P OAt AC 

BAL 

SET S K*90 

RST S5 

P 1^0$ KOI 

BAL 

BR IF S3*0 



SET S0,S3,S4 

DO TRIAL SUBTRACT 

GET Rl 

T= R2 SAVE 0038 OR 0078 
O^QUOTIENT ADO 00R19 
SAVE QUOT ADO 

Rl MUST SHIFT RIGHT ONE DIGIT 

GET RESULT EXPONENT 

INC EXP 

CHK FOR PRE V. UNDERFLOW 

UNDERFLOW-CORRECTED RST t NO, 
PUT ADJ. RES. EXPONENT BACK 
SHIFT LEFT 1 
SET SO, S3 

SET QUOTIENT FLAG 
SUB VISOR FROM DEND 
IF NO CARRf - 00 AN ADO 



ADOR 

1FBO 
1FB2 
1FB4 
IFB6 
IFB8 
IFBA 
IFFO 
1FF2 
1FF4 
iFBC 
IF BE 
iFCO 
IFC2 
IFC4 
1FC6 
1FC8 
IFCA 
iFCC 
1FCE 
1FDO 
1FD2 
1F04 
IFD6 
1FD8 
1FDA 
1FOC 
1FOE 
1FEO 
1FE2 
IFE4 
1FE6 
1FE8 
1FEA 
IF EC 
1FEE 
1FF6 
1FF8 
1FFA 



WORD SEQUENCE NO. 



A6D8 
3002 
0180 
CD2C 
2040 
9FAC 
A6D8 
1002 
9FB4 
56F2 
7068 
76F2 
F44A 
07CB 
F0A8 
9FCE 
5779 
F0A8 
5AE2 
8212 
8B0A 
0509 
B260 
56A2 
5*59 
5CC2 
1585 
C?64 
3585 
75A0 
F377 
C66D 
0080 
27C3 
B268 
2703 
55E9 
B25E 



CFDV 
CFDV 
CFOV 
CFOV 
CFDV 
CFOV 
CFOV 
CFDV 
CFOV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFOV 
CFDV 
CFDV 
CFDV 
CFDV 
CFUV 
CFDV 
CFDV 
CFDV 
CFDV 
CFOV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 



028 
029 
030 
031 
032 
033 
034 
035 
036 
03 7 
038 
03 9 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 



CFDV 
CFDV 
CFDV 
CFDV 
CFOV 
CFDV 
CFDV 
CFOV 
CFDV 
CFDV 
CFOV 
CFDV 



006 
021 
022 
024 
026 
030 
034 
037 
044 
046 
051 
057 



CFMO 054 
CFOV 019 
CFOV 014 
CFDV 042 
CFDV 031 
CFDV 036 
CFDV 027 
CFDV 030 
CFDV 040 
CFDV 043 
CFOV 049 
CFDV 055 



LABEL 



QUOTCH 



DOADD 



STQUOT 



NEXTSEQ 
CFHA 044 

037 

026 

026 
CFHA 044 



NEXTLABEL STATEMENT 



01 VIOL 



024 

046 



LGNGD 
ENODIV 

GETEXP 

STOEXP 

OVFLOW 
UNDERF 



CFCO 090 

CFCO 056 

051 

CFHA 029 



063 

061 



CFDV 045 
CFDV 033 



STQUUT 
LOOP 

LOOP 

OIVIDL 



030 QUOTCH 



044 LONGO 



LOOPi 
ENODIV 



024 LOOPi 



CFHA 033 DIVOVF 



CFHA 028 UNDCHK 



BAL 

SET S K-90 

BR IF S5=i 

BR IF PI 0*0 

SET S5 

BR 

BAL 

RST S K=90 

BR 

RDH D DA, BE 

STB PI AS, 0*1 

STH DA, BE 

BR IF GO 3-0 

Z=DiaK0C 

BR IF LZNZ 

BR 

Di=Dl 

BR IF LZNZ 

ROH T OA, BC 

BAL 

BAL 

BR IF Sl=i 

BR 

ROH OA,AC 

Gi = DO 

RDH P 0A V B8 

Gi=Gi*-K80 

BR IF 010=0 

Gl=Gi$K80 

STB Gl AS,T>0 

BR IF 017*1 

BR IF 000=1 

RST S4 

D1=0$K0C 

BR 

DUOSKOD 

H0=G1 

BR 

**************************** 

* CROSS REFERENCE FOR CSECT 
**************************** 



RDCPER 
ZTEST 
GETEXP 
OIVNOl 



057 STOEXP 



UNDERF 
OVFLOW 



CL0AO««€60, EC LfcVEf MM 92 

COMMENTS 

SHIFT DENO AND QUOT FLAG LEFt 1 

BR IF QUOTIENT BYTE FULL 
CONTINUE COMPUTE IF NO QUOT FLAG 
7TH TIME-DO 1 MORE THEN STOfcE QU 

SHIFT LEFT 
ADD VISOR 
TO OENO 
GET QUOT ADDRESS 
STORE QUOT BYTE 
STORE EQUOT ADDRESS 

CHECK FOR OOXC 

END OF SHORT 
SHORT 01 V FINISHED 

BR IF LONG NOT FINISHED 
GE Rl ADDRESS 
GET QUOTIENT 

BR IF QUOT NOT ZERO 

RESULT IS STORE 0*GET I rOOtlCY 

OO^EXP 01=SIGN*FLAGS 

MOVE RES EXP FOR CORREC*ST0RE 
RESTORE MASK 
MAKE RES SIGN * 
BR IF RES IS * 
SIGN - MAKE RESULT - 

BR IF UNDERFLOW FLAG IS ON 

BR IF OVERFLOW 

REST INT FLAG IF NO OVERFLOW 

GO RESTORE I ,TAKE INT OR GO ICY 

MOVE RES EXP FOR UNO STORE 
GO CHECK UNDERFLOW MASK 
****** 

CFDV * 
****** 



CFOV 061 
CFDV 063 
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* CROSS REFERENCE FOR CSECT CFOV * 
********************************** 



CFOV 059 
CFOV 058 
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CFHA DESCRIPTIVE TEXT 



THE -CFHA- ROUTINE HANDLES THE FOLLOWING CP CODES- 



RROP 
RXOP 



34 
24 



i SHORT OPERANDS J 
(LONG OPERANDSI 



THE -CFHA- ROUTINE PERFORMS THE FLOATING POINT HALVE 
OPERATION. THIS IS DONE BY SHIFTING THE SECOND OPERAND 
FRACTION LEFT 3 BITS THEN RIGHT 4 BITS. THE RESULT 
IS NORMALIZED AND STORED IN THE FIRST OPERAND LOCATION. 



THE -CFHA- ROUTINE PERFORMS THE EXIT TO I-CYCLES OR 
THE INTERRUPT ROUTINE FOR THE FLOATING POINT LOAD OPS, 
AND CERTAIN CASES FOR FLOATING DIVIDE, MULTIPLY, AND 
ADD OPS. 

THE -CFHA- ROUTINE ALSO PERFORMS THE LEFT SHIFT OF 
THE QUOTIENT FOR THE FLOATING DIVIDE OPERATION. 



AUOK 



WORD SEQUENCE NU. 



LABEL 



323E 
3240 
3242 
3244 
3246 
3248 
324A 
32 4C 
324E 
32 50 
3252 
3254 
3256 
3258 
32 5A 
32 5C 
32 72 
32 74 
32 76 
32 78 
32 7 A 
32 7C 
32 5E 
3260 
3262 
3264 
32 66 
'3268 
326A 
326C 



2C13 
A6DC 
A60C 
A6DC 
A656 
5CC2 
D5E4 
2A07 
0FF3 
C4E6 
A1E4 
25C7 
2EFF 
E4F2 
F4F5 
B24E 
F40D 
ED62 
1E8D 
2703 
2C80 
B24E 
ED67 
0080 
8136 
2EC7 
9AD0 
925A 
CIEF 
A80E 



CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
02 8 
02 9 
030 
031 
032 
033 
034 
035 



NEXTSEQ NEXTLABEL STATEMENT 

*** HALVE OP 



HALVE 



HNORM 



0K18C 

NOVFLH 

HAUND 



UNDCHK 
DI VNOI 
HZER 
FRACOO 
ST0RE1 
DI VOVF 



046 
046 
046 

CFCO 007 



032 
CFCO 034 



022 
023 

014 
021 
030 



014 
032 



CFCO 078 

CCOM 067 

036 

CICY 004 



LEFT1 
LEFT1 
LEFT1 
SHIFR4 



031 FRACOO 



STOREl 
SHIFL4 



NOVFLH 

HAUND 

HNGRM 

0K1BC 

HZER 



HNORM 
STOREl 



CFCO 069 ZEROUT 



STGRE2 
LRSTRC 
HTAKE 
CHECK 



PQ=0$KQ1 

BAL 

BAL 

BAL 

BAL 

RDH P DA,B8 

BR IF S1*0 

T0=0 

Z=H1*-K0F 

BR IF ZNZ 

BAL 

Gi = 

H0 = H0*KFF 

BR IF NOVFL 

BR IF AC=l 

BR 

BR IF AC=i 

BR IF P12-=0 

H0=H0nK80 

D1«0$K0D 

SET S4 

BR 

BR IF P12=l 

RST $4 

BAL 

H0=0 

BAL 

BAL 

BR IF S4=l 

BR 



COMMENTS 
*** FLOATING POINT 



SET RIGHT SHIFT COUNT 
SHIFT 
LEFT 
ONE THREE TIMES 
RIGHT I = LEFT 3 THEN RIGHT 4 

BR IF 2ND OPER WAS 

CHECK HI DIGIT 

GO NORMALIZE 
ZERO OUT GUARD 
DEC EXPONENT 
CHECK 
IBC 
FOR 
UNDERFLOW NO IBC^UNDERF 
BR IF NO INT. TO BE TAKEN 
INVERT THE SIGN BIT 
INT CODE SAVE 
REMEMBER INT 

BR IF INT TO BE TAKEN 



ZERO OUT EXPONENT 



ADDR 

32&E 
32 70 



WORD SEQUENCE NO* LABEL 



NEXTSEQ 



NfcXTLABEL STATEMENT 
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COMMENTS 
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57B9 
9C70 



2608 
260A 
26 DC 
26DE 
26 EO 
26E2 
26E4 
26E6 
26E8 
26EA 
26EC 
26EE 
26F0 
26F2 
26F4 



CFHA 
CFHA 
CFHA 
CFhA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 



6DDD 
655B 
F467 
6110 
60CD 
6 3 30 
6220 
699D 
6880 
6FF0 
C1F3 
6AAD 
128E 
6EED 
128E 



CFHA 
CFHA 
CFHA 
CFhA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 
CFHA 



036 
037 
038 
039 
040 
041 
042 
043 
044 
043 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 



006 
014 
021 
022 
023 
028 
029 
030 
031 
032 
033 
036 
044 
046 
051 
057 



CFCY 
CFHA 
CFHA 
CFHA 
CFHA 
CFDV 
CFAD 
CFHA 
CFHA 
CFAD 
CFDV 
CFHA 
CFDV 
CFHA 
CFHA 
CFHA 



056 
021 
022 
C19 
020 
065 
QS8 
023 
012 
121 
062 
034 
022 
0C7 
046 
054 



HTAKE 



BPSW 003 PROG 



Ti = Dl 

BR 



** LEFT ONE FOR DIVIDE AND HALVE ** 



DIViOL 
LEFT1 

H SHORT 
DIV 



P1C-PH-P1+C 

G1C=G1+G1 
05.1 HSHORT BR IF G03=l 

U1C=U1+UH-C 

UOC=UO+UO+C 

VLC=V1+VH-C 

V0C=V0+V0+C 

UC=f 1 + Ii+C 

IOC=IO+IO+C 

H1C=HH-HH-C 
057 DIV BR IF S 4= 1 

TOC=TO+TO«-C HALVE 

RTN ONLY 

HOC=HO*HO+C DIVIDE 

RTN ONLY 

********************************** 

* CROSS REFERENCE FOR CSECT CFHA * 
********************************** 



SHIFT QUOTIENT FOR DIVIDE 
SHIFT DIVIDE GUARD 
BR IF SHORT 



CFHA 027 



CFMU 061 

CFDV 050 CFMD 020 CFMU 053 



CFCY 060 CFHA 015 CFHA 028 CFLS 028 CFMU 065 
CFMD 015 

CFDV 028 CFOV 034 

CFHA 008 CFHA 009 
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CFLS DESCRIPTIVE TEXT 



THE -CFLS- ROUTINE HANDLES THE FOLLOWING OP CODES- 
LOAD POSITIVE -20-, -30-, t SHORTI AND ILONGI 
LOAD NEGATIVE -2 1- ,-31- , < SHORT) AND ILONG) 
LOAD AND TEST -22- ,-32-, f SHORTI AND ILONG) 
LOAD COMPLEMENT -23- ,-33- , ( SHORT) AND CLQNG) 
STORE -60-, -70-, (SHORT) AND JLONG) 

OBJECTIVES- 



LOAD NEGATIVE 



LOAD COMPLEMENT 



LOAD AND TEST 



LOAD POSITIVE 



THE SECOND OPERAND IS PLACED IN THE FIRST 
OPERAND LOCATION WITH THE SIGN FORCED 
POSITIVE. 



STORE 



THE SECOND OPERAND IS PLACED IN THE FIRST 
OPERAND LOCATION WITH THE SIGN FORCED 
NEGATIVE. 

THE SECOND OPERAND IS PLACED IN THE FIRST 
OPERAND LOCATION WITH THE SIGN INVERTED. 

THE SECOND OPERAND IS PLACED IN THE FIRST 
OPERAND LOCATION AND THE CONDITION CODE 
IS SET TO INDICATE THE RESULT STATUS. 
CC=0 RESULT FRACTION IS ZERO 
CC^l RESULT IS LESS THAN ZERO 
CC=2 RESULT IS GREATER THAN ZERO 

THE FIRST OPERAND IS STORED AT THE 
SECOND OPERAND LOCATION. 



AODR 


WORD 


SEQUENCE NO, 


► LABEL 






CFLS 


001 


T 






CFLS 


002 


♦ 






CFLS 


003 


* 






CFLS 


004 


♦ 






CFLS 


005 


# 






CFLS 


006 


* 


3384 


1E85 


CFLS 


007 


LOADP 


3386 


A154 


CFLS 


008 








CFLS 


009 


* 






CFLS 


010 


* 






CFLS 


on 


♦ 






CFLS 


012 


* 






CFLS 


013 


* 


2150 


1E85 


CFLS 


014 


LOADN 






CFLS 


015 


* 






CFLS 


016 


* 






CFLS 


017 


♦ 






CFLS 


018 


* 






CFLS 


019 


* 






CFLS 


020 


* 


2152 


1E8D 


CFLS 


021 


LOADC 


2154 


2C25 


CFLS 


022 


LOADT 


2156 


CE5A 


CFLS 


023 




2158 


1C7D 


CFLS 


024 




215A 


8BDA 


CFLS 


025 


OKSOFA 


2L5C 


D5E1 


CFLS 


026 




2l5£ 


2C07 


CFLS 


027 




2160 


8266 


CFLS 


028 


CODCOR 



NEXTSEQ NEXTLA8EL STATEMENT COMMENTS 

LOAD AND STORE OPS FLOATING POINT 

*** LOAD POSITIVE ** 



022 LOADT 



025 OKSOFA 

CFCO 056 ZTEST 

028 CODCOR 

CFHA 032 STCRE1 



H0=H0*-K80 
BR 



*** LOAD NEGATIVE 



MAKE SIGN * 



H0=H0*-K80 



MAKE THE SIGN PLUS 

FALL THROUGH TO COMPLIMENT 



.*** LOAD COMPLIMENT 



H0 = HOa.K8O 

P0=0$K20 

BR IF H00=0 

P0=P0nK70 

BAL 

BR IF Si=l 

P0=0 

BR 



INVERT SIGN 
SET + 

NOT ♦ CHANGE CC TO - 0101 CC=1 

GO TEST FRACTION FOR 

BR IF FRAC NOT CC I S SET 

SET CC=0 FRAC=0 

GO LOAD R2 TO R1,REST I ,G0 I CYC 



ADDK 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0A0=*E60, EC LEVEL=1282U 

COMMENTS 
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CFLS 


029 


♦ 














CFLS 


030 


* 














CFLS 


031 


* 








*** STORE 






CFLS 


032 


* 














CFLS 


03 3 


* 










006C 


46C6 


CFLS 


034 


STORE 








0=U 


OD6E 


45BB 


CFLS 


035 










T1=G1H*T1L 


0070 


8212 


CFLS 


036 




CFCO 


090 


RDOPER 


BAL 


0072 


7E78 


CFLS 


03 7 










STH H + 2 


00 74 


7878 


CFLS 


038 










STH I D+2 


0D76 


F47D 


CFLS 


039 






042 


ENCSTO 


BR IF GO 3= I 


0078 


7278 


CFLS 


040 










STH V + 2 


007A 


7C70 


CFLS 


041 










STH U 0+0 


007C 


925A 


CFLS 


042 


ENDS TO 


CCCM 


067 


LRSTRC 


BAL 


0D7E 


A8DE 


CFLS 


043 




CICY 


004 


CHECK 


BR 



MOVE DESTINATION ADDRESS 
Rl OPERAND AODR 
GET Rl OPER 



BA IF SHORT 



RESTORE I 



********************************** 

* CROSS REFERENCE FOR CSECT CFLS * 
********************************** 



CFLS 007 

CFLS 014 

CFLS 021 

lFLS 022 

CFLS 025 

CFLS 028 

CFLS 034 

CFLS 042 



CFCY 0t2 
CFCY 053 
CFCY 05i> 
CFCY 54 
CFLS 023 
CFLS 026 
CFCY 048 
CFLS 039 



CFLS 008 
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CFMD DESCRIPTIVE TEXT 



THE -CFMO- ROUTINE IS ENTERED FROM THE FLOATING POINT 
I-CYCLES ROUTINE -CFCY- TO PREPARE FOR THE EXECUTION OF 
THE FOLLOWING GP COOES - 

DIVIDE MULT I PL 

RROP 3D RROP 3C 

RROP 2D RROP 2C 

RXOP 70 RXOP 7C 

RXOP 60 RXOP 6C 



PRIOR TO BRANCHING TO THE PROPER EXECUTE ROUTINEt THE 
-CFMO- ROUTINE DOES THE FOLLOWING — 

U TEST MULTIPLIER OR 01 VISOR FOR ZERO. 

2. PRENORMALIZE OPERANDS 

3* COMPUTE INTERMEDIATE EXPONENT AND SIGN 

OF THE RESULT, 
*• PREPARE OPERANDS, (FOR FP MULTIPLY) , TO 
SHARE THE BINARY HULFIPiLY COMPUTE UUCP IN 
ROUTINE -CMLT-. 



AD OR 



*ORD SEQUENCE NO, LABEL 



NEXTSEQ 



1D7E 
ID 80 
ID82 
ID84 
1086 
1088 
1D8A 
1D8C 
1D8E 

1D90 
1D92 
1D94 
1D96 
1098 
1D9A 
1D9C 
1D9E 
10A0 
1DA2 
1DA4 
1DA6 
IDAS 
1DAA 
iOAC 
1DAE 
10B0 



3082 
6BDA 
D595 
D18D 
FOOC 
2 7F3 
B268 
FOll 
1415 

5CC2 

8260 
Q19C 
5E69 
3E85 
90 A 2 
5E79 
1E85 
2E4D 
0FF3 
C4AC 
A1E4 
2EFF 
9DA2 
D1BF 
3835 
5ED9 



CFMO 
CFMO 
CFMO 
CFMO 
CFMO 
CFMD 
CFMD 
CFMD 
CFMD 
CFMO 
CFMO 
CFMO 
CFMO 
CFMO 
CFMO 
CFMO 
CFMO 
CFMO 
CFMO 
CFMD 
CFMO 
CFMD 
CFMO 
CFMO 
CFMD 
CFMD 
CFMO 
CFMO 
CFMD 
CFMD 
CFMD 
CFMD 
CFMD 
CFMD 
CFMD 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
02 5 
026 
02 7 
02 8 
029 
030 
031 
032 
033 
034 
035 



01 WRB 
MULPRE 



RIISO 

DONE 
FNOTZ 

R2 

NORM 

FNORM 



CFCO 056 

021 
016 
016 

CFHA 033 
019 



CFHA 029 
025 



033 
CFCO 034 

028 
042 



NEXTLABEL STATEMENT COMMENTS 

MULTIPLY DIVIDE PRENORMALIZE -FLOATING POINT 



2ND OP IS PRENOR, FIRST AND PUT IN A SAVE AREA 
1ST OP IS THEN PRENOR. AND PUT BACK IN Rl ANO 
RETAINED IN LS H, I, V,U 



ZTEST 

FNOTZ 
RIISO 
RIISO 

DIVOVF 
DONE 



DIVNOI 
R2 



028 NORM 



FNORM 
SHIFL4 

NORM 
RID 



SET S K*98 

BAL 

BR IF Sl=l 

BR IF S5*l 

BR IF G07*0 

D1*0$K0F 

BR 

BR IF GO 7*1 

G0=G0*-K10 

ROH P DAt-B.8 

BR 

BR IF S5*0 

00= HO 

H0=H0$K80 

BR 

Dl*HO 

H0=H0*-K80 

HO* HO *K 40 

Z*H1*-K0F 

BR IF ZNZ 

BAL 

H0=H0+KFF 

BR 

BR IF S5=l 

Tl=Tl$K30 

PI* HO 



SET S0,S3,S4 FOR DIVIDE 

CHECK FRACTION FOR 

BR IF PLIER OR DIVISOR IS NOT 

BR IF Rl* 

R2 IS BR IF MULT 

IT IS DIVIDE EXCEPTION 

GO TAKE INT AND STOR ,RE ST I 
BR IF DIVIDE 
MULT TURN OFF SHORT 

FULL STORE FOR MULT. 
RESTORE P 

BR IF USING RZ 

USING R I SAVE ORIG EXP 

MAKE EXCESS 192 

SAVE R2 ORIG EXP 
REMOVE SIGN 
MAKE EXCESS 128 
CHECK HI DIGIT FOR 
BR IF NORMALIZED 

DEC EXP 



OOING R2 SET T TO SAVE AREA ADD 
SAVE NORM R.2 EXP 



ADDR 



WORD SEQUENCE NO. LABEL 



IDB2 


2EC7 


CFMD 


036 


1DB4 


9AD0 


CFMO 


037 


1DB6 


5AE2 


CFf*D 


038 


10B8 


8212 


CFMD 


039 


1DBA 


2040 


CFMD 


040 


10BC 


9080 


CFMD 


041 


10BE 


5EC9 


CFMD 


042 


10CO 


2EC7 


CFMD 


043 


1DC2 


6761 


CFMD 


044 


IDC 4 


17F3 


CFMD 


045 


IDC6 


7C0D 


CFMD 


046 


10C8 


5709 


CFMD 


047 


iDCA 


F5CF 


CFMD 


04 8 


iOCC 


3013 


CFMD 


049 


1DCE 


7CA2 


CFMD 


050 


1DOQ 


9A00 


CFMD 


051 


1002 


3B35 


CFMD 


052 


ID04 


F058 


CFMD 


053 


1006 


9F84 


CFMD 


054 


1DD8 


10CE 


CFMD 


055 


100A 


20 80 


CFMD 


056 


10DC 


F46E 


CFMD 


057 


100E 


42E6 


CFMD 


058 


10 EO 


4C86 


CFMD 


059 


10E2 


8212 


CFMD 


06 


1064 


2BC7 


CFMD 


061 


10E6 


46E6 


CFMD 


062 


1DE8 


4E86 


CFMD 


063 


IDEA 


48A6 


CFMD 


064 


iOEC 


8312 


CFMD 


065 


10EE 


4C26 


CFMD 


066 


10F0 


46C6 


CFMD 


067 


1DF2 


8212 


CFMD 


068 


10F4 


4A86 


CFMO 


069 


10F6 


48E6 


CFMO 


070 


10F8 


4EC6 


CFMD 


071 


10FA 


4066 


CFMD 


072 


10FC 


4626 


CFMD 


073 


10FE 


42C6 


CFMD 


074 


1E00 


8312 


CFMD 


075 



RID 



NOUND 



NDIV 



LCNGM 



NEXTSEQ 


NEXTLABEL STATEMENT 








H0 = 


CFCO 


078 


ST0RE2 


BAL 

RDH T DA, 8C 


CFCO 


090 


RDOPER 


BAL 
SET S5 




010 


MULPRE 


BR 

P0 = H0 

H0 = 

01 = DlaD0 

D1=D1*-K0F 

P0C=P0SP1*C 

P1=D1 




050 


NOUND 


BR IF S3=l 
P1=P1$K01 
STH P DA, AC 


CFCO 


078 


ST0RE2 


BAL 
T1=T1$K30 




055 


NDIV 


BR IF G07=0 


CFDV 


006 


DIVIDE 


BR 

RST S K*FC 

SET S4 




066 


LONGM 


BR IF G03=0 
V=H 


CFCO 


090 


RDOPER 


BAL 
Ti=0 
D=H 
H» I 
I=T 


CMLT 


027 


FLTMU1 


BR 

P=V 

D=U 


CFCO 


090 


RDOPER 


BAL 
T=I 

I = H 
H=U 
U = D 
D=V 
V^=P 


CMLT 


02 7 


FLTMUi 


BR 






********************* 






* CROSS 


REFERENCE FOR 






*********************: 



CL0AD=*E60, EC LEVEL=1282 11 

COMMENTS 



SAVE NORM R2 

T=00X8 

GET Rl OP 



DOING RUSAVE NORM Ri EXP 
ZERO OUT OPERAND EXPO 
COMPUTE RES SIGN 000 BIT 
ZERO OUT Di LOW FOR FLAGS 
COMP IF OIVtTRUE IF MULT 
SAVE RES SIGN 

SET UNDERFLOW FLAG 

SAVE RES EXP, SIGN AND FLAGS 

PUT NORMALIZED Rl BACK IN Rl 

T=R2 SAVE 0038 OR 0078 

BR IF MULT 

CONTINUE MULT PREP* 
FOR BINARY MULT 

SAVE 

SHORT CAND Ri 
GET PLIER R2 
SHIFT 
DATA 
TO SHARE 
BINARY 
BR TO SHARE BINARY MULT 
SAVE 

LOW CAND LONG Rl 
GET LONG PLIER R2 
SHIFT 
DATA 
10 
SHARE 
B 1NARY 
MULT 
BR TO SHARE BINARY MULT 
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************* 

CSECT CFMD * 
************* 



CFMO 009 


CFCY 


06 5 






CFMD OiO 


CFCY 


064 


CFMD 


041 


CFMD 016 


CFMD 


012 


CFMD 


013 


CFMD 019 


CFMO 


016 






CFMO 021 


CFMD 


Oil 






CFMO 025 


CFMD 


021 






CFMD 028 


CFMD 


024 


CFMD 


032 


CFMO 033 


CFMD 


C29 






CFMO 042 


CFMO 


033 






CFMO 050 


CFMO 


048 







CFMO 055 
CFMO 066 
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************************ ********** 

* CROSS REFERENCE FOR CSECT CFMO * 
********************************** 



CFMD 053 
CFMO 057 
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FLOATING MULTIPLY OP CODES 
RROP 3C 
RROP 2C 
RXOP 7C 
RXOP 6C 



CFMU DESCRIPTIVE TEXT 

-CFMU- 



THE F 
FROM TH 
SEQUENC 
ROUTINE 



LOATING POINT MULTIPLY ROUTINEt -CFMU- IS ENTERED 
E BINARY MULTIPLY ROUTINE -CMLT-. THE FOLLOWING 
E HAS TAKEN PLACE PRIOR TO ENTRY TO THE -CMPU- 

CFCY- THE MULTIPLY OP CODE IS DECODED AND A 
BRANCH TO THE -CFMD- ROUTINE IS TAKEN. 

CFMU- THE OPERANDS ARE PRENORMALIZED AND SAVED. 
THE INTERMEDIATE PRODUCT EXPONENT IS 
COMPUTED AND SAVED. BRANCH TO THE -CLMT- 
ROUTINE. 

CLMT- COMPUTE INTERMEDIATE PRODUCT. 8RANCH TO 
THE -CFMU- ROUTINE. 



POSTNORMALIZE THE PRODUCT IF NECESS 
FOR UNDERFLQW- 

IF UNDERFLOW, SET UNDERFLOW 
BRANCH TO THE - 
TO SEE IF AN IN 
BE TAKEN. IF I 
OUT RESULT FRAC 
EXPONENT AND GO 
ROUTINE TO STOR 
CODE IN PSW. IF 
GO TO THE NORMA 
-CFHA- ROUTINE. 

IF NO UNDERFLOW, GO TO THE - 
TO STORE THE NO 
PRODUCT IN THE 
LOCATION. RETUR 
ROUTINE -CICY-. 



ARY. CHECK 

FLAG AND 
CFHA- ROUTINE 
TERRUPT IS TO 
NTERRUPT, ZERO 
TION AND 

TO THE -BPSW- 
E INTERRUPT 

NO INTERRUPT, 
L ENTRY TO THE 

CFHA- ROUT INE 
RMALIZED 
FIRST OPERAND 
N TO I-CYCLES 



aDDR 



WORC SEQUENCE NO. LABEL 







CFMU 


001 


T 






CFMU 


002 


* 






CFMU 


003 


* 






CFMU 


004 


* 






CFMU 


005 


* 






CFMU 


006 


* 






CFMU 


007 


* 






CFMU 


008 


* 


15F6 


5CB2 


CFMU 


009 




15F8 


FC2A 


CFMU 


010 




15FA 


44C6 


CFMU 


Oil 




15FC 


1415 


CFMU 


012 




15FE 


5CA2 


CFMU 


013 




1600 


6C79 


CFMU 


014 




1602 


5FC9 


CFMU 


015 




1604 


57F9 


CFMU 


016 




16 06 


5189 


CFMU 


017 




1608 


5299 


CFMU 


018 




160A 


5329 


CFMU 


019 




160C 


5E39 


CFMU 


02 




160E 


21C7 


CFMU 


021 




1610 


25C7 


CFMU 


022 




1612 


95CE 


CFMU 


023 




15AA 


5CA2 


CFMU 


024 


1 


15AC 


C93D 


CFMU 


025 




15AE 


3D83 


CFMU 


026 





NfcXTSEQ NEXTLABEL STATEMENT COMMENTS 

FLOATING POINT MULTIPLY 



MULT 



LONG 







RDH P 


DA, AE 


024 


LONG 


BR IF 


P03=0 






G=P ** THIS 






GO=GO* 


<-K10 






RDH P 


DA, AC 






D1=U0 








U0 = H1 








H1=D1 








I0 = U1 








I1=V0 








V0=V1 








V1 = H0 








U1 = 








GUO 




042 


MULT EN 


BR 








RDH P 


DA, AC 


033 


LONGEN 


BR IF 


P 1 4= 1 






P1^P1$K08 



THIS ROUTINE IS ONLY REACHED BY A BRANCH FROM 
BINARY MULTIPLY -IF SHORT MULT IS FINISHED, IF LONG 
THIS ROUTINE GOES BACK TO BINARY FOR SECOND HALF 



RESTORE OP CODE TO P 

IS SHORT MULT IS FIN. PUT OP CODE IN G 
MAKE PRQDXT LONG 
GET RESULT EXPONENT AND FLAGS 

SHIFT 
CATA 
FOR 
POSTNORMALIZE 



ZERO OUT GUARD 

GET RESULT EXPONENT AND FLAGS 
BR IF SECOND TIME 

TURN ON SECOND FLAG 



AODR 

15B0 
15B2 
15B4 
15B6 
15B8 
15BA 
15BC 
I5BE 
15C0 
15C2 
15C4 
15C6 
15C8 
i*CA 
15CC 
15CE 
1500 
1502 
15D4 
15 06 
1508 
15DA 
15 DC 
15DE 
15E0 
1562 
15E4 
15E6 
15E8 
15EA 
15EC 
15EE 
15F0 
15F2 
15F4 
15A2 
15A4 
15A6 
15A8 



WORC SEQUENCE NO. LABEL 



7CA2 
5CE2 
52C8 
5EC0 
2C13 
8356 
54B2 
5AF9 
5B89 
5699 
5359 
5039 
51C9 
5219 
5729 
46C6 
5CC2 
OFF 3 
C4DE 
A1E4 
26FF 
F40F 
3713 
5AE2 
8B0A 
D5E7 
B260 
56ES 
1E85 
C76E 
3E85 
2C80 
F322 
2 703 
B25E 
C627 
0C8O 
2 7C3 
B266 



CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 
CFMU 



027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
03 7 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 



NEXTSEQ NEXTLABEL STATEMENT 

STH P DA, AC 
RDH P DA, BC 
RDH V ASt ? + Z 
RDH H AS,P*0 
P0=0$K0i 
BR 



CLGAO^ 
COMMENTS 
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CMLT 061 FLTMU2 



LONGEN 



MULTEN 



050 
CFCO 034 



I SNORM 

RESNOZ 

PLUS 

NOT UNO 
OVF 



CFCO 056 

054 

CFHA 029 



CFHA 028 
064 



CFHA 032 



CFMU 009 


CMLT 0£3 


CFMU 024 


CFMU 010 


CFMU 033 


CFMU 025 


CFMU 042 


CFMU 023 


CFMU 050 


CFMU 045 CFMU 048 


CFMU 054 


CFMU 052 


CFMU 058 


CFMU 056 


CFMU 062 


CFMU 059 


CFMU 064 


CFMU 0*2 



I SNORM 
SHIFL4 



050 ISNGRM 



ZTEST 
RESNOZ 

DIVNGI 



058 PLUS 



062 NOTUND 



UNDCHK 
OVF 



STORE! 
******* 

* CROSS 
******* 



RDH G DA,AE 
H1=T0 
10=Ti 
11= DO 
G1=V1 
V1=U0 
UO^Ui 
U1 = V0 
VQ=D1 
D=P 

RDH P DA, B8 
Z=H1*-K0F 
BR IF ZNZ 
BAL 

D0=D0*KFF 
BR IF AC=1 
Dl=Dl$K0l 
RDH T DA, BC 
BAL 

BR IF Sl=l 
BR 

H0 = D0 

H0=HQ*-KS0 
BR IF D10*0 
H0=HO$K80 
SET S4 
BR IF D17=0 
D1=Q$K0D 
BR 

BR IF DOO't 
RST S4 
Di=0$KOC 
BR 
*************** 

REFERENCE FOR 
*************** 



PUT FLAGS AND EXPONENT BACK 

GET Rl ADD 

GET CAND HI Ri 

FOR BINARY MULT 

BR TO SHARE BINARY MULT 

GET QP CODE 

SHIFT 
DATA 
FOR 
POSTNORMALIZE 



SAVE FLAGS 

GET MASK 

CHECK FOR NORMALIZE 

GO NORMALIZE 
DEC 

SET UNDERFLOW FLAG 
GET Rl ADD T=00X8 



STORE TRUE REST I GO TO ICYC 

MOVE RESULT EXP 

REMOVE SIGN IN CASE OF OVF 

BR IF RES IS ♦ 

MAKE RES - 



************ 

CSECT CFMU * 
************ 
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THE 1-CYCLES ROUTINE IS ENTERED AT FIVE MAJOR ENTRY POINTS. 



TEST HIGH 4 BITS OF OP CODE 



LABEL CHECKX - ENTRY IS MADE HERE FROM MICRGKGUT I NES THAT NEED 
CONDITION CODE ZERO SET. 

LABEL CHECK - ENTRY HERE IS FROM ROUTINES THAT DID NOT BRANCH 
OUT TESTING FOR EXECUTE AND INTERRUPT. 

LABEL ISTARTO THIS BRANCH SET ENTRY IS MADE FROM ROUTINES THAT 
TESTED FOR EXECUTE AND INTERRUPT AS THE EXIT 
FROM THAT ROUTINE WAS MADE. 

LABEL ADDERR - ENTRY AT THIS POINT IS MADE WHEN AN ADDRESSING 
ERROR HAS BEEN DETECTED. THE ERROR IS FLAGGED 
AND THE *BPSW* ROUTINE IS BRANCHED TO. THE 
*BPSW* ROUTINE STORES THE OLD PSW, INCLUDING 
THE INTERRUPT CODE THAT INDICATES AN ADDRESSING 
ERROR. 

LABEL SPECHK - ENTRY IS MADE HERE FROM ROUTINES IN WHICH A 
SPECIFICATION EXCEPTION IS DETECTED. THE 
SPECIFICATION EXCEPTION IS FLAGGED AND A BRANCH 
IS TAKEN TO THE *BPSW* ROUTINE. THE *BPSW* 
ROUTINE STORES THE OLD PSW, INCLUDING THE 
INTERRUPTION CODE THAT INDICATES A SPECIFICATION 
EXCEPTION* 



HIGH HEX 
DIGIT 



0,1 



2,3,6,7 



4,5 



OPERATION 



TEST LOW 4 BITS OF OP CODE AND BRANCH TO 
THE PROPER ROUTINE. 

THESE ARE FLOATING POINT OPS. A BRANCH IS 
TAKEN DIRECTLY TO THE *CFCY* ROUTINE. THIS 
IS THE FLOATING POINT I-CYCLES ROUTINE. 

READ 2ND 2 BYTES OF INSTRUCTION , FIND THE 
EFFECTIVE OPERAND ADDRESS, TEST LOW 4 BITS 
OF OP CODE, BRANCH TO PROPER ROUTINE. 

READ 2ND 2 BYTES OF INSTRUCTION, FIND THE 
EFFECTIVE OPERAND ADDRESS. TEST BIT 4 OF 
OP CODE, IF A SHIFT OP, BRANCH TO *CSFT*, 
IF NOT A SHIFT, TEST LOW 4 BITS OF OP CODE 
AND BRANCH TO PROPER ROUTINE. 

FIND EFFECTIVE OPERAND ADDRESS, TEST LOW 
4 BITS OF OP CODE AND BRANCH TO PROPER 
ROUTINE. 



THE ENTRY POINTS CHECKX, CHECK, AND ISTART ARE THE NORMAL ENTRY 
POINTS TO THE I-CYCLES ROUTINE. 

IF THE ENTRY IS MADE FROM AN EXECUTE INSTRUCTION, THE SAVED 
INSTRUCTION ADDRESS IS RESTORED AND THE NEW INSTRUCTION READ OUT 
BEGINS. 

IF THE ENTRY IS MADE FROM AN EXECUTE INSTRUCTION, AND AN 
INTERRUPT IS PENDING, THE SAVED INSTRUCTION ADDRESS IS RESTORED 
AND A BRANCH TO THE *BSWI* ROUTINE IS MADE. THE *BSWI* ROUTINE 
WILL DETERMINE THE TYPE OF INTERRUPT AND HANDLE IT. 

IF THE ENTRY IS MADE WITH ONLY AN INTERRUPT PENDING, THE *BPSW* 
ROUTINE IS BRANCHED TO DIRECTLY. 

IF THE ENTRY IS MADE WITH NO INTERRUPT PENDING AKC NO EXECUTE, 
THE FIRST 2 INSTRUCTION BYTES ARE READ OUT AND A TEST IS MADE 
ON THE HIGH 4 BITS OF THE OP CODE. 



A,B,C,E 



INCREMENT INSTRUCTION ADDRESS +2 FOR A AND 
B, +4 FOR C AND E. FLAG INVALID OP AND 
ERANCH TO *BPSW* ROUTINE WHERE THE 
OPERATION INTERRUPTION CODE IS STORED IN 
THE OLD PSW. 

FIND EFFECTIVE OPERAND ADDRESSES, TEST LOW 
4 BITS OF OP CODE AND BRANCH TO PROPER 
ROUTINE. 

FIND EFFECTIVE OPERAND ADDRESSES, ADD IN 
THE OPERAND LENGTH CODES TO THE EFFECTIVE 
ADDRESSES TO POINT TO LOW ORDER BYTES. 
TEST LOW 4 BITS OF OP CODE AND BRANCH TO 
PROPER ROUTINE. 



AOOK 


WORD 


SEQUENCE NO. 


LABEL 




NEXT 


SEQ 


NEXTLABEL 


STATEMENT 






CICY 


001 


T 






INSTRUCTION CYCLES 360 OP SE 






CICY 


002 


♦ 














280C 


2CC7 


CICY 


003 


CHECKX 












P0=0 


28DE 


81B3 


CICY 


004 


CHECK 






005 


ISTART 


N 


N=S BITS67 


29A0 


8B7A 


CICY 


005 


I START 







013 


EXCHKA 




BR 


29A2 


AEF6 


CICY 


006 


I START 


1 




010 


EXCHK 




BR 


29A4 


8 7C8 


CICY 


007 


I START 


2 


BSWI 


007 


CHECKB 




BR 


29A6 


5498 


CICY 


008 


I START 


3 










ROH G 1*2 


29A8 


B461 


CICY 


009 


0PH1BR 






016 


OPHI 


N 


N^=GOH 


2EF6 


5892 


CICY 


010 


EXCHK 












ROH I DA 9 AA 


2EF8 


2020 


CICY 


Oil 














SET S6 


2EFA 


A9A6 


CICY 


012 








008 


ISTART 


3 


BR 


08 7A 


5892 


CICY 


013 


EXCHKA 












ROH I OAfAA 


0B7C 


2020 


CICY 


014 














SET S6 


0B7E 


87C8 


CICY 


015 






BSWI 


007 


CHECKB 




BR 


2860 


BQ63 


CICY 


016 


OPHI 







122 


OPOX 


N 


N=GOL 


2862 


B043 


CICY 


017 


OPHI 


1 




147 


0P1X 


N 


N= GOL 


2864 


A844 


CICY 


018 


GPHI 


2 


CFCY 


012 


RROP 




BR 


2866 


A844 


CICY 


019 


OPHI 


3 


CFCY 


012 


RROP 




BR 


2868 


88DA 


CICY 


020 


OPHI 


4 




053 


0PHI4 




BR 


286A 


AE90 


CICY 


021 


OPHI 


5 




055 


OPHI 5 




BR 


286C 


A 8 20 


CICY 


022 


OPHI 


6 


CFCY 


034 


RXOP 




BR 


286E 


A 820 


CICY 


02 3 


OPHI 


7 


CFCY 


034 


RXOP 




BR 


2870 


9012 


CICY 


024 


OPHI 


8 




047 


0PHI8 




BR 


28 72 


8106 


CICY 


02 5 


OPHI 


9 




051 


QPHI9 




BR 


2874 


AC58 


CICY 


026 


OPHI 


A 




065 


RSINV 




BR 


2876 


A058 


CICY 


02 7 


OPHI 


B 




065 


RSINV 




BR 


2878 


AG56 


CICY 


028 


OPHI 


C 




064 


SSINV 




BR 


28 7A 


8 806 


CICY 


029 


OPHi 







062 


OPHID 




BR 


28 7C 


A056 


CICY 


030 


OPHI 


E 




064 


SSINV 




BR 


28 7E 


8AB8 


CICY 


031 


OPHI 


F 




032 


SSFX 




BR 


0AB8 


814C 


CICY 


032 


SSFX 






100 


BASE3 




8AL 


0A6A 


55E5 


CICY 


033 














H0=G1XL 


OABC 


61EB 


CICY 


034 














U1C=U1+H0 


OABE 


60AD 


CICY 


035 














U0C=U0+T0*C 


OACO 


6FAD 


CICY 


036 














H1C=H1+T0+C 


0AC2 


55E0 


CICY 


037 














H0=G1L 


JAC4 


63EB 


CICY 


038 














V1C=VUH0 


0AC6 


62AD 


CICY 


039 














VOC=VO+TO*C 


0AC8 


67AD 


CICY 


040 














D1C=DH-T0+C 


OACA 


6F75 


CICY 


041 














H1 = HUD1 


OACC 


AB71 


CICY 


042 








044 


AOERR 


N 


BR IF HbNZ 


OACE 


B01B 


CICY 


043 








241 


OPFX 


N 


N=G0L 


08E0 


A9C0 


CICY 


044 


ADERR 







045 


ADDERR 





BR 


29C0 


2B53 


CICY 


045 


AOOERR 













T1=0$K05 


29C2 


9C70 


CICY 


046 






BPSW 


003 


PROG 




BR 


1012 


9A6A 


CICY 


047 


OPHI 8 






070 


BASE1 




BAL 


1014 


CCii 


CICY 


048 








050 


ALLSHI 




BR IF G04-=l 


1016 


9001 


CICY 


C49 








195 


GP8X 


N 


N=G0 BITS 567 


1010 


9BF4 


CICY 


050 


ALLSHI 




CSFT 


014 


SHIFT 




BR 


0106 


9A6A 


CICY 


051 


OPHI 9 






070 


BASE1 




BAL 


0108 


BCC9 


CICY 


052 








203 


0P9X 


N 


N^=GOL 


080A 


AF4E 


CICY 


053 


OPHI 4 






081 


BASE2 




BAL 



CL0A0^*E60 f EC LEVEL = l282il 
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001 



SET CC TO EQUAL 

TEST FOR EXECUTE OR INTERRUPT 

EXECUTE AND INT 

EXECUTE NOT INT 

INT NOT EXECUTE 

READ FIRST TWO INST. BYTES 
TEST HIGH OP CODE DIGIT 
READ SAVED ADDRESS 
TURN OFF EXECUTE 

READ SAVED ADDRESS 

TURN OFF EXECUTE 

GO TO EXCEPTIONAL ROUTINE 

RR OP 

CODE BREAKDOWN 
FLOATING POINT OPS 
FLOATING POINT OPS 
RX OP 

CODE BASE CALCULATE 
FLOATING POINT OPS 
FLOATING POINT OPS 
RS OPS 
SI OPS 
INVALID 

OP 
CODES 
SS OPS 
INVALID OPS 
DECIMAL OPS 

CALCULATE 
RIGHT MOST 
ADDRESS 
ADD IN LENGTH CODES TO 
POINT TO LOW BYTE 
OF OPERANDS 



SS FXOP BREAKOUT 
FLAG ADORESS ERR 

MAKE ADDRESSABLE 

FLAG ADDRESS ERROR 

GO TAKE INTER UP T 

RS OP CODE 8X 

SHIFT OPS 

8X GPS LOW DIGIT TEST 

SHIFT OPS EXIT 

RS OP CODE 9X 
BREAKOUT 

RX GO TO BASE + INDEX 



AODR 



WORD SEQUENCE NQ„ 



LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 



CL0AD=*E60 f EC LEVEL=1282 11 
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08DC 


B01D 


cicy 


054 




163 


0P4X N 


N=GOL 


2E90 


AF4E 


CICY 


05 5 


0PHI5 


081 


BASE2 


BAL 


2E92 


AB53 


CICY 


056 




045 


ADDERR N 


BR IF H1=NZ 


2E94 


01C3 


CICY 


057 








Z=Ui*-KOC 


2E96 


FC8F 


CICY 


058 




061 


0PHI5A 


BR IF LZ = 


2E98 


2B63 


CICY 


059 


SPECHK 






T1=0$K06 


2E9A 


9C70 


CICY 


060 




BPSW 003 


PROG 


BR 


2E8E 


BC71 


CICY 


061 


0PHI5A 


179 


0P5X N 


N=GOL 


08D6 


8UC 


CICY 


062 


OPHID 


100 


BASE3 


BAL 


0808 


B03B 


CICY 


063 




225 


OPDX N 


N=G0L 


2056 


6884 


CICY 


064 


SSINV 






1 = 1*2 


2058 


6884 


CICY 


065 


RSINV 






1=1+2 


205A 


2B13 


CICY 


066 


OPERR 






T1=0$K01 


2Q5C 


9C70 


CICY 


067 




BPSW 003 


PRCG 


BR 


335A 


2B23 


CICY 


068 


PRI VQP 






Tl=0$K02 


335C 


9C70 


CICY 


069 




BPSW 003 


PROG 


BR 


1A6A 


5098 


CICY 


70 


BASE1 






RDH U 1+2 


1A6C 


50BB 


CICY 


071 








TI=UOH 


1A6E 


C4E7 


CICY 


072 




079 


QUT1 


BR IF Z=0 


1A70 


5EA8 


CICY 


073 








RDH H AS,T*2 


1A72 


56A0 


CICY 


074 








RDH D AS,T 


1A74 


6178 


CICY 


075 








U1C=U1+D1 


LA76 


606F 


CICY 


76 








U0C=U0L+D0+C 


IA78 


6FA0 


CICY 


077 








H1C=HH-T0+C 


1A7A 


12 8E 


CICY 


078 








RTN 


1A66 


Ik- C7 


CICY 


079 


OUTl 






Hi = 


1A68 


128E 


CICY 


080 








RTN 


2F4E 


5098 


CICY 


081 


BASE2 






RDH U 1+2 


2F50' 


50BB 


CICY 


82 








Ti=UOH 


2F52 


C4EF 


CICY 


083 




097 


BASE2A 


BR IF Z=0 


2F54 


5EA8 


CICY 


084 








RDH H AS,T+2 


2F 56 


56A0 


CICY 


085 








RDH D AS,T 


2F58 


617B 


CICY 


086 








UiOUl+Dl 


2F 5A 


6C6F 


CICY 


087 








U0C=U0L+D0*C 


2F 5C 


6FAD 


CICY 


088 








H1C=H1+T0+C 


2F5E 


55B3 


CICY 


C89 


BASE2B 






TI=G1XH 


2F60 


C4E0 


CICY 


090 




096 


BASE2C 


BR IF Z=0 


2F62 


52A8 


CICY 


091 








RDH V AS,T+2 


2F64 


56A0 


CICY 


092 








RDH D AS,T 


2F66 


617B 


CICY 


093 








UlC=Ui+01 


2F68 


6C6D 


CICY 


094 








U0C=U0+D0*C 


2F6A 


6F3D 


CICY 


095 








H1C=H1+V1+C 


2F6C 


128E 


CICY 


096 


8ASE2C 






RTN 


2F6E 


2FC7 


CICY 


097 


BASE2A 






H1=0 


2F70 


C4DF 


CICY 
CICY 


C98 
099 




089 


BASE2B 


BR IF Z=0 


014C 


5098 


CICY 


100 


BASE3 






RDH U 1+2 


u!4E 


50BB 


CICY 


101 








T1=U0H 


J 1 50 


C4C5 


CICY 


102 




118 


BASE3A 


BR IF Z=0 


0152 


5EA8 


CICY 


103 








RDH H AS,T+2 


0154 


56A0 


CICY 


104 








RDH D AS f T 


0156 


617B 


CICY 


105 








U1C=UI+DI 


0158 


606F 


CICY 


106 








U0C=U0L+D0+C 



BREAKOUT 
RX GO TO BASE AND INDEX 
CHECK FOR ADDRESS ERROR 
TEST FOR 

SPECIFICATION CHECK 
FLAG SPEC CHECK 

BRANCH TO STORE INTERRUPT CODE 
RX 5X0P BREAKOUT 
SS DXOP 

BREAKOUT 
INCREMENT 
INSTR ADDRESS 
AND FLAG ERROR 
BRANCH TO STORE INTERRUPT CODE 

FLAG PRiV OP 
BRANCH TO STORE INTERRUPT CODE 
READ 2ND 2 INST BYTES 
AND PUT IN REG. ADD. 
BRANCH IF NO BASE 
GET BASE DATA 
AND 

CALCULATE 

EFFECTIVE 
ADORESS 

INCICATE ZERO BASE 

READ 2ND 2 INST. BYTES 

NO BASE BR 
GET 

REGISTER DATA 
CALCULATE 

BASE 
VALUE 
GET INDEX REG. 
NO INDEX BR 
GET 

REGISTER DATA 
CALCULATE 

INDEX 
VALUE 

INCICATE ZERO BASE 
UNCONDITIONAL BRANCH 

READ 2ND 2 INST. BYTES 
GET BASE ADDRESS 
BRANCH IF NO BASE i 
GET 

BASE DATA 
CALCULATE 

1ST 



ADD* 


WORD 


SEQUENCE NO, 


LABEL 




NEXT* 


;eq 


NtXTLABE 


L STATEMENT 


U5A 


6FAD 


C1CY 


107 












H1C^HI+T0+C 


o 1 5C 


5298 


CICY 


108 


BASE3B 










RDH V 1*2 


uise 


5288 


CICY 


109 












Tl^VOH 


J 1 60 


C4C9 


CICY 


110 








120 


8AS63C 


BR IF 1=0 


ul62 


6AA4 


CICY 


111 












T^T+2 


0164 


56AA 


CICY 


112 












RDH AS, T-Z 


ul66 


6378 


CICY 


113 












VlC^VlfDl 


0168 


626F 


CICY 


114 












VOC=VOL+00+C 


016A 


56A0 


CICY 


115 












RDH AStT 


i 6C 


67AD 


CICY 


116 












D1C=D1+T0+C 


016E 


1286 


CICY 


117 












RTN 


0144 


2FC7 


CICY 


118 


BAS63A 










Hi = 


0146 


C4DD 


CICY 


119 








108 


BASE3B 


BR IF 1=0 


J 148 


2 7C7 


CICY 


120 


BASE3C 










01=0 


14A 


1286 


CICY 


121 












RTN 


2960 


A05A 


CICY 


122 


OP OX 







066 


OPERR 


BR 


2962 


A05A 


CICY 


123 


OPOX 


I 




066 


OPERR 


BR 


2964 


A05A 


CICY 


124 


OPOX 


2 




066 


0P6RR 


BR 


2966 


AC5A 


CICY 


125 


OPOX 


3 




066 


OPERR 


BR 


2968 


A636 


CICY 


126 


OPOX 


4 


CSTS 


082 


RRCP04 


BR 


296A 


A892 


CICY 


127 


OPOX 


5 


CBRC 


023 


RR0P05 


BR 


296C 


ABLE 


CICY 


128 


OPOX 


6 


CBRC 


067 


RR0P06 


BR 


296E 


A8BA 


CICY 


129 


OPOX 


7 


CBRC 


005 


RR0P07 


BR 


2970 


AB8E 


CICY 


130 


OPOX 


8 


CSTS 


039 


RR0P08 


BR 


2972 


AB86 


CICY 


131 


OPOX 


9 


CSTS 


039 


RR0P08 


BR 


2974 


S8F6 


CICY 


132 


OPOX 


A 


CSTS 


093 


RROPOA 


BR 


2976 


A05A 


CICY 


133 


OPOX 


B 




066 


OPERR 


BR 


2978 


AC5A 


CICY 


142 


OPOX 


C 




066 


0P6RR 


BR 


2 9 7A 


A05A 


CICY 


143 


OPOX 







066 


OPERR 


BR 


297C 


A05A 


CICY 


144 


OPOX 


E 




066 


OPERR 


BR 


29 7E 


A05A 


CICY 


145 


OPOX 


F 




066 


OPERR 


BR 


2 9 40 


AC34 


CICY 


147 


0P1X 





CLsr 


005 


RR0P10 


BR 


29 42 


AC28 


CICY 


148 


0P1X 


1 


CLST 


030 


RROPil 


BR 


2944 


ACOC 


CICY 


149 


0P1X 


2 


CLST 


018 


RR0P12 


BR 


2946 


ACOO 


CICY 


150 


0P1X 


3 


CLsr 


040 


RRCP13 


BR 


2948 


A916 


CICY 


151 


0P1X 


4 


CLGG 


069 


RRQP14 


BR 


2 9 4A 


B36A 


CICY 


152 


0P1X 


5 


CLOG 


36 


RR0P15 


BR 


294C 


8372 


CICY 


153 


0P1X 


6 


CLOG 


110 


RR0P16 


BR 


2 9 46 


B3 7A 


CICY 


154 


0P1X 


7 


CLOG 


140 


RR0P17 


BR 


2950 


A69C 


CICY 


155 


0P1X 


8 


CLST 


046 


RR0P18 


BR 


2952 


9148 


CICY 


156 


0P1X 


9 


CB1N 


005 


RRGP19 


m 


2954 


8366 


CICY 


157 


0P1X 


A 


C8IN 


026 


RR0P1A 


BR 


2956 


81F4 


CICY 


158 


0P1X 


B 


CBIN 


042 


RRGP1B 


BR 


2958 


878C 


CICY 


159 


0P1X 


C 


CMLT 


007 


RRCP1C 


BR 


295A 


99F8 


CICY 


160 


0P1X 





CDVD 


002 


RR0P10 


BR 


29 5C 


B380 


CICY 


161 


0P1X 


E 


CBIN 


055 


RR0P1E 


BR 


2956 


B36E 


CICY 


162 


0P1X 


F 


CBIN 


076 


RR0P1F 


BR 


0E80 


AD14 


CICY 


163 


0P4X 





CLST 


055 


RX0P40 


BR 


0682 


A996 


CICY 


164 


0P4X 


1 


CLOG 


198 


RX0P41 


BR 


0684 


At 88 


CICY 


165 


0P4X 


2 


CLOG 


190 


RX0P42 


BR 


06 86 


A6DC 


CICY 


166 


0P4X 


3 


CLOG 


182 


RX0P43 


BR 


0E88 


AC56 


CICY 


167 


0P4X 


4 


CBRC 


047 


RX0P44 


BR 


6 8A 


A89C 


CICY 


168 


0P4X 


5 


CBRC 


031 


RX0P45 


8R 
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COMMENTS 

OPERAND 
READ 3RD 2 INST BYTES 

BRANCH IF NO BASE 2 



CALCULATE 
2ND 
OPERAND 



INDICATE ZERO BASE 
UNCONDITIONAL BRANCH 
INDICATE ZERO BASE 



INVALID OP CODES 



SET PROGRAM MASK 
BRANCH AND LINK RR 
BRANCH ON COUNT RR 
BRANCH CONDITION RR 
SET KEY 
INSERT KEY 
SUPER VI SOR CALL 

* INVALID OP CODES 

* 

* 
LOAD 
LOAD 
LOAD 
LOAD 
AND 

COMPARE 
OR 

EXCLUSIVE 
LOAD 
COMPARE 
ADD 

SUBTRACT 
MULTIPLY 
DIVIDE 
ADD LOGICAL 
SUBTRACT LOGICAL 
SUBTRACT HALFWORD 
LOAD ADDRESS 
STORE CHARACTER 
INSERT CHARACTER 
EX tCU It; RX 

BRANCH AND LINK RX 



POSITIVE 
NEGATIVE 
AND TEST 
COMPLEMENT 



OR 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 




NEXTSEQ 


NEXTLABEL 


SI 


068C 


ABD8 


CICY 


169 


0P4X 


6 


CBRC 


073 


RX0P46 


BR 


Dtse 


A8C2 


CICY 


170 


0P4X 


7 


CBRC 


Oil 


RX0P47 


BR 


0E90 


ADOO 


CICY 


171 


0P4X 


8 


CLST 


066 


RXGP48 


BR 


QE92 


B388 


CICY 


172 


0P4X 


9 


CBIN 


022 


RX0P49 


BR 


0E94 


9A7C 


CICY 


1/3 


0P4X 


A 


CBIN 


038 


RX0P4A 


3R 


QE96 


B176 


CICY 


174 


0P4X 


8 


CBIN 


051 


RXCP4B 


8R 


0E98 


82F8 


CICY 


175 


0P4X 


C 


CMLT 


014 


RX0P4C 


BR 


0E9A 


A05A 


CICY 


176 


0P4X 







066 


GPERR 


BR 


069C 


A9C4 


CICY 


177 


0P4X 


£ 


CNVR 


005 


RX0P4E 


BR 


0E9E 


A9C4 


CICY 


178 


0P4X 


F 


CNVR 


005 


RXCP4E 


BR 


28E0 


AEOO 


CICY 


179 


0P5X 





CLST 


078 


RX0P50 


BR 


28E2 


A05A 


CICY 


180 


0P5X 


1 




066 


OPERR 


BR 


28E4 


A05A 


CICY 


181 


0P5X 


2 




066 


GPERR 


BR 


28E6 


A05A 


CiCY 


182 


0P5X 


3 




066 


OPERR 


BR 


28E8 


A9C8 


CICY 


183 


0P5X 


4 


CLOG 


073 


RXGP54 


BR 


28EA 


AC9A 


CICY 


184 


0P5X 


5 


CLOG 


039 


RXOP55 


BR 


28EC 


8336 


CICY 


185 


0P5X 


6 


CLOG 


114 


RXCP56 


BR 


28EE 


B32A 


CICY 


186 


0P5X 


7 


CLOG 


144 


RX0P57 


BR 


28F0 


AEC4 


CICY 


187 


0P5X 


8 


CLST 


086 


RX0P58 


BR 


28F2 


A8C8 


CICY 


188 


0P5X 


9 


CBIN 


008 


RX0P59 


BR 


28F4 


AC18 


CICY 


189 


0P5X 


A 


CBIN 


30 


RX0P5A 


BR 


28F6 


81CA 


CICY 


190 


0P5X 


B 


CBIN 


046 


RXCP5B 


BR 


28F8 


8784 


CICY 


191 


0P5X 


C 


CMLT 


002 


RX0P5C 


BR 


28FA 


A21ti 


CICY 


192 


QP5X 





COVD 


006 


RXGP5D 


BR 


28FC 


AD£6 


CICY 


193 


GP5X 


E 


CBIN 


059 


RX0P5E 


BR 


28FE 


AF72 


CICY 


194 


0P5X 


F 


CBIN 


080 


RX0P5F 


BR 


1000 


ABC2 


CICY 


195 


0P8X 





CSTS 


on 


RS0P80 


BR 


1002 


A05A 


CICY 


196 


0P8X 


1 




066 


OPERR 


BR 


1004 


AB7E 


CICY 


197 


0P8X 


2 


CSTS 


003 


RS0P82 


BR 


1006 


ABBA 


CICY 


198 


0P8X 


3 


CSTS 


019 


RSQP83 


BR 


1008 


B302 


CICY 


199 


0P8X 


4 


CSTS 


104 


RS0P84 


BR 


I00A 


B3 0C 


CICY 


200 


0P8X 


5 


CSTS 


109 


RS0P85 


BR 


100C 


ACC8 


CICY 


201 


0P8X 


6 


CBRC 


090 


RSCP86 


BR 


100E 


ACC8 


CICY 


202 


0P8X 


7 


CBRC 


090 


RS0P86 


BR 


0400 


AEE8 


CICY 


203 


0P9X 





CLST 


094 


RS0P90 


BR 


0402 


ACBO 


CICY 


204 


0P9X 


I 


CLOG 


170 


RSGP91 


BR 


0404 


A93A 


CICY 


205 


0P9X 


2 


CLOG 


004 


RS0P92 


BR 


0406 


AE6C 


CICY 


206 


0P9X 


3 


CSTS 


071 


RS0P93 


BR 


0408 


AE22 


CICY 


207 


0P9X 


4 


CLOG 


086 


RSCP94 


BR 


040A 


AC7A 


CICY 


208 


0P9X 


5 


CLOG 


045 


RS0P95 


BR 


04 OC 


ABF6 


CICY 


209 


0P9X 


6 


CLOG 


122 


RSGP96 


BR 


040E 


AD72 


CICY 


210 


0P9X 


7 


CLOG 


152 


RS0P97 


BR 


0410 


9AB0 


CICY 


211 


0P9X 


8 


CLST 


103 


RS0P98 


BR 


0412 


A05A 


CICY 


217 


0P9X 


9 




066 


OPERR 


BR 


0414 


A05A 


CICY 


219 


0P9X 


A 




066 


OPERR 


BR 


0416 


A05A 


CICY 


220 


0P9X 


B 




066 


OPERR 


BR 


0418 


8CB8 


CICY 


221 


0P9X 


C 


OCLA 


002 


IOINST 


BR 


041A 


8CB8 


CICY 


222 


0P9X 





DC LA 


002 


IOINST 


BR 


041C 


8CB8 


CICY 


22 3 


0P9X 


E 


OCLA 


002 


IOINST 


BR 


041E 


8CB8 


CICY 


224 


0P9X 


F 


OCLA 


002 


IOINST 


BR 


OOAO 


A05A 


CICY 


225 


OPDX 







066 


GPERR 


BR 


00A2 


A£48 


CICY 


226 


OPOX 


1 


CLOG 


016 


SSQPD1 


BR 


0OA4 


AEAA 


CICY 


227 


OPDX 


2 


CLOG 


008 


SS0PD2 


BR 



CL0AD=*E60, EC LEVEL^1282 11 

COMMENTS 

BRANCH ON COUNT RX 
BRANCH ON CONDITION 
LOAD HALFWORD 
COMPARE HALFWORD 
ADD HALFWORD 
SUBTRACT HALFWORD 
MULTIPLY HALFWORD 

* INVALID OP CODE 
CONVERT TO DECIMAL 
CONVERT TO BINARY 
STORE 

* INVALID OP CODES 
* 

AND 

COMPARE LOGICAL 

OR 

EXCLUSIVE OR 

LOAD 

COMPARE 

ADC 

SUBTRACT 

MULTIPLY 

DIVIDE 

ADC LOGICAL 

SUBTRACT LOGICAL 

SET SYSTEM MASK 

* INVALID OP CODE 
LOAD PSW 
OIAGNOSE 

WRITE DIRECT 
READ DIRECT 
BRANCH ON INDEX HIGH 
BRANCH ON INDEX LOW OR EQUAL 
STORE MULTIPLE 
TEST UNDER MASK 
MOVE 

TEST AND SET 
AND 

COMPARE LOGICAL 
OR 

EXCLUSIVE OR 
LOAD MULTIPLE 
* 

* INVALID OP CODES 

* 

START I/O 
TEST I/O 
HALT I/O 
TEST CHANNEL 

* INVALID OP CODE 
MOVE NUMERIC 

MOVE 
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ADOR 


WORD 


SEQUENCE NO. 


LABEL 




NEXTSEQ 


NEXTLA8EL 


S 


GDA6 


AE5A 


CICY 


228 


OPDX 


3 


CLOG 


026 


SSCP03 


BR 


0DA8 


A9AA 


CICY 


229 


OPOX 


4 


CLOG 


098 


SSQPD4 


BR 


GO A A 


AC88 


CICY 


230 


OPOX 


5 


CLOG 


058 


SS0PD5 


BR 


OOAC 


ADFA 


CICY 


231 


OPOX 


6 


CLOG 


128 


SS0PD6 


BR 


ODAE 


ADEO 


CICY 


232 


OPOX 


7 


CLOG 


158 


SSGP07 


BR 


ODBO 


A05A 


CICY 


233 


OPDX 


8 




066 


OPERR 


BR 


GDB2 


A05A 


CICY 


234 


OPOX 


9 




066 


OP ERR 


BR 


00B4 


A 05 A 


CICY 


235 


OPOX 


A 




066 


OPERR 


BR 


0DB6 


A05A 


CICY 


236 


OPOX 


B 




066 


OPERR 


BR 


00 B 8 


AD7C 


CJCY 


237 


OPOX 


C 


CTRT 


003 


SSCPOC 


BR 


00 B A 


AD7C 


CICY 


238 


OPOX 





CTRT 


003 


SSCPOC 


BR 


ODBC 


A9F8 


CICY 


239 


OPOX 


E 


CTRT 


033 


SSQPDE 


BR 


OUBfc 


A9F8 


CICY 


240 


OPOX 


F 


CTRT 


033 


SSOPOE 


BR 


0080 


AG5A 


CICY 


241 


OPFX 







066 


CPERR 


8R 


0082 


81B6 


CICY 


242 


OPFX 


1 


CMPU 


003 


SS0PF1 


BR 


0084 


AE84 


CICY 


243 


OPFX 


2 


CMPU 


on 


SS0PF2 


BR 


0D86 


AE7fc 


CiCY 


244 


OPFX 


3 


CMPU 


008 


SS0PF3 


BR 


UD88 


AC5A 


CICY 


245 


OPFX 


4 




066 


OPERR 


BR 


OOBA 


A05A 


CiCY 


246 


OPFX 


5 




066 


CPERR 


BR 


ODBC 


A05A 


CICY 


247 


OPFX 


6 




066 


OPERR 


BR 


u0 8t 


A05A 


CICY 


248 


OPFX 


7 




066 


OPERR 


BR 


0090 


914C 


CICY 


249 


OPFX 


8 


CSAS 


006 


SS0PF8 


BR 


0092 


91BA 


CICY 


250 


OPFX 


9 


CSAS 


061 


SSCPF9 


BR 


0094 


914E 


CICY 


251 


OPFX 


A 


CSAS 


007 


SSOPFA 


BR 


UD96 


91B8 


CICY 


252 


OPFX 


B 


CSAS 


060 


SSOPFB 


BR 


0098 


A582 


CICY 


253 


OPFX 


C 


COMD 


002 


SSOPFC 


BR 


00 9 A 


A582 


CICY 


254 


OPFX 





COMD 


002 


SSOPFC 


BR 


009C 


AC5A 


CICY 


255 


OPFX 


E 




066 


OPERR 


BR 


0096 


A05A 


CICY 


256 


OPFX 


F 




066 


CPERR 


BR 



CICY 
CICY 

CICY 



CICY 
CICY 
CICY 

CICY 
CICY 
CICY 
CICY 



CICY 
CICY 
CICY 
CICY 
CICY 



003 

004 
005 



008 
010 
013 
016 
032 
044 
045 



047 
050 
051 
053 
055 



CCQM 
COMD 

bswi 

CBRC 
CLOG 
CLST 
CTRT 
BPSW 
CICY 
CICY 
CBRC 
CICY 
CiCY 
BWRP 
CLOG 
CIST 
CICY 
CICY 
CICY 
CICY 
CICY 



155 
149 
074 
085 
055 
062 
016 
058 
0C6 
0C5 
061 
031 
042 
060 
059 
110 
024 
048 
025 
020 
021 



CFAD 
COVD 
CBIN 
CBRC 
CLOG 
CLSI 



075 
08 7 
014 
117 
083 
083 



CSAS 
CFAD 
CBIN 
CCOM 
CLOG 
CLST 



099 
130 
017 
159 
092 
091 



************************ 

* CROSS REFERENCE FOR CS 
************************ 

CSFT 084 CTRT 021 CTRT 060 

CFHA 035 CFLS 043 

CBIN 019 CBIN 066 

CCOM 163 CCOM 167 

CLOG 095 CLOG 177 

CMPU 018 CMPU 019 



CL0AD=*E60 f EC LEVEL=1282ll 

COMMENTS 

MOVE ZONES 
AND 

COMPARE LOGICAL 
OR 

EXCLUSIVE OR 
* 

* INVALID OP CODES 
* 

* 
TRANSLATE 

TRANSLATE AND TEST 
EDIT 
EDIT AND MARK 

* INVALID OP CODE 
MOVE WITH OFFSET 
PACK 

UNPACK 
* 

* INVALID OP CODES 
* 

ZERO AND ADD 
COMPARE DECIMAL 
ADD DECIMAL 
SUBTRACT DECIMAL 
MULTIPLY OECIMAL 
DIVIDE DECIMAL 
* 

* INVALID OP CODES 
********** 

ECT CICY * 
********** 
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CMLT 


079 


CSAS 


128 


CSFT 


066 


CSTS 


065 


csrs 


108 


CSTS 


117 


DCHN 


096 


CBIN 


069 


CBIN 


071 


CBIN 


073 


CBRC 


013 


CBRC 


018 


CBRC 


020 


CBRC 


043 


CICY 


004 


CLOG 


006 


CLOG 


014 


CLOG 


024 


CLOG 


034 


CLOG 


051 


CLOG 


053 


CLOG 


179 


CLOG 


187 


CLOG 


195 


CLOG 


202 


CLST 


013 


CLST 


02 7 


CLST 


052 


CNVR 


056 


CNVR 


122 


CSTS 


016 


CSTS 


054 


CSTS 


077 


CSTS 


079 


CSTS 


090 



CBRC 065 CICY 012 



CICY 009 



BWRP 065 
CLOG 086 
CNVR 005 



CBRC 047 
CLOG 099 
CSTS 003 



CCOM 012 
CLOG 122 
CSTS Oil 



CFCY 039 
CLOG 129 
CSTS 042 



CICY 044 
CLOG 152 
CSTS 071 



CICY 056 
CLOG 159 
CTRT 003 



CLOG 004 
CLOG 170 
CTRT 010 



CLOG 009 
CLOG 182 
CTRT 033 



CLOG 017 
CLOG 190 
CTRT 066 



CLOG 02T 
CLST 055 



CLOG 045 
CLST 066 
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* CRCSS REFERENCE FOR CSECT CICY * 
********************************** 



CiCY 


059 


CBRC 


064 


CCOM 


027 


CDMD 


005 


CDVO 


010 


CFCY 


051 


CLST 


063 


CMLT 


006 


CNVR 


008 


CSFT 


023 


CSTS 


009 






CICY 


C61 


CICY 


G58 










































CICY 


062 


CICY 


029 










































CICY 


064 


CICY 


028 


CICY 


030 






































CICY 


065 


CICY 


026 


CICY 


027 






































CICY 


U66 


CFCY 


069 


CICY 


122 


CICY 


123 


CICY 


124 


CICY 


125 


CICY 


133 


CiCY 


142 


CICY 


143 


CICY 


144 


CICY 


145 


CICY 176 


CICY 180 






CICY 


181 


CICY 


182 


CICY 


196 


CICY 


217 


CICY 


219 


CICY 


220 


CICY 


225 


CICY 


233 


CICY 


234 


CICY 


235 


CiCY 236 


CICY 241 






CICY 


245 


CICY 


246 


CICY 


247 


CICY 


248 


CICY 


255 


CICY 


256 






















CICY 


068 


CS1S 


020 


csrs 


118 


OCLA 


004 


































CICY 


070 


CiCY 


047 


CICY 


051 






































CICY 


079 


CICY 


72 










































CICY 


081 


CFCY 


034 


CICY 


053 


CICY 


055 


































CICY 


089 


CICY 


CS8 










































CICY 


096 


CICY 


090 










































CICY 


097 


CICY 


0£3 










































CICY 


100 


CICY 


032 


CICY 


062 






































CICY 


108 


CICY 


119 










































CICY 


118 


CICY 


102 










































CiCY 


120 


CICY 


1 10 










































CICY 


122 


CICY 


016 










































CICY 


147 


CICY 


017 










































CICY 


163 


CICY 


0*4 










































CiCY 


179 


CICY 


061 










































LiCY 


195 


CICY 


049 










































CiCY 


203 


CiCY 


052 










































ulCY 


225 


CICY 


063 










































CICY 


241 


CICY 


043 
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CL0AD=*E60, EC LEVEL = 1282ll PAGE 110 



m 






INSTRUCTION 


FORMAT 


* 


EiMTRY . 


OPERATION 


. BYTE i 


. BYTE 2 


, BYTE 3 


. BYTE 


4 * 

— — ♦ 


KR0P14 . 


AND 


14 


• Rl R2 








* 


RR0P15 . 


COMPARE 


15 


. Rl R2 


• 






* 


RK0P16 . 


OR 


16 


. Rl R2 


m 






* 


RR0P17 . 


EXCLUSIVE OR 


17 


. Rl R2 


+ 






* 


RX0P41 . 


LOAD ADDRESS 


41 


. Rl X2 


. 82 


D2 


D2 


* 


RX0P42 . 


STORE CHARACTER 


42 


. Rl X2 


. 82 


02 « 


02 


* 


RX0P43 . 


INSERT CHARACTER 


43 


. Rl X2 


• 82 


D2 , 


02 


* 


RX0P54 . 


AND 


54 


• Rl X2 


. 82 


02 « 


02 


* 


RXQP55 . 


COMPARE LOGICAL < 


55 


. Rl X2 


. 82 


D2 , 


02 


* 


RX0P56 • 


OR 


56 


■ Rl X2 


. 82 


D2 « 


02 


* 


RX0P57 . 


EXCLUSIVE OR 


57 


. Rl X2 


• B2 


D2 « 


02 


* 


KS0P91 . 


TEST UNDER MASK , 


91 


12 


• Bl 


Dl « 


Dl 


* 


RS0P92 . 




92 


12 


• 81 


Dl , 


Dl 




R SOP 94 , 


AND 


94 


12 


. 81 


Dl « 


Dl 


* 


RS0P95 . 


COMPARE LOGICAL , 


95 


12 


. 81 


Dl < 


Dl 


* 


RS0P96 „ 


OR 


96 


12 


. Bl 


Dl < 


Dl 


* 


RS0P97 . 


EXCLUSIVE OR 


97 


\2 


• Bl 


Dl , 


Dl 


* 



SS FORMAT INSTRUCTIONS 

* . 

* OP CODE. LI L2 • Bl Dl 



01 01 



B2 02 



02 02 * 

* 



ENTRY POINTS 
SSOPQi 
SS0PD2 
SS0PD3 
SS0PD4 
SS0PD5 
SS0PD6 
SS0PD7 



OPERATION 
MOVE NUMERIC 
MOVE 

MCVE ZUNES 
AND 

CCMPARE LOGICAL 
OR 
EXCLUSIVE OR 



OBJECTIVES 

ANO»" OR, EXCLUSIVE OR 

THE LOGIC FUNCTION IS. PERFORMED WITH CORRESPONDING BITS 
IN THE 1ST AND 2ND OPERANDS. THE RESULT REPLACES THE 
1ST OPERAND* IN THE Si FORMAT, 12 IS THE 2ND OPERAND 
AND IS ONE BYTE LONG. 

COMPARE 

COMPARE 1ST OPERAND TO THE 2ND OPERAND. OPERANDS ARE 
TREATED AS UNSIGNED BINARY QUANTITIES. 

STORE CHARACTER 

MOVE BYTE 3 OF Rl TO PROGRAM STORAGE ADDRESSED BY 2ND 
OPERAND. 

MOVE 

THE 2ND OPERAND IS PLACED IN THE 1ST OPERAND LOCATION. 
IN MOVE IMMEDIATE* 12 IS THE 2ND OPERAND. 

MOVE NUMERIC 

SAME AS MOVE, EXCEPT ONLY THE LOW-ORDER 4 BITS ARE MOVED. 

MOVE ZONES 

SAME AS MOVE, EXCEPT ONLY THE HIGH- ORDER 4 BITS ARE MOVED- 

TEST UNDEri MASK 

THE IMMEDIATE DATA IN BYTE 2 OF INSTRUCTION IS TESTED 
BIT FOR BIT AGAINST THE 1ST OPERAND. 

LOAD ADDRESS 

SET THE EFFECTIVE ADDRESS OF THE 2ND OPERAND INTO THE 
LOW 24 BITS OF Rl. 



ADDR 



WORD SEQUENCE NO. 



LABEL 







CLOG 


001 


T 






CLOG 


002 


* 






CLOG 


003 


♦ 


293A 


A853 


CLOG 


004 


RS0P92 


293C 


7510 


CLOG 


005 




293E 


81B3 


CLOG 


006 








CLOG 


007 


♦ 


2EAA 


6F75 


CLOG 


008 


SS0PD2 


2EAC 


AB53 


CLCG 


009 





NEXTSEQ NEXTLABEL STATEMENT 

LOGICAL OPERATIONS 

MOVE IMMEDIATE 
CICY 045 ADDERR N BR IF Hl^NZ 

STB Gl U 
CICY 005 ISTART N N=S BITS67 
MOVE CHARACTERS 

Hl=Hl$Dl 
CICY 045 AJDEftR N BR IF Hl=NZ 



COMMENTS 



MOVE 
IMMEDIATE 
EXECUTION 

MOVE 
CHARACTERS 
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AUOR 


WORD 


SEQUENCE NO, 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


2EAE 


5 7 38 


CLOG 


010 


0P02 








ROB Dl Vti 


EXECUTION 


2E60 


7 718 


CLOG 


Oil 










STB 01 U+l 




2EB2 


2 5FF 


CLOG 


012 










G1=G1+KFF 




2EB4 


F4AF 


CLOG 


013 




010 


0P02 




BR IF AC=1 




2EB6 


81B3 


CLCG 


014 




CICY 005 


I START 


N 


N=S BITS67 








CLOG 


015 


* 


MOVE NUMERICS 








2E48 


tvib 


CLOG 


016 


SS0P01 








Hi=Hl$0i 


MOVE 


2E4A 


A853 


CLOG 


017 




CICY 045 


ADDERR 


N 


BR IF H1 = NZ 


NUMERICS 


2E4C 


5738 


CLOG 


018 


0PD1 








ROB 01 V+l 


EXECUTION 


2E4E 


5F10 


CLOG 


019 










ROB HI U 




2E50 


4F7B 


CLOG 


020 










D1=H1H*D1L 




2E52 


7 718 


CLOG 


021 










STB 01 U+i 




2E54 


25FF 


CLOG 


022 










G1=G1*KFF 




2E56 


F4CD 


CLOG 


02 3 




018 


0PD1 




BR IF AC=l 




2E58 


81B3 


CLOG 


024 




CICY 005 


I START 


N 


N=S BITS67 








CLOG 


025 


* 


MOVE ZONES 








2E5A 


6F75 


CLOG 


02 6 


SS0PD3 








Hi=Hl$01 


MOVE 


2E5C 


AB53 


CLOG 


027 




CICY 045 


ADOERR 


N 


BR IF H1=NZ 


ZONES 


2E5E 


5738 


CLOG 


02 8 


0P03 








ROB Dl V+l 


EXECUTION 


2EoO 


5F10 


CLOG 


029 










ROB HI U 




2E62 


4F70 


CLOG 


030 










D1=HIL+QIH 




2E64 


7718 


CLCG 


031 










STB 01 U+l 




2E66 


2 5FF 


CLOG 


032 










G1=G1+KFF 




2E68 


F4DF 


CLOG 


033 




028 


0PD3 




BR IF AC=i 




2E6A 


81B3 


CLOG 


034 




CiCY 005 


ISTART 


N 


N=S BITS67 








CLOG 


035 


* 


COMPARE LOGICAL 


RR 


COMPARE 


336A 


8A70 


CLOG 


036 


RR0P15 


CCOM 036 


CRGET 




BAL 


LOGICAL 


336C 


AC9C 


CLOG 


037 




040 


CXCOML 




BR 


INSTRUCTIONS 






CLOG 


038 


* 


COMPARE LOGICAL 


RX 


EXECUTION 


2C9A 


A770 


CLOG 


039 


RXOP55 


CCOM 045 


CXGET 




BAL 




2C9C 


8174 


CLOG 


040 


CXCOML 


CCOM 086 


CSLOGP 




BAL 




2C9E 


D5A8 


CLOG 


041 




054 


GP95B 




BR IF S1=0 


GO SET CCO 


2CA0 


F5A5 


CLOG 


042 




052 


0P95A 




BR IF S3=l 


GO SET CC2 


2CA2 


AC84 


CLOG 


043 




050 


0P95C 




BR 


GO SET CC1 






CLOG 


044 


* 


COMPARE LOGICAL 


RS 




2C7A 


AB53 


CLOG 


045 


RSOP95 


CICY 045 


ADCERR 


N 


BR IF H1=NZ 




2C7C 


5F10 


CLOG 


046 










ROB HI U 




2C7E 


7F51 


CLOG 


G47 










H1=H1-G1+1 




2C80 


C4A9 


CLOG 


048 




054 


0P95B 




BR IF Z=0 




2C82 


F4A5 


CLOG 


04 9 


0P95D 


052 


0P95A 




BR IF AC=1 




2C84 


2C55 


CLOG 


050 


0P95C 








PO=0$K50 




2C86 


81B3 


CLOG 


051 




CICY 005 


ISTART 


N 


N=S BITS67 




2CA4 


2C25 


CLOG 


052 


0P95A 








P0=0$K20 




2CA6 


81B3 


CLOG 


053 




CICY 005 


ISTART 


N 


N=S BITS67 




2CA8 


2CC7 


CLOG 


054 


GP95B 








P0=0 




2CAA 


81B3 


CLOG 
CLOG 


055 
056 


* 


CICY 005 


ISTART 


N 


N=S BITS67 








CLOG 


057 


♦ 


COMPARE LOGICAL 


CHARACTERS 




2C88 


6F75 


CLOG 


05 8 


SS0P05 








H1=H1$01 




2C8A 


AB53 


CLOG 


059 




CICY 045 


AOOERR 


N 


BR IF H1=NZ 




2C8C 


5738 


CLOG 


060 


0P05 








ROB 01 V*l 




2C8E 


5F18 


CLOG 


061 










ROB Hi U+l 




2C90 


7F71 


CLOG 


062 










H1=H1-D1+1 





ADDR 


WORD 


SEQUENCE NO, 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


2C92 


C482 


CLOG 


063 




049 


0P95D 


BR IF ZNZ 


2C94 


25FF 


CLOG 


064 








G1^G1*KFF 


2C96 


F4 8D 


CLOG 


065 




060 


0PD5 


BR IF AC*1 


2C98 


ACA8 


CLOG 
CLOG 


066 
067 


* 


054 


0P95B 


BR 






CLOG 


068 


* 


AND 


RR 




2916 


8A7C 


CLCG 


069 


RR0P14 


CCCM 036 


CRCET 


BAL 


2920 


A9CA 


CLOG 
CLOG 


070 
071 


* 


074 


CXAND 


BR 






CLOG 


072 


* 


AND 


RX 




2908 


A77C 


CLUG 


07 3 


RX0P54 


CCOH 045 


CXGET 


BAL 


29.0A. 


6F17 


CLOG 


074 


CXANO 






HI=H1*U1 


290C 


6EC7 


CLOG 


075 








H0=H0*U0 


290E 


6737 


CLGG 


076 








Dl=vDl*Vl 


29 10 


6627 


CLOG 


077 








D0=D0*V0 


2912 


76A8 


CLOG 


078 


CCLOST 






STH D AS,T+2 


2914 


7EAA 


CLOG 


079 








STH H AS,T-2 


29 16 


E59B 


CLOG 


080 


S2CHK 


082 


SETNZ 


BR IF S2=i 


2913 


ACA8 


CLOG 


081 




054 


0P95B 


BR 


291A 


2C55 


CLOG 


82 


SETNZ 






P0=0$K50 


291C 


BIB3 


CLCG 
CLOG 


083 
C84 


* 


CICY 005 


ISTART N 


N=S BITS67 






CLCG 


085 


* 


AND 


RS 




?tll 


AB53 


CLCG 


86 


RS0P94 


CICY 045 


AOOERR N 


BR IF Hl=NZ 


IEZ<* 


5F10 


CLCG 


087 








ROB HI U 


2626 


6F57 


CLOG 


088 








H1=H1*GI 


2628 


C4Bi 


CLOG 


C89 


0P94A 


093 


CP94B 


BR IF Z^=0 


262A 


7F10 


CLOG 


090 








STB HI U 


262C 


2C5 5 


CLOG 


091 








P0=0$K50 


2E2E 


81B3 


CLOG 


092 




CICY 005 


ISTART N 


N-=S BITS67 


2fc30 


7F10 


CLOG 


093 


0P94B 






STB Hi U 


2E32 


2C07 


CLOG 


094 








P0=0 


2 6 34 


8 IB 3 


CLGG 
CLOG 


095 
096 


♦ 


CICY 005 


ISTART N 


N=S BITS67 






CLOG 


097 


* 


AND 


SS 




29AA 


6F75 


CLOG 


098 


SS0PD4 






Hi=Hl$0i 


29AC 


AB53 


CLOG 


099 




CICY 045 


ADDERR N 


BR IF Hl = NZ 


29AE 


10CE 


CLGG 


100 








RST S K^FC 


29B0 


5738 


CLOG 


101 


QPD4 






RDB Dl V + l 


29B2 


5F10 


CLOG 


102 








RDB HI U 


29B4 


6 7F7 


CLOG 


103 








D1 = D1*H1 


29B6 


7718 


CLGG 


104 








STB Dl U+l 


29B8 


25FF 


CLUG 


105 








G1=G1+KFF 


29BA 


F481 


CLCG 


106 




101 


0PD4 


BR IF AC=1 


29BC 


A916 


CLOG 
CLOG 


107 

108 


* 


080 


S2CHK 


BR 






CLOG 


109 


* 


OR 


RR 




3372 


8A7C 


CLCG 


110 


RR0P16 


CCCM 036 


CRGET 


BAL 


3374 


B338 


CLOG 
CLOG 


111 

112 


* 


115 


CXOR 


BR 






CLCG 


113 


# 


OR 


RX 




33 36 


A770 


CLOG 


114 


RX0P56 


CCOM 045 


CXGET 


BAL 


3338 


6F15 


CLOG 


115 


CXOR 






H1=H1$U1 



CLOAD^ 
COMMENTS 
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AND 
EXECUTION 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


333A 


6EC5 


CLOG 


116 








H0=H0$U0 


333C 


6735 


CLOG 


117 








Dl^DUVl 


333E 


6625 


CLOG 


118 








00=DO$VO 


3340 


A912 


CLOG 
CLOG 


119 

120 


* 


078 


CCLOST 


BR 






CLOG 


121 


* 


OR 


RS 




26F6 


AB53 


CLGG 


122 


RS0P96 


CICY 045 


AJDERR N 


BR IF H1=NZ 


2BF8 


5F10 


CLOG 


123 








ROB HI U 


2BFA 


6F55 


CLOG 


124 








H1=H1$G1 


2BFC 


AE28 


CLOG 
CLOG 


125 
126 


* 


089 


0P94A 


BR 






CLOG 


127 


* 


OR 


SS 




2DFA 


6F75 


CLOG 


128 


SS0PD6 






H1=H1$D1 


2DFC 


AB53 


CLOG 


129 




CICY 045 


ADCERR N 


BR IF H1=NZ 


2DFE 


10CE 


CLOG 


130 








RST S K=FC 


2EG0 


5738 


CLOG 


131 


0PD6 






ROB Oi V+l 


2E02 


5F10 


CLOG 


132 








ROB HI U 


2604 


67F5 


CLOG 


133 








01=01$H1 


2E06 


7718 


CLOG 


134 








STB 01 U+l 


2E08 


25FF 


CLOG 


135 








Gi=Gl+KFF 


2E0A 


F481 


CLOG 


136 




131 


0PD6 


BR IF AC»1 


2E0C 


A916 


CLOG 
CLOG 


137 
138 


♦ 


080 


S2CHK 


BR 






CLOG 


139 


* 


XOR 


RR 




337A 


8A70 


CLOG 


140 


RR0P17 


CCCM 036 


CRGET 


BAL 


337C 


B32C 


CLOG 
CLOG 


141 
142 


* 


145 


CXXOR 


BR 






CLOG 


143 


* 


XOR 


RX 




332 A 


A770 


CLOG 


144 


RXOP57 


CCOM 045 


CXGET 


BAL 


332C 


6FU 


CLOG 


145 


CXXOR 






HUHlnUl 


332E 


6E01 


CLOG 


146 








HO^HOQUO 


3330 


6731 


CLOG 


147 








Dl=0lavi 


33 32 


6621 


CLGG 


148 








00=OOaVO 


3334 


A912 


CLOG 
CLOG 


149 
150 


* 


078 


CCLOST 


BR 






CLOG 


151 


* 


XOR 


RS 




2D72 


AB53 


CLOG 


152 


RS0P97 


CICY 045 


AOOERR N 


BR IF Hl-N'Z 


2D74 


5F10 


CLOG 


153 








RDB HI U 


2D76 


6F5i 


CLOG 


154 








Hl^HlaGl 


2D78 


AE28 


CLOG 
CLOG 


155 
156 


* 


089 


0P94A 


BR 






CLOG 


157 


* 


XOR 


SS 




20EQ 


6F75 


CLOG 


158 


SS0PD7 






H1=H1$01 


20E2 


AB53 


CLOG 


159 




CICY 045 


AODERR N 


BR IF Hb»NZ 


20E4 


10CE 


CLOG 


160 








RST S K=FC 


2DE6 


5738 


CLOG 


161 


0PD7 






RDB 01 V+l 


2DE8 


5F10 


CLOG 


162 








RDB HI U 


2UEA 


67F1 


CLOG 


163 








OiaOlaHl 


2DEC 


7718 


CLOG 


164 








STB Dl U+l 


20EE 


25FF 


CLOG 


165 








G1 = G1<-KFF 


2DF0 


F4E7 


CLOG 


166 




161 


0P07 


BR IF AC=i 


2DF2 


A916 


CLOG 
CLOG 


167 

168 


* 


080 


S2CHK 


BR 



CLOAD=*E60, EC LEVEL=l282 1i 

COMMENTS 
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XOR 
EXECUTION 



AODR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






CLOG 


169 


* 


TEST UNDER MASK 




2CB0 


AB53 


CLOG 


170 


RS0P91 


CICY 045 


AODERR 


N 


BR IF H1=NZ 


2CB2 


5F10 


CLOG 


171 










RDB HI U 


2CB4 


6F57 


CLOG 


172 










HI=H1*G1 


2CB6 


C4A9 


CLOG 


173 




054 


0P95B 




BR IF Z=0 


2C88 


6F51 


CLOG 


174 










Hl=HlaGl 


2CBA 


C4AD 


CLOG 


175 




178 


0P91B 




BR IF Z=0 


2CBC 


2C55 


CLOG 


176 










P0*0$K50 


2CBE 


81B3 


CLOG 


177 




CICY 005 


I START 


N 


N=S BITS67 


2CAC 


2C75 


CLOG 


178 


0P91B 








P0=0$K70 


2CAE 


8183 


CLOG 
CLOG 


179 
180 


♦ 


CICY 005 


I START 


N 


N=S BITS67 






CLOG 


181 


* 


INSERT 


CHARACTER 




2EDC 


AB53 


CLOG 


182 


RX0P43 


CICY 045 


AODERR 


N 


BR IF H1=NZ 


2EDE 


55BB 


CLOG 


183 










Tl-GIH 


2EE0 


2B3B 


CLOG 


184 










T1-T1+K0 3 


2EE2 


5710 


CLOG 


185 










RDB Dl U 


2EE4 


77A0 


CLOG 


186 










STB 01 AS,T 


2EE6 


81B3 


CLOG 
CLOG 


187 
188 


♦ 


CICY 005 


ISTART 


N 


N=S BITS67 






CLOG 


189 


* 


STORE 


CHARACTER 




2EB8 


AB53 


CLOG 


190 


RX0P42 


CICY 045 


ADDERR 


N 


BR IF HUNZ 


2EBA 


55BB 


CLOG 


191 










T1=GIH 


2EBC 


2B3B 


CLOG 


192 










Tl=Tl+K03 


2EBE 


57AC 


CLOG 


193 










RDB Dl AS,T 


2ECO 


7710 


CLOG 


194 










STB Dl U 


2EC2 


81B3 


CLOG 
CLOG 


195 
196 


* 


CICY 005 


ISTART 


N 


N*S BITS67 






CLOG 


197 


* 


LOAD ADDRESS 






2996 


5 5BB 


CLOG 


198 


RX0P41 








Tl^GlH 


2998 


2EC7 


CLOG 


199 










H0=0 


299A 


7EA8 


CLOG 


200 










STH H AS,T + 


299C 


70A0 


CLOG 


201 










STH U AS,T 


2996 


81B3 


CLOG 


202 




CICY 005 


ISTART 


N 


N=S BITS67 



CL0AD=*E60 f 
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* CROSS REFERENCE FOR CSECT CLOG * 
********************************** 



CLOG 


004 


CICY 


2C5 


CLOG 


008 


CICY 


227 


CLOG 


010 


CLOG 


013 


CLOG 


016 


CICY 


226 


CLOG 


018 


CLOG 


023 


CLOG 


026 


CICY 


228 


CLOG 


028 


CLOG 


033 


CLOG 


036 


CICY 


1*2 


CLOG 


039 


CICY 


184 


CLOG 


040 


CLOG 


037 


CLOG 


045 


CICY 


2C8 


CLOG 


049 


CLOG 


0£3 


CLOG 


050 


CLOG 


043 


CLOG 


052 


CFAD 


078 


CLOG 


54 


CLOG 


041 


CLOG 


058 


CICY 


230 



CSA.S 103 CTRT 
CLOG 042 CLOG 
CLOG 048 CLOG 



032 CTRT 062 
049 CSAS 102 
066 CLOG 081 



CSFT 085 
CLOG 173 



CTRT 031 CTRT 063 
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CLOG 060 
CLOG 069 
CLOG 073 
CLOG 074 
CLOG 078 
CLOG 080 
CLOG 082 
CLOG 086 
CLOG 089 
CLOG 093 
CLOG 098 
CLOG 101 
CLOG 110 
CLOG 114 
CLOG 115 
CLOG 122 
CLOG 128 
CLOG 131 
CLOG 140 
CLOG 144 
CLOG 145 
CLOG 152 
CLOG 158 
CLOG 161 
CLOG 170 
CLOG 178 
CLOG 182 
CLOG 190 
CLOG 198 



CLOG 065 
CICY 151 
CICY 183 
CLOG 070 
CLOG 119 
CLOG 1G7 
CFAD 079 
CICY 2C7 
CLOG 125 
CLOG 089 
CICY 229 
CLOG 1C6 
CICY 153 
CICY 165 
CLOG 111 
CICY 209 
CICY 231 
CLOG 136 
CICY 154 
CICY 186 
CLOG 141 
CICY 210 
CICY 232 
CLOG 166 
CICY 2C4 
CLOG 175 
CICY 166 
CICY 165 
CICY 164 



********************************** 

* CROSS REFERENCE FOR CSECT CLOG * 
********************************** 



CLOG 149 
CLOG 137 
CLOG 080 

CLOG 155 



CLOG 167 
CSFT 076 



CLST « LOAO AND STORE INSTRUCTIONS 
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*- 












INSTRUCTION FORMA! 




* 

* 


* 


ENTRY 


• 


OPERATION 


. BYTE i 


• 


BYTE 2 


• 


BYTE 3 \ 


. BYTE 


4 * 


* 


RRQP1Q 


m 


LOAO POSITIVE 


10 


. 


Rl 


R2 


m 








* 


# 


RROP11 


* 


LOAO NEGATIVE 


il 


• 


Rl 


R2 


* 








# 


* 


RROP12 


. 


LOAO AND TEST 


12 


• 


RL 


R2 


• 








♦ 


* 


RR0P13 


* 


LOAO COMPLEMENT . 


13 


• 


Rl 


R2 


• 








* 


# 


RROP18 


• 


LOAD 


18 


• 


Rl 


R2 


# 








* 


* 


RSQP90' 


. 


STORE MULTIPLE 


90 


• 


Rl 


R3 


• 


B2 


02 . 


02 


* 


* 


RSUP98 


, 


LOAO MULTIPLE 


98 


• 


Rl 


R3 


. 


62 


02 , 


02 


♦ 


* 


KX0P40 




STORE HALFWORD 




• 


Rl 


X2 


• 


B2 


02 - 


D2 


* 


* 


RXGP48 


« 


LOAO HALFWORD 


48 


. 


Rl 


X2 


• 


B2 


02 < 


02 


♦ 


* 


RXOP50 


* 


STORE 


50 


« 


Rl 


X2 


• 


B2 


02 « 


02 


* 


*- 


RXOP58 


• 


LOAD 


58 


• 


Rl 


X2 


* 


B2 


02 , 


02 


— * 




OBJECTIVES 





















OBJECTIVES CONTINUED 



LOAO POSITIVE -- THE TRUE VALUE OF THE 2N0 OPERAND IS 
PLACED IN THE 1ST OPERAND LOCATION. 



LOAD NEGATIVE 



- THE TWOS COMPLIMENT CF THE TRUE VALUE 
OF THE 2ND OPERAND IS PLACED IN THE 
1ST OPERAND LOCATION. 



LOAD AND TEST 



LOAD HALFWORD 



LOAD MULTIPLE 



STORE MULTIPLE 



LOAD COMPLEMENT - THE TWOS COMPLEMENT OF THE 2ND OPERANO 
IS PLACED IN THE 1ST OPERAND LOCATION. 



- THE 2ND OPERAND IS PLACED IN THE 1ST 
OPERAND LOCATION, AND THE SIGN AND THE 
MAGNITUDE OF THE 2ND OPERAND DETERMINE 
THE CONDITION CODE. 

- PLACE THE HALFWORD 2ND OPERAND INTO THE 
1ST OPERANO LOCATION. EXTEND THE SIGN 
INTO THE HIGH-QROER 16 BITS OF THE 1ST 
OPERAND. 

- THE INFORMATION AT THE EFFECTIVE 2ND 
OPERAND ADDRESS IS LOADED INTO GENERAL 
REGISTER STARTING WITH THE ONE 
SPECIFIED BY Rl AND ENDING WITH THE 
ONE SPECIFIED BY R3. 

- THE INFORMATION IN THE GENERAL REGISTER 
STARTING WITH THE REGISTER SPECIFIED BY 
Rl AND AND ENDING WITH THE REGISTER 
SPECIFIED BY R3 IS STORED AT THE 
LOCATIONS DESIGNATED BY THE EFFECTIVE 
2ND OPERAND ADDRESS. 



STORE HALFWORD - MOVE THE 16 LOW-ORDER BYTES OF THE 1ST 
OPERAND TO PROGRAM STORAGE ADDRESSED 
BY THE 2ND OPERAND. 



LOAD 



PLACE THE 2ND OPERAND INTO THE 1ST 
OPERAND LOCATION. 



STORE 



THE 1ST OPERAND IS MOVED TO PROGRAM 
STORAGE AT THE EFFECTIVE ADDRESS OF 
THE 2ND OPERAND. 



A DOR 



V*QRO SEgUEIMCE NO. 



LABEL 







CLST 


001 


T 






CLST 


002 


* 






CLST 


003 


* 






CLST 


004 


* 


2C34 


837C 


CLST 


005 


RROPIO 


2C36 


C610 


CLST 


006 




2C38 


8AE0 


CLST 


007 


PCOMPL 


2C3A 


C610 


CLST 


008 




2C3C 


76A8 


CLSI 


009 


OVCHEK 


2C3E 


7EAA 


CLST 


010 




2C40 


2C7 5 


CLSI 


Oil 


SHFTOV 


2C42 


CDC9 


CLST 


012 





NEXTSEQ NEXTLABEL STATEMENT 
LOAD AND STORE INSTRUCTIONS 



COMMENTS 



LOAD POSITIVE 
CCGM 029 LGET 

020 DCHECK 
CCOM 076 COMPL 

020 DCHECK 



014 TAKEOV 



BAL 

BR IF D00=0 

BAL 

BR IF 000=0 

STH D AS,T«-2 

STH H AS»T-2 

P0^=0$K70 

8R IF P10=l 



SET CC=3-0VERFL0W 



ADOR 


WORD 


SEQUENCE NIK 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


2C44 


8 IB 3 


CLST 


013 




CICY 005 


I START N 


N=S B1TS67 


2C08 


2B83 


CLST 


014 


TAKEOV 






T1=0*K08 


2C0A 


<*C70 


CLST 
CLST 


015 
016 


* 


BPSW 003 


PROG 


BR 






CLST 


017 


* 


LOAD AND TEST 




2C0C 


837C 


CLST 


018 


RR0P12 


CCOM 029 


LGET 


BAL 


2CQE 


C625 


CLSI 


019 


DBRAN 


036 


NEGCC1 


BR IF 000= 1 


2CIO 


4EE6 


CLST 


02 


DCHECK 






H=H 


2C12 


4666 


CLsr 


021 








D=D 


2C14 


D5C7 


CLST 


022 




024 


TESCC2 


BR IF Sl= 1 


2C16 


AC30 


CLsr 


023 




034 


NEGCCO 


BR 


2C46 


2C25 


CLST 


024 


TESCC2 






P0=0$K20 


2C48 


76A8 


CLSI 


025 


DSTORE 






STH D AS,T*2 


2C4A 


7EAA 


CLST 


026 








STH H AS,T-2 


2C4C 


81B3 


CLST 
CLST 


02 7 
02 8 


♦ 


CiCY 005 


I START N 


N=S BITS67 






CLST 


029 


* 


LOAD NEGATIVE 




2C28 


837C 


CLST 


030 


RR0P11 


CCOM 029 


LGET 


BAL 


2C2A 


C625 


clst 


031 




036 


NEGCC1 


BR IF 000=1 


2C2C 


8AE0 


CLST 


032 




CCOM 076 


COMPL 


BAL 


2C2E 


C625 


CLST 


033 




036 


NEGCC1 


BR IF DOO=i 


2C30 


2C07 


CLST 


034 


NEGCCO 






P0=0 


2C32 


AC48 


CLST 


035 




025 


DSTORE 


BR 


2C24 


2C55 


CLST 


036 


NEGCC1 






P0=0$K50 


2C26 


AC48 


CLSI 
CLSJ 


037 

038 


* 


025 


DSTQRE 


BR 






CLST 


039 


* 


LOAD COMPLIMENT 




2C00 


837C 


CLST 


040 


RR0P13 


CCOM 029 


LGET 


BAL 


2C02 


C639 


CLST 


041 




007 


PCCMPL 


BR IF 000=1 


2C04 


8AE0 


CLST 


042 




CCOM 076 


COMPL 


BAL 


2C06 


ACOE 


CLST 
CLST 


043 

044 


* 


019 


DBRAN 


BR 






CLST 


045 


* 


LOAD OP &R 




2E9C 


55B3 


CLST 


046 


RR0P18 






T1=G1XH 


2E9E 


56 A 8 


CLST 


047 








RDH D AS f T+2 


2EA0 


5EAA 


CLST 


048 








RDH H AS,T-2 


2EA2 


55B8 


CLST 


049 








TUG1H 


2EA4 


76A8 


CLST 


050 








STH D AS,T+2 


2EA6 


7EAA 


CLST 


051 








STH H AStT-2 


2EA8 


81B3 


CLST 
CLST 


52 

053 


* 


CICY 005 


I START N 


N=S BITS67 






CLST 


054 


* 


STORE 


HALFWORD 




2D14 


AB53 


CLST 


055 


RX0P40 


CICY 045 


ADDERR N 


BR IF H1=NZ 


2016 


C1E3 


CLST 


056 








Z=U1*-K0E 


2018 


FCA4 


CLST 


057 




063 


SPEC 


BR IF LZNZ 


201 A 


55BB 


CLST 


058 








T1=G1H 


20 1C 


2B2B 


CLST 


059 








T1=T1+K02 


201E 


52A0 


CLST 


060 








RDH V AS,T+0 


20 20 


7210 


CLST 


061 








STH V U4-0 


2D22 


81B3 


CLST 


062 


RSEND 


CICY 005 


ISTART N 


N=S BITS67 


2024 


AE98 


CLST 
CLST 


063 
064 


SPEC 


CICY 059 


SPECHK 


BR 






CLST 


065 


* 


LOAD HALFWORD 
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AODK 


hQRD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLA8EL 


STATEMENT 


2000 


AB53 


CLSI 


066 


RX0P48 


CICY 045 


AODERR N 


BR 


IF 


Hl = NZ 


2002 


01E3 


CLST 


067 








Z^=Ui*- 


■KOE 


2004 


F0A4 


CLST 


068 




063 


SPEC 


BR 


IF 


LZNZ 


20 06 


55BB 


CLST 


069 








Tl = < 


31H 


2J08 


5E10 


CLST 


070 








RDH 


H 


U 


2D0A 


2 70 7 


CLST 


071 








01 = 




200C 


CE10 


CLST 


072 




074 


EXT 


br : 


IF 


H00=0 


200E 


27F7 


CLST 


073 








Oi=0$KFF 


2010 


5769 


CLST 


074 


EXT 






D0 = { 


31 




2012 


AC48 


CLSI 
CLST 


075 
076 


* 


025 


DSTORE 


BR 










CLST 


077 


♦ 


STORE 


OP RX 








2ED0 


55BB 


CLST 


078 


RX0P50 






Ti = < 


S1H 


26 02 


56A8 


CLST 


079 








RDH 


D 


AS,T+2 


2ED4 


5EAA 


CLST 


080 








RDH 


H 


AS,T-2 


2ED6 


1618 


CLSI 


081 








STH 


D 


U>2 


2E08 


7E10 


CLST 


082 








STH 


H 


U 


2EDA 


81B3 


CLST 


083 




CICY 005 


ISTART N 


N=S 


BITS67 






CLST 


084 


* 
















CLST 


085 


♦ 


LOAO OP RX 








2EC4 


55BB 


CLST 


086 


RX0P58 






Tl = < 


SIH 


2EC6 


5618 


CLST 


087 








RDH 


D 


U + 2 


2EC8 


5E10 


CLST 


088 








RDH 


H 


U 


2tCA 


76A8 


CLST 


C89 








STH 


D 


AS, T+2 


2ECC 


7EA0 


CLST 


090 








STH 


H 


AS,T 


2ECE 


81B3 


CLSI 


091 




CICY 005 


I ST ART N 


N=S 


BITS67 






CLST 


092 


* 
















CLST 


093 


* 


LOAD MULTIPLE 








2EE8 


AD26 


CLSI 


094 


RS0P90 


110 


RS9XA 


8AL 






2EEA 


52A8 


CLST 


095 


RS90A 






RDH 


V 


AS,T*2 


2tEC 


72 18 


CLST 


096 








STH 


V 


U + 2 


2EEE 


52A0 


CLST 


097 








RDH 


V 


AS,T 


2EF0 


7218 


CLSI 


098 








STH 


V 


U*2 


2EF2 


AD30 


CLST 


C99 




115 


RS9XB 


BAL 






2EF4 


AEEA 


CLST 

clst 


100 
101 


* 


095 


RS90A 


BR 










CLST 


102 


* 


STORE 


MULTIPLE 








I A BO 


A026 


CLST 


103 


RS0P98 


110 


RS9XA 


BAL 






1AB2 


5218 


CLST 


104 


RS98A 






RDH 


V 


U*2 


1AB4 


72A8 


CLST 


105 








STH 


V 


AS,T*2 


1AB6 


5218 


CLST 


106 








RDH 


V 


U+2 


1AB8 


72A0 


CLST 


107 








STH 


V 


AS,T 


1A6A 


AD30 


CLST 


108 




115 


RS9X8 


BAL 






1ABC 


9AB2 


CLST 


109 




104 


RS98A 


BR 






2026 


AB53 


CLST 


no 


RS9XA 


CICY 045 


AODERR N 


BR 


IF 


Hl^NZ 


2028 


01C3 


CLST 


111 








Z=U1*- 


-KOC 


2D2A 


F0A4 


CLST 


112 




063 


SPEC 


BR 


IF 


LZNZ 


2D2C 


5 5BB 


CLST 


113 








Ti=i 


G1H 


2U2E 


128E 


CLST 


114 








RTN 






2030 


5531 


CLST 


115 


RS9XB 






Vl = 


G1X 


2032 


6351 


CLST 


116 








Vi*< 


nnGl 


2034 


C4A3 


CLST 


117 




062 


RSENO 


BR 


IF 


Z=0 


2D36 


251D 


CLST 


118 








Gl = 


GH-K10 
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ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

2038 55BB CLST 119 T1-G1H 

2D3A 128E CLST 120 RTN 

************ ********************** 

* CROSS REFERENCE FOR CSECT CLST * 
********************************** 



CLST 


005 


CICY 


147 






CLST 


007 


CLST 


041 






CLST 


009 


C81N 


032 






CLST 


Oil 


CSFT 


074 






CLST 


014 


CLST 


012 






CLST 


018 


CICY 


149 






CLST 


019 


CLST 


043 






CLST 


020 


CLST 


0C6 


CLST 


0C8 


CLST 


024 


CBIN 


035 


CLST 


02 2 


CLsr 


025 


CLST 


035 


CLST 


03 7 


CLST 


030 


CICY 


148 






CLST 


034 


CBIN 


033 


CLsr 


023 


CLST 


036 


CBIN 


034 


CLST 


019 


CLST 


040 


CICY 


150 






CLST 


046 


CICY 


155 






CLST 


055 


CICY 


163 






CLST 


062 


CLST 


117 






CLST 


063 


CLST 


057 


CLST 


068 


CLST 


066 


CICY 


171 






CLST 


074 


CLST 


072 






CLST 


078 


CICY 


179 






CLST 


086 


CICY 


1€7 






CLST 


094 


CICY 


203 






CLST 


095 


CLST 


ICO 






CLST 


103 


CICY 


211 






CLST 


104 


CLST 


1C9 






CLST 


110 


CLSf 


094 


CLST 


103 


CLST 


115 


CLST 


099 


CLST 


108 



CLST 075 



CLST 031 CLST 033 



CLST 112 
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CMLT — MULTIPLY BINARY ROUTINE 



DESCRIPTION 



* 

* ENTRY 

* 

* RR0P1C 

* RX0P4C 

* RXUP5C 



OPERATION 



MULTIPLY 
MULTIPLY 
MULTIPLY 



HALF WORD 
FULLWORD 



BYTE i 



IC 
4C 
5C 



INSTRUCTION FORMAT * 

BYTE 2 . BYTE 3 . BYTE 4 * 

, Rl R2 . * * 

Rl X2 . B2 02 . 02 * 

► Rl X2 . B2 02 . 02 * 



OBJECTIVES 

1. FETCH BOTH OPERANDS. FOR FULLWORO MULTIPLY, THE 
MULTIPLICAND IS FOUND IN THE ODD REGISTER FOLLOWING 
THE EVEN REGISTER SPECIFIED BY Rl. FOR MULTIPLY 
HALFWORD, Rl SPECIFIES THE LOCATION OF THE 
MULTIPLICAND. THE MULTIPLIER IS FOUND IN R2 OR AT 
THE EFFECTIVE MAIN STORAGE ADDRESS. 

2. CREATE A TABLE OF MULTIPLICAND VALUES IN AUX STORAGE 
— MULTIPLICAND TIMES 1, X4 , X16, AND X64. 

3. READ EACH HEXADECIMAL MULTIPLIER DIGIT, STARTING AT 
THE LOW-ORDER. CREATE PRODUCT BY ACDING APPROPRIATE 
TABLE VALUES OR COMBINATION OF VALUES AS DETERMINED 
BY THE MULTIPLIER DIGIT. THE PRODUCT IS SHIFTED 
AFTER ADDING THE TABLE VALUES FOR BOTH THE HIGH AND 
LOW DIGITS OF EACH MULTIPLIER BYTE* 

4. STORE THE PRODUCT IN THE LOCATION THAT ORIGINALLY 
CONTAINED THE MULTIPLICAND. 



THE ROUTINE FETCHES THE OPERANDS, THEN PERFORMS SIGN 
ANALYSIS. THIS RESULT IS STORED FOR USE AT THE END OF THE 
ROUTINE. 

THE MULTIPLY TABLE IS STORED IN AUX STORAGE. TO BUILD 
THE TABLE, THE ROUTINE MAKES 4 PASSES THROUGH A LOOP. IN 
THE LOOP, THE MULTIPLICAND IS STORED, THEN OOUBLED AND 
REDOUBLED. THEREFORE, THE VALUES STORED IN THE TABLE ARE — 
MULTIPLICAND TIMES 1, 4, 16, AND 64. SEE AUX STORAGE MAP 
IN SECTION AAAB FOR LOCATION. 

MULTIPLICATION IS DONE ON A BYTE BASIS. FOR THE LOW DIGIT 
OF THE MULTIPLIER BYTE, THE TABLE ADDRESS IS INITIALIZED 
FOR XI. FOR THE HIGH DIGIT, THE TABLE ADDRESS IS SET FOR 
X16. THEN, A 16-WAY BRANCH ON THE ACTUAL MULTIPLIER DIGIT 
OCCURS. THE BRANCH DIRECTS THE MICROROUTINE TO THE PROPER 
COMPUTE ROUTINE FOR THE CURRENT MULTIPLIER DIGIT. THE 
COMPUTE ROUTINES CHANGE THE MULTIPLY-TABLE ADDRESS IF A X4 
OR A X64 TABLE VALUE IS NEEDED. ALSO, COMPLEMENT ADD IS 
SET IF A SUBTRACT IS NEEDED. THEN THE MICROROUTINE IS 
DIRECTED TO ADO EITHER ONCE OR TWICE DEPENDING ON THE 
COMPUTE ROUTINE FOR THE CURRENT DIGIT. NOTE THAT FOR SOME 
DIGITS, ADDS FROM TWO DIFFERENT TABLE ADDRESSES ARE 
NECESSARY. 

SHIFTING OCCURS AFTER BOTH THE HIGH AND LOW DIGITS FOR 
EACH MULTIPLIER BYTE ARE PROCESSED. THE CURRENTLY COMPLETED 
PRODUCT BYTE IS SHIFTED OUT OF THE PRODUCT-BUILDING AREA AND 
INTO THE REGISTERS FORMERLY OCCUPIED BY THE MULTIPLIER. 

A COUNTER DETERMINES THE LAST MULTIPLIER DIGIT. AFTER 
THIS LAST DIGIT IS PROCESSED, A CARRY TEST IS MADE. A FINAL 
XI VALUE FROM THE TABLE IS COMPLEMENT-ADDED TO THE PRODUCT 
IF THE NEED IS INDICATED BY THE SIGN AND MULTIPLIER-LOW 
DIGIT CARRY. 

TO COMPLETE THE MULTIPLY OPERATION, THE MICROPROGRAM 
RESTORES THE SAVED REGISTERS, AND THE HALFWORD OR FULLWORO 
PRODUCT IS STORED AT THE 1ST OPERAND ADDRESS. THEN, THE 
MICROPROGRAM RETURNS TO I-CYCLES. 



ADDK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






CMLT 001 


T 


MULTIPLY BINARY OP CODES 


784 


F5C3 


CMLT 002 


RX0P5C 


006 


ERRORA 


BR IF G13=i 


0/86 


3515 


CMLT 003 








G1=G1$K10 


0/88 


A770 


CMLT 004 




CCOM 045 


CXGET 


BAL 


078A 


82FA 


CMLT 003 




015 


START 


BR 


0782 


AE98 


CMLT 006 


ERRORA 


CICY 059 


SPECHK 


BR 


078C 


£191 


CMLT 007 


RR0P1C 


009 


NECLAB 


BR IF S6^1 


78E 


3485 


CMLT 008 








G0=G0$K80 


0790 


F503 


CMLT 009 


NEQLAB 


006 


ERRORA 


BR IF G13=l 



COMMENTS 
D. L. SMITH 



A DOR 


WORD 


SEQUfcNCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


0792 


3 515 


CMLT 


010 








G1=G1$K10 


7 94 


8A70 


CMLT 


Oil 




CCO.M 036 


CRGET 


BAL 


0796 


82FA 


CMLT 


012 




015 


START 


BR 






CMLT 


013 


ASEQ 


AL07=78 






02F8 


ADA8 


CMLT 


014 


RX0P4C 


CCCM 012 


CXGETH 


BAL 


02FA 


8DC2 


CMLT 


015 


START 


CCOM 057 


LSAVEA 


BAL 


02FC 


29C7 


CMLT 


016 








11 = 


02FE 


C604 


CMLT 


017 




020 


CANDPL 


BR IF DOO-O 


0300 


29F7 


CMLT 


018 








I1=0$KFF 


0302 


2C13 


CMLT 


019 








P0=0$K01 


0304 


C275 


CMLT 


020 


CANDPL 






Z=VQ*-K70 


0306 


EC8B 


CMLT 


021 




023 


PLIERP 


BR IF HZ=0 


03G8 


3C23 


CMLT 


022 








P0=P0$K02 


03 OA 


5989 


CMLT 


023 


PLI6RP 






10=11 


03 OG 


4A86 


CMLT 


024 








T=I 


0306 


ooco 


CMLT 


02 5 








RST S K=OC 


0310 


7CF2 


CMLT 


026 


L0QP1 






STH P DA, 86 


03 12 


4C52 


CMLT 


02 7 


FLTMU1 






RDH P 0C,9A 


0314 


201U 


CMLT 


028 


LUOP 






Pl=Pl4-K10 


0316 


208B 


CMLT 


02 9 








P1=PH»K03 


0318 


C029 


CMLT 


030 




38 


EXIT 


BR IF P10=1 


03 1A 


78C8 


CMLT 


031 








STH I AS, P+2 


031C 


/AC 8 


CMLT 


032 








STH T AS, P+2 


031E 


76C8 


CMLT 


033 








STH D AS, ?+Z 


0320 


76C8 


CMLT 


034 








STH H AS, P+2 


0322 


856E 


CMLT 


03 5 




100 


DOUBLE 


BAL 


0324 


8 566 


CMLT 


036 




100 


DOUBLE 


BAL 


0326 


8314 


CMLT 


037 




028 


LOOP 


BR 


0328 


2DC7 


CMLT 


03 8 


EXIT 






Pi = 


032A 


48C6 


CMLT 


039 








I=P 


032C 


4AC6 


CMLT 


040 








T = P 


0326 


44C6 


CMLT 


041 








G=P 


0330 


4oC6 


CMLT 


042 








D=P 


03 32 


4EC6 


CMLT 


043 








H=U 


0334 


4 0C6 


CMLT 


044 








U=P 


0336 


2C13 


CMLT 


045 








P0=0$K01 


0338 


C5BE 


CMLT 


046 


CHKL04 


049 


LOCHK 


BR IF S0=0 


033A 


2F1B 


CMLT 


047 


NXY 






H1=H1+K01 


03 3C 


F403 


CMLT 


048 




059 


ADJUST 


BR IF AC=1 


033E 


2D15 


CMLT 


049 


LOCHK 






P1=0$K10 


0340 


1C02 


CMLT 


050 








RST S K=90 


0342 


BB55 


CMLT 


051 




130 


DIG N 


N=H1L 


0344 


0D53 


CMLT 


052 


CYCLE 


059 


ADJUST 


BR IF PI 1=1 


0346 


C5CC 


CMLT 


053 




056 


HICHK 


^R IF S0=0 


0348 


2F1D 


CMLT 


054 








H1=H1+K10 


34A 


F4D3 


CMLT 


055 




059 


ADJUST 


HR IF AC=1 


034C 


2D55 


CMLT 


056 


HICHK 






P1=0$K50 


546 


1002 


CMLT 


05 7 








RST S K=90 


0350 


BF55 


CMLT 


058 




130 


DIG N 


N=H1H 


0352 


2C2B 


CMLT 


059 


ADJLST 






P0=P0+K02 


3 54 


946 8 


CMLT 


060 




081 


ROTA 


BAL 


0356 


C838 


CMLT 


061 


FLTMU2 


046 


CHKL04 


BR IF P04=0 


0358 


C1DC 


CMLT 


062 


ALMOSA 


064 


ALMOST 


BR IF S4=0 



CL0AD=*E60, EC LEVEL = 128211 
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A OUR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABE 


L STATE 


•WENT 


4bA 


9 5F 6 


CMLT 


06 3 




CFMU 009 


MULT 


BR 




U3bC 


54F2 


CMLT 


064 


ALMOST 






ROH G 


DA, BE 


uibE 


C5E9 


CMLT 


065 




070 


ANSWER 


BR IF 


S0= 1 


0360 


E068 


CMLT 


066 




070 


ANSWER 


BR IF 


G06=0 


0362 


3CC2 


CMLT 


06 7 








SET S 


K=90 


0364 


2D15 


CMLT 


068 








Pl^OSKlO 


0366 


9C02 


CMLT 


069 




109 


AC 01 


BAL 




0*68 


92 56 


CMLT 


070 


ANSWER 


CCOM 065 


LRSTRA 


BAL 




036A 


2AC7 


CMLT 


071 








TO-O 




036C 


556b 


CMLT 


072 








T1=G1H 


36E 


72 A 8 


CMLT 


073 








STH V 


AS,T+2 


03 70 


7EAA 


CMLT 


074 








STH H 


AS,T-2 


0372 


F47A 


CML J 


075 




079 


DONE 


BR IF 


G03=0 


0374 


lBlb 


CMLT 


076 








T1 = T1* 


<-KiO 


0376 


76A8 


CMLT 


077 








STH 


AS,T+2 


0378 


70AA 


CMLT 


C78 








STH U 


AS,T-2 


3 7A 


A8DE 


CMLT 
CMLT 


079 
080 


DONE 
AENO 


CICY 004 


CHECK 


BR 




1468 


5EF9 


CMLT 


081 


ROTA 






H1=H0 




146A 


b3E9 


CMLT 


C82 








HO = Vi 




146C 


5239 


CMLT 


083 








V1 = V0 




146E 


5129 


CMLT 


084 








VO^Ul 




1470 


5019 


CMLI 


085 








U 1=U0 




1472 


5709 


CMLT 


C86 








UO^Ol 




1474 


5679 


CMLT 


087 








Dl^DO 




1476 


5B69 


CMLT 


088 








D0=T1 




1478 


5AB9 


CMLT 


089 








T1=T0 




147A 


55A9 


CMLT 


090 








T0=G1 




14 7C 


5 4 59 


CMLT 


091 








G1=G0 




147E 


24C7 


CMLT 


092 








G0 = 




1480 


C5CC 


CMLI 


09 3 




099 


NOFLOW 


BR IF 


GiO^O 


U82 


G58F 


CMLT 


094 








Z=GlnK88 


1484 


EC8A 


CMLT 


095 




098 


FLCFIX 


BR IF 


HZNZ 


i486 


C10C 


CMLT 


096 




099 


NOFLOW 


BR IF 


G14=0 


1488 


C58C 


CMLT 


097 




099 


NOFLOW 


BR IF 


S0=0 


148A 


24F7 


CMLT 


098 


FLOFIX 






G0=0$K FF 


148C 


128E 


CMLT 


099 


NOFLOW 






RTN 




5 6E 


6FFB 


CMLT 


100 


DOUBLE 






HIOHUH1 


Ob70 


6EE0 


CMLT 


101 








H0C=H0+H0*C 


Ob 72 


6770 


CMLT 


102 








01C=D1*DUC 


Ob74 


6660 


CMLT 


103 








D0C=D0+D0+C 


0576 


6BB0 


CMLT 


104 








T1C=T1*T1+C 


0578 


6AA0 


CMLT 


105 








T0C=T0+T0*C 


Ob7A 


6990 


CMLT 


106 








llOIL + Il+C 


057C 


688D 


CMLT 


107 








I0C=I0M0+C 


057E 


128E 


CMLT 


108 








RTN 




1C02 


1CFB 


CMLT 


109 


A001 






PO^POQKOF 


1CD4 


30E3 


CMLT 


no 


ADDROU 






P1=P1$K0E 


1CD6 


58CA 


CMLT 


111 








ROH I 


AS,P-2 


1C08 


7190 


CMLT 


112 








U1C=U1U1+C 


1C0A 


708O 


CMLT 


113 








U0C=U0SI0+C 


1C0C 


58CA 


CMLT 


114 








ROH I 


AS, P-2 


1C0E 


7790 


CMLT 


115 








01C=D1%I i*C 



CL0AD=*E60, EC LEVEL=1282il PAGE 122 
COMMENTS 

EXIT TO FLOAT PT MULT 



ADDR 


rtORD 


SEQUENCE NO. 


LABEL 




1CEC 


768D 


CMLT 


116 






1CE2 


58CA 


CMLT 


117 






1CE4 


7B9D 


CMLT 


118 






1CE6 


7A80 


CMLT 


119 






1CE8 


58CA 


CMLT 


120 






1CEA 


759D 


CMLT 


121 






LCEC 


748D 


CMLT 


122 






iCEE 


1CFB 


CMLT 


123 






1CF0 


0002 


CMLT 


124 






1CF2 


F87B 


CMLT 


125 






1lF4 


C5D4 


CMLT 


126 






1CF6 


2002 


CMLT 


127 






1CF8 


C5U5 


CMLT 


128 






1CFA 


128E 


CMLT 


129 


OUTOUT 




02C0 


8344 


CMLT 


130 


DIG 





02C2 


82E0 


CMLT 


131 


DIG 


1 


02C4 


BC78 


CMLT 


132 


DIG 


2 


02C6 


BOEE 


CMLT 


133 


DCG 


3 


02 C 8 


B0F4 


CMLT 


134 


DIG 


4 


U2CA 


BOFO 


CMLT 


135 


DIG 


5 


02CC 


88E2 


CMLT 


136 


OIG 


6 


02CE 


B070 


CMLT 


137 


DIG 


7 


0200 


8C76 


CMLT 


138 


DIG 


8 


0202 


B346 


CMLT 


139 


DIG 


9 


0204 


A36E 


CMLT 


140 


DIG 


A 


0206 


8390 


CMLT 


141 


DIG 


B 


0208 


87FC 


CMLT 


142 


DIG 


C 


02DA 


8392 


CMLT 


143 


DIG 


D 


020C 


A376 


CMLT 


144 


DIG 


E 


020E 


3002 


CMLT 


145 


DIG 


F 


02E0 


9CD2 


CMLT 


146 


PUTE1 




02E2 


8344 


CMLT 


147 






30EE 


3002 


CMLT 


148 


PLTE3 




30F0 


9C02 


CMLT 


149 


PUTE5 




30 F 2 


1002 


CMLT 


150 






30F4 


3025 


CMLT 


151 


PUTE4 




30F6 


9CD2 


CMLT 


152 






30F8 


8344 


CMLT 


153 






08E2 


3025 


CMLT 


154 


PUTE6 




08E4 


9CD2 


CMLT 


155 






08E6 


1D25 


CMLT 


156 






08E8 


9CD4 


CMLT 


157 






08EA 


8344 


CMLT 


158 






30 70 


3002 


CMLT 


159 


PUTE7 




3072 


9C02 


CMLT 


160 






3074 


1002 


CMLT 


161 






3076 


3025 


CMLT 


162 


PUTE8 




3078 


9CD4 


CMLT 


163 


PUTE2 




307A 


8344 


CMLT 


164 






334E 


9C02 


CMLT 


165 


PUTE9 




3350 


3002 


CMLT 


166 






3352 


B076 


CMLT 


167 






236E 


3002 


CMLT 


168 


PUTEA 





NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 
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D0C^OO%i0+C 






RDH I 


AS,P-2 






TlC»Ti*IH-C 






TOC=TQ%IO+C 






RDH I 


AS, P-Z 






G1C=GUU+C 






GOC^GOSIQ+C 






PO=POnKQF 






RST S3 


129 


OUT CUT 


BR IF 


P07=i 


110 


ADDRQU 


BR IF 


S0=0 






SET S3 


110 


ADDROU 


BR IF 
RTN 


S0=1 


052 


CYCLE 


BR 




146 


PUTE1 


BR 




163 


PUTE2 


BR 




148 


PUTE3 


BR 




151 


PUTE4 


BR 




149 


PUTE5 


BR 




154 


PUTE6 


BR 




159 


PUTE7 


BR 




162 


PUTE8 


BR 




165 


PUTE9 


BR 




168 


PUTEA 


BR 




177 


PUTEB 


BR 




175 


PUTEC 


BR 




178 


PUTED 


BR 




172 


PUTEE 


BR 








SET S 


K=90 


109 


A0C1 


BAL 




052 


CYCLE 


BR 








SET S 


K=90 


109 


ADD1 


BAL 








RST S 


K=90 






P1=P1$K20 


109 


AD01 


BAL 




052 


CYCLE 


BR 








Pi=Pl$K20 


109 


A001 


BAL 








P1=P1*-K20 


110 


ADDROU 


BAL 




052 


CYCLE 


BR 








SET S 


K=90 


109 


ADD1 


BAL 








RST S 


K-90 






Pl=Pi$K20 


110 


ADDROU 


BAL 




052 


CYCLE 


BR 




109 


ADD1 


BAL 








SET S 


K=90 


162 


PUTE8 


BR 








SET S 


K=90 










+ 16 


OR 


1 


£32 


OR 


2 


+ 48 


OR 


3 


+6 4 


OR 


4 


♦ 80 


OR 


5 


+ 96 


OR 


6 


+ 112 OP 


t 7 


+128 OP 


I 8 


-112 OP 


L 7 


-96 


OR 


6 


-80 


OR 


5 


-64 


OR 


4 


-48 


OR 


3 


-32 


OR 


2 


-16 


OR 


1 



ADDR 


^lORD 


SEQUENCE NO. 


LA8EL 


NEXTSEQ 


NEXTLA8EL 


STATEMENT 


2370 


3D25 


CMLT 


169 








P1 = PUK20 


2 3 72 


9CD2 


CMLT 


170 




109 


A0D1 


BAL 


2374 


1D25 


CMLT 


171 








Pi-Pl*-K20 


2376 


3CC2 


CMLT 


172 


PLTEE 






SET S K=90 


2378 


9C04 


CMLT 


173 




110 


AODRQU 


BAL 


237A 


8344 


CMLT 


174 




052 


CYCLE 


BR 


07FC 


3002 


CMLT 


173 


PUTEC 






SET S K=90 


01ft 


B0F4 


CMLT 


176 




151 


PUTE4 


BR 


0690 


3C02 


CMLT 


177 


PUTEB 






SET S K=90 


0392 


9CD2 


CMLT 


178 


PUTEO 


109 


ADC1 


BAL 


394' 


3C02 


CMLT 


179 








SET S K=9G 


u396 


BCF4 


CMLT 


180 




151 


PUTE4 


BR 
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CMLT 


002 


CICY 


l c ,i 










CMLT 


006 


CMLT 


0C2 


CMLT 


009 






CMLT 


007 


CICY 


159 










CMLT 


009 


CMLT 


0C7 










CMLT 


014 


CICY 


175 










CML T 


015 


CMLT 


0C5 


CML? 


012 






CMLT 


C20 


CMLT 


017 










CMLT 


G23 


CMLT 


021 










CMLT 


027 


CFMO 


065 


CFMD 


075 






CMLT 


028 


CMLI 


037 










CMLT 


U38 


CMLT 


030 










CUT 


046 


CMLT 


Oti 










CMLT 


049 


CMLT 


046 










CMLT 


052 


CMLT 


130 


CMLT 


147 


CMLT 


153 CMLT 158 CMLT 164 


CUT 


056 


CMLT 


053 










CuLT 


G59 


CMLT 


048 


CMLT 


052 


CML* 


055 


CMLT 


061 


CFMU 


032 










CM LI 


064 


CMLT 


062 










CMH 


070 


CMLT 


065 


CMLT 


066 






CMLT 


079 


CMLT 


075 










CMLT 


081 


CMLT 


060 










CMLT 


098 


CMLT 


0S5 










CMLT 


099 


CMLT 


093 


CMLT 


096 


CMLT 


097 


CMLT 


100 


CMLT 


035 


CMLT 


036 






CMLT 


109 


CMLT 


069 


CMLT 


146 


CMLT 


149 CMLT 152 CMLT 155 


CMLT 


110 


CMLT 


126 


CMLT 


128 


CMLT 


157 CMLT 163 CMLT 173 


CMLT 


129 


CMLT 


125 










CMLT 


130 


CMLT 


051 


CMLT 


058 






CMLT 


146 


CMLT 


131 










CMLT 


148 


CMLT 


133 










CMLT 


149 


CMLT 


135 










CMLT 


151 


CMLT 


134 


CMLT 


176 


CMLT 


180 


CMLT 


154 


CMLT 


136 










CMLT 


159 


CMLT 


137 










CMLT 


162 


CMLT 


138 


CMLT 


167 






CMLT 


163 


CMLT 


132 










CMLT 


165 


CMLT 


139 










CMLT 


168 


CMLT 


140 











CMLT 174 



CMLT 160 CMLT 165 CMLT 170 CMLT 178 
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CMLT 172 CMLT 144 

CMLT 175 CMLT 142 

CMLT 177 CMLT 141 

CMLT 178 CMLT 143 
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CMPU DESCRIPTIVE TEXT 

LABEL. .SS0PF1 MOVE WITH OFFSET MOVE WITH OFFSET EXAMPLE 

STEP 

1..READ LOW SOURCE BYTE DESTINATION 79 56 87 84 3C 

2. •MOVE LOW 4 BITS OF SOURCE BYTE TO HIGH 4 BITS OF THE LOW BEFORE 

DESTINATION BYTE. THE LOW 4 BITS OF THE DESTINATION BYTE 

REMAIN UNCHANGED. SOURCE 64 72 63 75 91 85 29 76 

3. .CHECK TO SEE WHAT FIELD HAS ENDED, 

A. IF DESTINATION OR BOTH ENDED, RETURN TO I-CYCLES. 

. 

B. IF SOURCE HAS ENDED, STORE THE HIGH 4 BITS OF THE 
SOURCE BYTE IN THE LOW 4 BITS OF THE NEXT DESTINATION 
BYTE. FILL DESTINATION REMAINDER WITH ZEROES, RETURN 

TO I-CYCLES. .- 

. . 

C. IF NEITHER HAS ENOED, REAOOUT NEXT SOURCE BYTE, STORE DESTINATION AFTER 59 18 52 97 6C 
THE HIGH 4 BITS OF PREVIOUS SOURCE BYTE AS LOW 4 BITS 

IN DESTINATION BYTE. STORE LOW 4 BITS OF NEW SOURCE 
BYTE AS HIGH 4 BITS IN DESTINATION BYTE. 
RETURN TO STEP 3. 

LABEL. .SSOPF2 PACK PACK EXAMPLE 

SIEP 

SOURCE F6 F7 F2 F4 F9 C3 

1. .READOUT LOW SOURCE BYTE. CROSS DIGITS AND STORE AT LOW 

DESTINATION ADDRESS. DESTINATION BEFORE 00 CO 00 00 00 

2. .CHECK TO SEE WHAT FIELD HAS ENDED. DESTINATION AFTER 00 06 72 49 3C 

A. IF DESTINATION OR BOTH ENDED, RETURN TO I-CYCLES. 

B. IF SOURCE HAS ENDED, FILL REMAINING DESTINATION WITH 
ZEROES. 

C. IF NEITHER HAS ENDED, READOUT NEXT SOURCE BYTE. IF THIS 
BYTE ENDS SOURCE FIELD, FILL REMAINING DESTINATION WITH 
ZEROES, AFTER STORING LOW 4 SOURCE BITS. IF SOURCE DID 
NOT END, READOUT NEXT SOURCE BYTE, COMBINE LOW ORDER 
SOURCE DIGITS AND STORE AT NEXT HIGHER DESTINATION 
ADDRESS. RETURN TO STEP 2. 

LABEL..SS0PF3 UNPACK UNPACK EXAMPLE 

SOURCE 64 92 5C 

THE UNPACK INSTRUCTION IS ALMOST THE REVERSE OF PACK. PROPER 
ZONES ARE INSERTED IN DESTINATION BYTES FOR ALL SOURCE DIGITS. DESTINATION BEFORE 00 00 00 00 00 00 

ZONES ARE INSERTED WITH ZEROES WHEN FILLING IN DESTINATION FIELD 
WHEN SOURCE HAS ENDED. DESTINATION AFTER FO F6 F4 F9 F2 C5 



AODR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






CMPU 


001 


T 




PACK, 


,UNPACK, AND MOV; 






CMPU 


002 


* 










0186 


5B3A 


CMPU 


003 


SSQPF1 








ROB T 1 V-i 


01B8 


5F10 


CMPU 


004 










ROB HI U*0 


CUBA 


4BF3 


CMPU 


005 










Hl=TiXH+HlL 


OiBC 


5B7 5 


CMPU 


006 










D1=T1XL 


CUBE 


AE88 


CMPU 


007 




013 


STBYTE 




BR 


2E7E 


2 IF 5 


CMPU 


008 


SS0PF3 








D1=0$KF0 


2E80 


C904 


CMPU 


009 




Oil 


SS0PF2 




BR IF PI BIT 


2E82 


2755 


CMPU 


010 










D1=0$K50 


2E84 


5B3A 


CMPU 


Oil 


SS0PF2 








RDB Tl V-i 


2E86 


5BF1 


CMPU 


012 










H1=T1X 


2E88 


7F1A 


CMPU 


013 


STBYTE 








STB Hi U-l 


2E8A 


5559 


CMPU 


014 










G1 = G1 


2E8C 


8083 


CMPU 


015 




016 


HZLZ8R 


N 


N=DYN BITS67 


2900 


8023 


CMPU 


016 


H2LZBR 


020 


OP 


N 


N=GQ BITS67 


2902 


A932 


CMPU 


017 


HZLZBR 1 


028 


STDEST 




BR 


2904 


81B3 


CMPU 


018 


HZLZBR 2 


CICY 005 


ISTART 


N 


N = S BITS67 


2906 


61B3 


CMPU 


019 


HZLZBR 3 


CICY 005 


ISTART 


N 


N=S BITS67 


29 22 


81A6 


CMPU 


020 


OP 1 


032 


MWOS 




BR 


29 24 


AE12 


CMPU 


021 


OP 2 


037 


PACK 




BR 


2926 


5B3A 


CMPU 


022 


OP 3 








RDB Tl V-l 


2928 


4B70 


CMPU 


023 










D1=T1L+DIH 


292A 


771A 


CMPU 


024 










STB Dl U-l 


29 2C 


3510 


CMPU 


025 










GUG1-K10 


292E 


E087 


CMPU 


026 




019 


HZLZBR 


3 


BR IF HZ=0 


2930 


4B75 


CMPU 


02 7 










D1=T1XL$D1H 


2932 


771A 


CMPU 


02 8 


STDEST 








STB Dl U-l 


2934 


577B 


CMPU 


029 










01=01H 


2936 


25FD 


CMPU 


03 










G1=G1+KF0 


2938 


8C83 


CMPU 


031 




016 


HZLZBR 


N 


N=DYN BITS67 


01A6 


5B3A 


CMPU 


032 


MWOS 








RDB Tl V-i 


0IA8 


4B73 


CMPU 


033 










D1=T1XH+D1L 


01AA 


771A 


CMPU 


034 










STB Dl U-l 


01 AC 


5B75 


CMPU 


035 










D1=T1XL 


01AE 


AE1E 


CMPU 


036 




043 


HILOCT 




BR 


2E12 


5F3A 


CMPU 


03 7 


PACK 








R08 Hi V-l 


IE 14 


25FF 


CMPU 


038 










Gi=Gl*KFF 


2E16 


FC8F 


CMPU 


039 




045 


SOUENO 




BR IF LZ=0 


2E18 


5B3A 


CMPU 


040 










RDB Tl V-l 


2£ 1A 


4BF3 


CMPU 


041 










H1=T1XH+H1L 


2EIC 


7F1A 


CMPU 


042 










ST8 HI U-l 


2E1E 


3510 


CMPU 


043 


HILOCT 








G1=G1-K10 


2E20 


8083 


CMPU 


044 




016 


HZLZBR 


N 


N=DYN BITS67 


2E0E 


5F70 


CMPU 


045 


SOUENO 








D1=H1L 


2E10 


A932 


CMPU 


046 




028 


STDEST 




BR 














********************** 














* CROSS REFERENCE FOR 














********************** 



CLOAD=*E60, EC LEVEL = 1282U 
COMMENTS 

E WITH OFFSET 12/15/66 R* C- HUANG 

MOVE OFFSET, READ SOURCE SIGN 
READ DESTINATION SIGN BYTE 
SET UP THE SIGN BYTE 
SAVE HI HALF BYTE OF SOURCE 

UNPACK, SET UP FOR EBCDIC MODE 
4=0 BR ON NOT ASCII MODE 

SET UP FOR ASCII MODE 

PACK, READ SIGN BYTE 

CROSS SIGN BYTE 

STORE SIGN BYTE 

PUT LENGTH BYTE ON Z-BUSS 

BR ON HZ,LZ - ZERO LENGTH 

BR ON OP'S 

SOURCE ENDED 

DESTINATION ENDED 

BOTH ENDED 

MOVE WITH OFFSET 

PACK 

UNPACK, READ SOURCE 

UNPACK LO HALF BYTE 

STORE FIRST BYTE 

SUBTRACT HI, LO COUNT BY 1 

BR IF DESTINATION END 

UNPACK HI HALF BYTE 

STORE DESTINATION BYTE 

ZERO OUT NUMERIC 

SUBTRACT DEST COUNT 

BR ON HZ, LZ COUNT 

READ SOURCE 

SET UP THE BYTE 

STORE DESTINATION 

SAVE HI HALF BYTE FOR NEXT CYCLE 

GO TO SUBT HI, LO COUNT 

READ FIRST SOURCE BYTE 

SUBTRACT LOW COUNT BY 1 

BR IF SOURCE ENDED 

READ SECOND SOURCE BYTE 

PACK THE TWO BYTES 

STORE IT 

SUBT HI, LO COUNT BY 1 

BR ON HZ, LZ COUNT 

SOURCE ENDED, ZERO OUT HI HALF 

GO TO STORE I BR HZ 
************ 

CSECT CMPU * 
************ 



PAGE 127 



CMPU 003 
CMPU 008 
CMPU Oil 
CMPU 013 



CICY 242 

CICY 244 

CICY 243 

CMPU 0C7 



CMPU 009 



CL0A0=*E60, EC LE VEL*l-282 11 PAGE 128 
********************************** 

* CROSS REFERENCE FOR CSECT CMPU * 
********************************** 



CMPU 


016 


CMPU 


015 


CMPU 031 


CMPU 044 


CMPU 


019 


CMPU 


026 






CMPU 


020 


CMPU 


016 






CMPU 


028 


CMPU 


01? 


CMPU 046 




CMPU 


032 


CMPU 


020 






CMPU 


037 


CMPU 


021 






CMPU 


043 


CMPU 


036 






CMPU 


045 


CMPU 


039 







CL0AD=*E60 t EC LEVEL=1282 11 PAGE 129 



CNVR DESCRIPTIVE TEXT 









* ENTRY * OPERATION 

* * 

■* RX0P4E * CONVERT TO DEC. 

* RX0P4E * CONVERT TO BIN. 



* INSTRUCTION FORMAT * 

* BYTE 1 * BYTE 2 * BYTE 3 * BYTE 4 * 

* 4E * Rl X2 * B2 02 * 02 * 

* 4F * Rl X2 * B2 02 * D2 * 



OBJECTIVES 



CONVERT TO BINARY - 



•*- 






* * 



PRIOR FO ENTRY TO THIS ROUTINE, THE EFFECTIVE ADDRESS 
FOR THE SECOND OPERAND HAS BEEN CALCULATED IN THE CICY 
ROUTINE. 



CONVERT TO DECIMAL 



THE SECOND OPERAND IS CHANGED FROM / 
PACKED DECIMAL NUMBER TO A BINARY 
NUMBER AND PLACED IN THE GENERAL 
PURPOSE REGISTER SPECIFIED BY Rl. 
THE SECOND OPERAND IS CHECKED FOR 
VALID SIGN AND DIGIT CODES. 

THE FIRST OPERAND IS CHANGED FROM A 
SIGNED BINARY NUMBER TO A PACKED 
DECIMAL NUMBER AND PLACED IN THE 
SECOND OPERAND LOCATION. 



AuDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXT 


SEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






CNVR 


001 


T 


i 


CONVERT TO DECIMAL AND BINARY 


ROUTINES 






CNVR 


002 


* 
















CNVR 


003 


♦ 
















CNVR 


004 


♦ 


CONVERT TO DECIMAL 




29C4 


AB53 


CNVR 


005 


RX0P4E 


CICY 


045 


ADDERR N 


BR IF HI=NZ 




29C6 


0183 


CNVR 


006 










Z=U1*-K08 




29C8 


FOCD 


CNVR 


007 






009 


OKAY 


BR IF LZ=0 




29CA 


AE98 


CNVR 


0C8 




CICY 


059 


SPECHK 


BR 




29CC 


8DC2 


CNVR 


009 


OKAY 


CCOM 


057 


LSAVEA 


BAL 




29CE 


10CE 


CNVR 


010 










RST S K=FC 




29D0 


FC54 


CNVR 


on 






013 


RX4EA 


BR IF GO 7^=0 




29D2 


AAFA 


CNVR 


012 






058 


RXGP4F 


6R 




29D4 


ADB8 


CNVR 


013 


RX4EA 


CCOM 


020 


GETR1 


BAL 




29D6 


2BQ7 


CNVR 


014 










T1 = 


STORE FIRST 


29D8 


7A18 


CNVR 


015 










STH T U*2 


TWO ANS. BYTES 


29DA 


C660 


CNVR 


016 






019 


RX4EE 


BR IF D00=0 




29DC 


8AE0 


CNVR 


017 




CCOM 


076 


COMPL 


BAL 




29DE 


2040 


CNVR 


018 










SET S5 


SET MINUS 


29E0 


42A6 


CNVR 


019 


RX4EB 








V^T 




29E2 


44A6 


CNVR 


020 










G=T 




29E4 


48A6 


CNVR 


021 










I = T 




29E6 


2D 13 


CNVR 


022 










Pl=0SK0l 




29E8 


C66F 


CNVR 


023 






026 


L4EB 


BR IF D00=1 




29EA 


AD4E 


CNVR 


024 


L4EA 




039 


DOBBIN 


BAL 




29EC 


C66A 


CNVR 


025 






024 


L4EA 


BR IF D00=0 




29EE 


AD3C 


CNVR 


026 


L4EB 




030 


RX4EAA 


BAL 




29F0 


C66F 


CNVR 


027 


L4EC 




026 


L4EB 


BR IF D00=l 




29F2 


AD3E 


CNVR 


02 8 






031 


RX4EAB 


BAL 




29F4 


A9F0 


CNVR 


029 






027 


L4EC 


BR 




2U3C 


3915 


CNVR 


030 


RX4EAA 








I1=I1$K10 





AOOR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


203E 


ED50 


CNVR 


031 


RX4EAB 


046 


END 


BR IF P12=1 


2040 


C002 


CNVR 


032 








RST S3 


2042 


799F 


CNVR 


033 








nc-iiai i*c 


2044 


788F 


CNVR 


034 








I0C=I03I0*C 


21)46 


755F 


CNVR 


03 5 








GlOGldGl+C 


2048 


744F 


CNVR 


036 








G0C=G03G0+C 


2D4A 


73 3F 


CNVR 


037 








V1C=V13VH-C 


204C 


722F 


CNVR 


03 8 








V0C=V03V0+C 


2046 


6FFB 


CNVR 


03 9 


DOBBIN 






H1C=H1+H1 


2050 


6EED 


CNVR 


040 








H0C=H0+H0+C 


2db2 


6770 


CNVR 


041 








DiODUDH-C 


2054 


6660 


CNVR 


042 








D0C=D0+D0*C 


2056 


ED5D 


CNVR 


043 




046 


END 


BR IF P12=l 


2058 


2D IB 


CNVR 


044 








P1=P1+K01 


205A 


128E 


CNVR 


045 








RTN 


205C 


4686 


CNVR 


046 


END 






0=1 


205E 


9258 


CNVR 


047 




CCOM 066 


LRSTRB 


BAL 


2D60 


27CB 


CNVR 


048 








D1=D1+K0C 


2062 


C966 


CNVR 


049 




051 


NEXTCK 


BR IF P14=0 


2064 


176B 


CNVR 


050 








Dl=DinK06 


2066 


D1EA 


CNVR 


051 


NEXTCK 


053 


FINAL 


BR IF S5=0 


2068 


3713 


CNVR 


052 








D1=D1$K01 


206A 


7218 


CNVR 


053 


FINAL 






STH V U*2 


20 6C 


7418 


CNVR 


054 








STH G U*2 


2U6E 


7618 


CNVR 


055 








STH D U*2 


2070 


81B3 


CNVR 


056 




CiCY 005 


ISTART N 


N=S BITS67 






CNVR 


057 


* 


CONVERT TO BINARY 


2AFA 


2B83 


CNVR 


058 


RX0P4F 






T1=0$K08 


2AFC 


3B15 


CNVR 


C5 9 








T1=TUK10 


2AFE 


4EA6 


CNVR 


060 








H=T 


2600 


5718 


CNVR 


061 


LOOPAX 






ROB Di U + l 


2B02 


77EF 


CNVR 


062 








D1C=013H0*C 


2B04 


E589 


CNVR 


063 




065 


NOTSAV 


BR IF S2=l 


2$ 06 


5AE4 


CNVR 


064 








T = H*1 


2B08 


7 7E8 


CNVR 


065 


NOTSAV 






STB Di AStH+i 


2B0A 


OFFB 


CNVR 


066 








Z=H1QK0F 


2b0C 


FC80 


CNVR 


067 




061 


LGCPAX 


BR IF LZNZ 


2B0E 


5710 


CNVR 


068 








RD8 01 U 


2610 


573B 


CNVR 


069 








Vi = 01H 


2B12 


A4EC 


CNVR 


070 




CD MO 203 


SINSET 


BAL 


2614 


73AF 


CNVR 


071 








V1C=V13T0*C 


2616 


C19A 


CNVR 


072 




074 


QKFLD 


BR IF S4=0 


2618 


BC7C 


CNVR 


073 




CCOM 071 


FLGDEX 


BR 


26 iA 


7 3E0 


CNVR 


074 


GKFLD 






STB VI AS,H 


26 iC 


555B 


CNVR 


C75 








Gi-GiH 


26 IE 


3533 


CNVR 


076 








Gi=Gl$K03 


2B20 


10CE 


CNVR 


077 








RST S K=FC 


2B22 


E426 


CNVR 


078 




080 


PLSNUM 


BR IF G02=Q 


2824 


3002 


CNVR 


C79 








SET S K=90 


2B26 


2407 


CNVR 


080 


PLSNUM 






G0=0 


2B28 


29C7 


CNVR 


081 


CONTUE 






11 = 


2B2A 


C040 


CNVR 


082 








RST S5 


2B2C 


4EA6 


CNVR 


083 








H=T 



CL0AD=*E60, EC LEVEL=l2821i 

COMMENTS 



PAG€ 130 



SET NOT ASCII PLUS 

SET ASCII PLUS 

MAKE SIGN MINUS 
STORE 
RESULT 



STORE 
THE 
DECIMAL 
FIELD 
TN 
AUX 
STORAGE 
ANO 
FIND 
1ST 
SIG 
DIGET 
GO CHECK SIGN 



GO FLAG OATA EXCEP 

BUILO 
ANS 
REG ADDRESS 
BR IF PLUS 



INITIALIZE ZERO FLAG 



ADOR 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLAB 


EL STATEMENT 


2B2E 


22C7 


CNVR 


84 








V0 = 


2630 


50t0 


CNVR 


085 


RDBP1H 






ROB PI AS,H 


2b32 


50C5 


CNVR 


086 








PO^PIXL 


2834 


8270 


CNVR 


087 




123 


X10PLS 


BAL 


28 36 


527B 


CNVR 


088 








D1=V0H 


2B38 


OFFB 


CNVR 


089 








Z=HlaKOF 


283A 


F0E8 


CNVR 


090 




100 


LAB6 


BR IF LZNZ 


2B3C 


7'7EO 


CNVR 


091 








STB Di AS,H 


2B3E 


14FF 


CNVR 


092 








GO=GOQKFF 


2B40 


C4CA 


CNVR 


093 




098 


LA89 


BR IF ZNZ 


2842 


4203 


CNVR 


094 








U0=V0XHH10L 


2844 


79C0 


CNVR 


095 








I1C=I1SU0+C 


28 46 


794A 


CNVR 


C96 








STB 11 AS,G-1 


2848 


C14F 


CNVR 


097 




110 


OONENO 


BR IF G14=l 


284A 


5200 


CNVR 


098 


LAB9 






UO=VOL 


284C 


AB28 


CNVR 


099 




081 


CONTUE 


BR 


2B68 


5DCD 


CNVR 


100 


LAB6 






P0=P1L 


2B6A 


8270 


CNVR 


LOi 




123 


XiOPLS 


BAL 


2b6C 


4275 


CNVR 


102 








01=V0XLSD1H 


2B6E 


D1F5 


CNVR 


103 




106 


LAB7 


BR IF S5=l 


2B70 


C4F8 


CNVR 


104 




108 


LAWOPS 


BR IF ZNZ 


2B72 


5AA4 


CNVR 


105 








T = T*1 


2674 


77E8 


CNVR 


106 


LAB 7 






STB 01 AS»H+1 


2676 


AB30 


CNVR 


107 




085 


RDBP1H 


BR 


2378 


2040 


CNVR 


108 


LAViOPS 






SET S5 


2B7A 


AB74 


CNVR 


109 




106 


LAB7 


BR 


264E 


59F9 


CNVR 


110 


OONENO 






H1=I1 


2850 


9256 


CNVR 


111 




CCOM 065 


LRSTRA 


BAL 


2852 


C5DA 


CNVR 


112 




116 


LAB12 


BR IF S0=0 


2854 


E50C 


CNVR 


113 




117 


LAB13 


BR IF S2=0 


2856 


CF62 


CNVR 


114 




120 


LAB14 


BR IF H10=0 


2B58 


AB5C 


CNVR 


115 




117 


LAB13 


BR 


2B5A 


CF63 


CNVR 


116 


LAB12 


120 


LAB14 


BR IF H10=l 


2B5C 


47BB 


CNVR 


117 


LAB13 






T1=D1H+T1L 


2B5E 


OBFB 


CNVR 


118 








Z^TiaKOF 


2660 


C4E7 


CNVR 


119 




122 


LABU 


BR IF Z=0 


2862 


2B93 


CNVR 


120 


LAB14 






T1=0$K09 


2664 


SC70 


CNVR 


121 




BPSW 003 


PRQG 


BR 


2B66 


81B3 


CNVR 


122 


LABU 


CICY 005 


I START 


N N^S BITS67 


0270 


5220 


CNVR 


123 


X10PLS 






VO^VOL 


0272 


6223 


CNVR 


124 








V0=V0+V0 


0274 


5239 


CNVR 


125 








Vi = V0 


0276 


6223 


CNVR 


126 








VO=VO+VO 


0278 


6223 


CNVR 


127 








VQ=VO«-VO 


02 7A 


6233 


CNVR 


128 








V0=V0*V1 


02 7C 


62C3 


CNVR 


129 








VO=VO+PO 


0276 


128E 


CNVR 


130 








RTN 



CLQAD=*E60, EC LEVEL=128211 
COMMENTS 



PAGE 131 



BR IF NZ RESUT SO FAR 
SET NOT ZERO FLAG 



X2 

X4 
X8 
X1C 
PLUS 



ADOATIVE 



CLOAD=*E60, EC LEVEL*1282U PAGE 132 
********************************** 

* CROSS REFERENCE FOR CSECT CNVR * 
********************************** 



CNVR 


005 


CICY 


177 


CICY 


178 


CNVR 


009 


CNVR 


0C7 






CNVR 


013 


CNVR 


Oil 






CNVR 


019 


CNVR 


016 






CNVR 


024 


CNVR 


025 






CNVR 


026 


CNVR 


023 


CNVR 


02 7 


CNVR 


027 


CNVR 


029 






CNV,R 


030 


CNVR 


026 






CNVR 


031 


CNVR 


028 






CNVR 


039 


CNVR 


024 






CNVR 


046 


CNVR 


031 


CNVR 


043 


CNVR 


051 


CNVR 


049 






CNVR 


053 


CNVR 


051 






CNVR 


058 


CNVR 


012 






CNVR 


061 


CNVR 


067 






CNVR 


065 


CNVR 


063 






CNVR 


074 


CNVR 


072 






CiMVR 


080 


CNVR 


078 






CNVR 


081 


CNVR 


C99 






CNVR 


085 


CNVR 


1C7 






CNVR 


098 


CNVR 


093 






CNVR 


100 


CNVR 


OSO 






CNVR 


106 


CNVR 


103 


CNVR 


109 


CNVR 


108 


CNVR 


104 






CNVR 


110 


CNVR 


097 






CNVR 


116 


CNVR 


112 






CNVR 


117 


CNVR 


113 


CNVR 


1L5 


CNVR 


120 


CDVO 


099 


CNVR 


114 


L.NiVR 


122 


CNVR 


119 






CNVR 


123 


CNVR 


0£7 


CNVR 


101 



CNVR 116 



CSAS — DECIMAL ROUTINES 



CLGAD=*E60, EC LEVEL=128211 PAGE 133 



ENTRIES 

1. SSOPF8 

2. SSQPF9 - 

3. SSOPFA 

4. SSOPFB - 

OBJECTIVES 



DESCRIPTION CONTINUED 



- ZERO AND ADD 
COMPARE DECIMAL 

- ADD DECIMAL 

- SUBTRACT DECIMAL 



DECIMAL ADD OR SUBTRACT 



THE 2ND OPE 

ADDED OR CO 

CALLED THE 

CODE DETERM 

AS FOLLOWS. 
*********** 



* 1ST OPERA 

* 

* PLUS 

* MINLS 

* MINUS 

* PLCS 
*********** 



RAND, CALLED THE SOURCE FIELD, IS EITHER TRUE 
MPLEMENT ADDED TO THE 1ST OPERAND, WHICH IS 
DESTINATION FIELD. THE OPERAND SIGNS AND OP 
INE WHETHER TRUE OR COMPLEMENT ADD IS PERFORMED 

********************************************* 
SIGN . TRUE OR COMPLEMENT * 

ADD OP . SUBTRACT OP * 



ND 



2ND OPERAND 



PLUS 
PLUS 
MINUS 
MINLS 



TRUE 

COMPLEMENT 
TRUE 
COMPLEMENT 



COMPLEMENT * 

TRUE * 

COMPLEMENT * 

TRUE * 



********************************************* 



ZERO AND ADD 

THE 2ND OPERAND IS ADDED TO A VALUE OF ZERO AND PLACED 
IN THE 1ST OPERAND LOCATION* 

COMPARE DECIMAL 

THE 2ND OPERAND IS COMPARED WITH THE 1ST OPERAND, ANC THE 
RESULT OF THE COMPARISON IS INDICATED BY THE CONDITION 
CODE. COMPARISON IS RIGHT TO LEFT. 

DESCRIPTION 

THE ROUTINE PERFORMS THE DECIMAL OPERATION AS FOLLOWS 
i. FOR ADD OR ZERO AND ADD, SET TRUE ADD. 

FOR SUBTRACT OR COMPARE, SET COMPLEMENT ADD. 

2. READ LOW-ORDER BYTE OF 2ND OPERAND. TEST SIGN. IF 
SIGN IS INVALID, INITIATE PROGRAM INTERRUPT. 

3. LOOP BACK AND TEST SIGN OF 1ST OPERAND. THIS STEP 
IS NOT PERFORMED FOR ZERO AND ADO. 

4. ADD OR COMPLEMENT ADD 1ST DIGIT. 

5. SET PROPER SIGN. STORE 1ST BYTE AT 1ST OPERAND, 
DESTINATION FIELD, THEN STEP TO NEXT DESTINATION 
BYTE. RESULT IS NOT STORED IF COMPARE OP. 



6. 



7. 
8. 



9. 
10. 



READ NEXT SOURCE BYTE FROM 2ND OPERAND. 

READ NEXT DESTINATION BYTE FROM 1ST OPERAND. 

IF ZERO AND ADD, DESTINATION FIELD IS SET TO ZERO. 

ADD OR COMPLEMENT ADD THE TWO BYTES. 

STORE RESULT AT 1ST OPERAND DESTINATION FIELD, AND 

STEP TO NEXT DESTINATION BYTE. RESULT IS NOT STORED 

IF COMPARE OP. 

DECREMENT LENGTH. 

REPEAT STEPS 6 THROUGH 9 UNTIL EITHER DESTINATION OR 

SOURCE FIELD ENDS. 



SOURCE FIELD ENDS BEFORE DESTINATION FIELD 

SUPPLY ZEROES AS SOURCE DIGITS AND CONTINUE UNTIL 
DESTINATION FIELD ENDS. 

DESTINATION FIELD ENDS BEFORE SOURCE FIELD 

READ OUT REMAINING SOURCE DIGITS. ADD THEM TO ZERO 
AFTER CHECKING TRUE /COMPLEMENT STATUS AND THE CARRY FROM 
LAST ADD AS FOLLOWS. 

1. COMPLEMENT ADD AND CARRY. IF LAST ADD BEFORE 
DESTINATION FIELD ENDED WAS ZERO, FURTHER RESULTS 
MUST BE ZERO, OR AN OVERFLOW IS INDICATED. 

IF PREVIOUS RESULT WAS NOT ZERO, FURTHER RESULTS 
MUST BE NINES. 

2. COMPLEMENT ADD AND NO CARRY. RESULTS MUST BE NINES, 
OR AN OVERFLOW IS INDICATED. 

3. TRUE ADD AND CARRY. INDICATE OVERFLOW. 

4. TRUE ADO AND NO CARRY. INDICATE OVERFLOW IF FURTHER 

RESULTS ARE NOT ZERO. 

BOTH SOURCE AND DESTINATION FIELD ENDED 

1. IF INVALID DATA, INITIATE PROGRAM INTERRUPT. 

2. RECOMPLEMENT RESULT IF THE FOLLOWING CONDITIONS ARE 
PRESENT WHEN FIELDS END. 

A. COMPLEMENT ADD, NO CARRY, AND NOT A COMPARE OP. 

B. TRUE ADD, NO CARRY, ALU ZERO, MINUS SIGN STATUS, 
AND NOT A COMPARE OP. 

RESULT IS RECOMPLEMENTED, STARTING AT LOW-ORDER BYTE. 
SIGN OF RESULT IS INVERTED. 

3. SET CONDITION CODES ANO RETURN TO I-CYCLES. 



ADOR 



WORD SEQUENCE NO, 



114C 
1146 

1150 
1152 
1154 
1156 
1158 
115A 
115C 
U5E 
1160 
1162 
1164 
1166 
1168 
116A 
116C 
116E 
1170 
1172 
1174 
1176 
1178 
117A 
117C 
117E 
1180 
1182 
1184 
1186 
1188 
118A 
118C 
USE 
1190 
1192 
1194 
1196 
1198 
119A 
119C 
1196 
11A0 
11A2 
11A4 
11A6 
11A8 
UAA 



3443 
1082 
2E15 
5 73A 
5760 
0661 
E0F3 
0CC4 
F366 
07FB 
FCE7 
C5F5 
3042 
CC7C 
007B 
148B 
57FB 
5710 
9154 
BC7C 
1002 
2040 
9166 
1002 
57 7B 
77FF 
C905 
272B 
0188 
271B 
27AB 
F035 
771A 
55B9 
EOE'B 
F0A6 
27C7 
2EF3 
D02A 
2FC7 
91AC 
7F1A 
75E3 
EOEB 
F095 
573A 
001B 
5F10 



CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 
CSAS 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
02 
021 
022 
02 3 
024 
025 
026 
027 
028 
029 
030 
031 
012 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 



LABEL 

T 
* 

ASEQ 
SS0PF8 
SSOPFA 
STUPDC 

TSTSGN 



NEXfSEQ NEXTLABEL STATEMENT 



CL0AD=*E60 f EC LEVEL=12821l 

COMMENTS 
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DECIMAL ADO, SUBTRACT, COMPARE, AND ZERO AND ADD 



OPERAND 
OPERAND 



AODRESS IS IN U 
ADORESS IS IN V 



HI IS 
01 IS 



Z ERO 
ZERO 



TO IS ZERO 



ALQ7^4C 



ISPLUS 



NOSIGN 
ISCOMP 



ZAPFST 

ENDSGN 



ISA SCI 
DSPLUS 

TSTLGT 

ENOSOR 

ZRODST 

STORED 
DECLGT 

MORSOR 
RDDEST 



025 NOSIGN 



019 ISPLUS 



019 
026 

030 
029 



010 
CCOM 071 



085 
051 



085 
042 



ISPLUS 
ISCOMP 

ENOSGN 
ZAPFST 



TSTSGN 
FLGDEX 



019 ISPLUS 



034 ISASCI 



036 DSPLUS 



058 DECCMP 



DESTND 
MORSOR 



053 RDDEST 



054 COMPUT 



DESTNO 
ENDSOR 



045 ZRGDSf 



G0=G0$K04 

RST S K=98 

HO^OIKIO 

RDB Dl V-l 

D0=DIL 

Z^D0+K06 

BR IF HZ=0 

RST S K=2C 

BR IF Dl BIT7=0 

Z-DlaKOF 

BR IF DYN BIT7^l 

BR IF S0=1 

SET S K=94 

BR IF GO BIT4=0 

BR IF GO BIT5~l 

G0=G0nK08 

H1=D1H 

RDB Dl U+0 

BR 

BR 

RST S K=90 

SET S5 

BR 

RST S K=90 

01*01H 

D10D13HU-C 

BR IF PI BIT 4=1 

DL*D1*K02 

BR IF S5=0 

Dl«Dl*KOi 

D1=D1«-K0A 

BR IF GO BIT7=1 

STB Dl U-l 

Tl=Gl 

BR IF HZ=0 

BR IF LZNZ 

DUO 

H0=0$K0F 

BR IF GO BIT5=0 

H1=0 

BR 

STB HI U-i 

G1*G1-H0 

BR IF HZ^=0 

BR IF LZ=0 

RDB Dl V-l 

BR IF GO BIT5=1 

RDB HI U+0 



ZERO AND ADD 

RESET S0,S3,S4 ADD 
SET UP DECREMENT 
READ 1ST 2ND OP BYTE 



RESET S2,S4,S5 
TEST FOR PLUS A,C,E 
TEST FOR F 
TEST FOR PLUS 
TEST FOR COMP ADD 

SET SO, S3,S5 
SIGN TEST IS OVER 
BR IF ZERO AND ADD 
INVERT G04 
STRIP SIGN 
READ 2ND OPERAND BYTE 



SET UP FOR TRUE ADD 



RESET SO, S3 
STRIP SIGN 
ADD FIRST CHAR 
BR IF ASCII 

BR IF PLUS 



TEST FOR COMPARE 



TEST FOR DEST END 
TEST FOR SOURCE LEFT 



A DDK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


liAC 


7F7F 


CSAS 


054 


COMPUT 






HiC=Hl3Di*C 


UAfc 


F01E 


CSAS 


055 




047 


STORED 


BR IF GO 8IT7=0 


11B0 


50C6 


CSAS 


056 








U = U-1 


1L82 


91A0 


CSAS 


057 




048 


DECLGT 


8R 


1184 


50C6 


CSAS 


058 


DECCMP 






U=U-1 


11B6 


918E 


CSAS 


059 




039 


TSTLGT 


BR 


11B8 


1413 


CSAS 


060 


SSOPFB 






G0=G0*-K01 


11BA 


3002 


CSAS 


61 


SS0PF9 






SET S K=90 


11BC 


9150 


CSAS 


062 




008 


STUPDC 


BR 


USE 


573A 


CSAS 


063 


CGMPAD 






RDB 01 V-l 


11CO 


F5D1 


CSAS 


064 




072 


COMPGO 


8R IF S3=l 


UC2 


7A7F 


CSAS 


065 








T0C=T03D1+C 


11C4 


1A9F 


CSAS 


066 


TSTNIN 






T0=T0aK99 


11C6 


C4F9 


CSAS 


067 




092 


OKSOFA 


BR IF Z^O 


11C8 


G0C2 


CSAS 


068 








RST S3 


11CA 


1415 


CSAS 


069 


SETOVF 






G0=G0*-K10 


11CC 


2AC7 


CSAS 


070 








T0=0 


11CE 


91F8 


CSAS 


71 




092 


OKSOFA 


BR 


1100 


E5D9 


CSAS 


072 


COMPGD 


076 


KYBEGK 


BR IF S2=i 


1102 


7A7F 


CSAS 


073 








T0C=T0aDU-C 


1104 


C4F9 


CSAS 


74 




092 


OKSOFA 


BR IF Z=0 


1106 


91CA 


CSAS 


075 




069 


SETOVF 


BR 


1108 


7A7F 


CSAS 


076 


MYBEOK 






TQC=T0S)0UC 


UDA 


F5Ei 


CSAS 


077 




080 


STLCKA 


BR IF S3=i 


HOC 


E445 


CSAS 


078 




066 


TSTNIN 


BR IF GO BIT2=1 


UDE 


91CA 


CSAS 


079 




069 


SETOVF 


BR 


UEO 


1420 


CSAS 


080 


SFLGKA 






G0=G0aK20 


11E2 


91F8 


CSAS 


081 




092 


GKSOFA 


BR 


11E4 


77AF 


CSAS 


82 


TRUCAR 






01C=Dl<dT0+C 


11E6 


91F6 


CSAS 


83 




091 


GVFLAA 


BR 


UE8 


9172 


CSAS 


084 


NOOSIN 


025 


NOSIGN 


BR 


11EA 


FOFD 


CSAS 


085 


DESTNO 


094 


ALLENO 


BR IF LZ=0 


ilEC 


C5BF 


CSAS 


086 


MOROST 


063 


CGMPAD 


BR IF S0=1 


liEE 


573A 


CSAS 


087 








ROB 01 V-l 


UFO 


F5E5 


CSAS 


088 




082 


TRUCAR 


BR IF S3=i 


11F2 


77AF 


CSAS 


089 








DlC=DiaT0*C 


Uf4 


C4F9 


CSAS 


090 




092 


CKSOFA 


BR IF Z=0 


11F6 


2002 


CSAS 


091 


OVFLAA 






SET S3 


11F8 


25FF 


CSAS 


092 


OKSOFA 






Gi=Gl+KFF 


UFA 


FOEC 


CSAS 


093 




086 


MOROST 


BR IF LZNZ 


UFC 


C1E9 


CSAS 


094 


ALLEND 


084 


NOOSIN 


BR IF S4=l 


llf€ 


C591 


CSAS 


C95 


ALENDH 


104 


ALENDB 


BR IF S0=1 


1200 


F589 


CSAS 


096 




100 


ALENCA 


BR IF S3=l 


1202 


E58B 


CSAS 


097 


ALENDE 


101 


ALENOC 


BR IF S2=l 


1204 


0101 


CSAS 


098 




136 


ALENDI 


BR IF S5=l 


1206 


A8DC 


CSAS 


099 


ALENDJ 


CICY 003 


CHECKX 


BR 


1208 


F03C 


CSAS 


100 


ALENOA 


126 


ALENDG 


BR IF GO BIT7=0 


120A 


018F 


CSAS 


101 


ALENOC 


103 


ALENOO 


BR IF S5=l 


120C 


ACA4 


CSAS 


102 




CLOG 052 


0P95A 


BR 


120E 


AC84 


CSAS 


103 


ALENOD 


CLOG 050 


0P95C 


BR 


1210 


F583 


CSAS 


104 


ALENOB 


097 


ALENOE 


BR IF S3^1 


12 12 


FC47 


CSAS 


105 




131 


ALENDF 


BR IF GO BIT7=1 


1214 


5B85 


CSAS 


106 


RECGMP 






T1=T1XL 



CLQAD**E60, EC LEVEL=1282U 
COMMENTS 
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SUBTRACT RST G07 

COMPARE SET C0MP&S3 



ADD* 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0A0=*E60t 
COMMENTS 



EC LEVEL=128211 PAG£ 116 



1216 


61B9 


CSAS 


107 








U1C^UI*T1«-1 


1218 


6CAD 


CSAS 


108 








U0C=U0+T0*C 


121A 


5710 


CSAS 


109 








ROB 01 U>0 


121C 


57F8 


CSAS 


110 








Hl^DlH 


121E 


3002 


CSAS 


111 








SET S K=90 


1220 


5770 


CSAS 


112 








01=D1L 


1222 


171B 


CSAS 


113 








Dl=DlnK01 


1224 


7AFF 


CSAS 


114 








T0C=T03HH-C 


1226 


67A3 


CSAS 


115 








D1=D1+T0 


1228 


771A 


CSAS 


116 








STB 01 U-l 


122A 


5BA9 


CSAS 


117 








T0=T1 


122C 


C4BB, 


CSAS 


118 




125 


RCMPOV 


BR IF Z=0 


1226 


5710 


CSAS 


119 


NXTCHR 






ROB Oi U«-0 


1230 


757F 


CSAS 


120 








G1C=G1301«-C 


1232 


751A 


CSAS 


121 








STB Gl U-l 


1234 


2 5C7 


CSAS 


122 








Gi=0 " 


1236 


2AFF 


CSAS 


123 








T0=T0+KFF 


1238 


C4AE 


CSAS 


124 




119 


NXTCHR 


BR IF ZNZ 


123A 


F447 


CSAS 


125 


RCMPOV 


131 


ALENDF 


BR IF G03»i 


123C 


2C75 


CSAS 


126 


ALENDG 






P0=0$K70 


123fc 


0D43 


CSAS 


127 




129 


DEOVFL 


BR IF Pi BITl-l 


1240 


A8DE 


CSAS 


128 




CICY 004 


CHECK 


BR 


12 42 


2BA3 


CSAS 


129 


DEOVFL 






T1*0$K0A 


1244 


9C70 


CSAS 


130 




BPSW 003 


PROG 


BR 


1246 


D1C0 


CSAS 


131 


ALENOF 


134 


INVSNB 


BR IF S5=l 


124d 


2C40 


CSAS 


132 








SET S5 


124A 


9202 


CSAS 


133 




097 


ALENDE 


BR 


12 4C 


CC40 


CSAS 


134 


INVSNB 






RST S5 


124E 


9202 


CSAS 


135 




097 


ALENDE 


BR 


1250 


F0C7 


CSAS 


136 


ALENDI 


099 


ALENDJ 


BR IF GO BIT7=i 


1232 


92 14 


CSAS 
CSAS 


137 

138 


AENO 


106 


RECCMP 


BR 



SET CC 3 



OECIMAL OVERFLOW 



********************************** 

* CROSS REFERENCE FOR CSECT CSAS * 
********************************** 



CSAS 


006 


CICY 


249 


CSAS 


007 


CICY 


251 


CSAS 


008 


CSAS 


062 


CSAS 


010 


CSAS 


024 


CSAS 


019 


CSAS 


014 CSAS 016 


CSAS 


025 


CSAS 


012 CSAS 084 


CSAS 


026 


CSAS 


017 


CSAS 


029 


CSAS 


020 


CSAS 


030 


CSAS 


019 


CSAS 


034 


CSAS 


032 


CSAS 


036 


CSAS 


034 


CsAS 


039 


CSAS 


059 


CSAS 


042 


CSAS 


050 


CSAS 


045 


CSAS 


052 


CSAS 


047 


CSAS 


055 


CSAS 


048 


CSAS 


057 


CSAS 


051 


CSAS 


041 


CSAS 


053 


CSAS 


044 



CSAS 028 
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********************************** 

* CROSS REFERENCE FOR CSECT CSAS * 
********************************** 



CSAS 


054 


CSAS 


046 






CSAS 


058 


CSAS 


037 






CSAS 


060 


CICY 


252 






CSAS 


061 


CiCY 


250 






CSAS 


063 


CSAS 


066 






CSAS 


066 


CSAS 


078 






CSAS 


069 


CSAS 


075 


CSAS 079 




CSAS 


072 


CSAS 


064 






CSAS 


076 


CSAS 


72 






CSAS 


080 


CSAS 


077 






CSAS 


082 


CSAS 


088 






CSAS 


084 


CSAS 


0S4 






CSAS 


085 


CSAS 


040 


CSAS 049 




CSAS 


086 


CSAS 


0S3 






CSAS 


091 


CSAS 


083 






CSAS 


092 


CSAS 


067 


CSAS 071 CSAS 074 CSAS 


081 CSAS 090 


CSAS 


094 


CSAS 


0£5 






CSAS 


097 


CSAS 


104 


CSAS 133 CSAS 135 




CSAS 


099 


CSAS 


136 






CSAS 


100 


CSAS 


096 






CSAS 


101 


CSAS 


097 






CSAS 


103 


CSAS 


101 






CSAS 


104 


CSAS 


095 






CSAS 


106 


CSAS 


137 






CSAS 


119 


CSAS 


124 






CSAS 


125 


CSAS 


118 






CSAS 


126 


CSAS 


ICO 






CSAS 


129 


CSAS 


127 






CSAS 


131 


CSAS 


105 


CSAS 125 




CSAS 


134 


CSAS 


131 






CSAS 


136 


CSAS 


09 8 







CSFT — SHIFT ROUTINES 
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ENTRIES 

I. RSQP89 — 

RSQP8B — 

RS0P8D — 

RSOP8F — 

RS0P88 ~ 

RS0P8A — 

RS0P8C — 

RSOP8E — 

OBJECTIVES 



SHIFT LEFT LOGICAL 
SHIFT LEFT ALGEBRAIC 
SHIFT LEFT DOUBLE LOGICAL 
SHIFT LEFT DOUBLE ALGEBRAIC 
SHIFT RIGHT LOGICAL 
SHIFT RIGHT ALGEBRAIC 
SHIFT RIGHT DOUBLE LOGICAL 
SHIFT RIGHT DOUBLE ALGEBRAIC 

ALL SHIFTS 



OBTAIN BINARY VALUE OF THE 2ND OPERAND EFFECTIVE ADDRESS 
LOW-ORDER 6 BITS* THEN SHIFT THE 1ST OPERAND EITHER LEFT 
OR RIGHT THAT AMOUNT, 

DESCRIPTION 



DESCRIPTION CONTINUED 

AFTER THE COUNT IS SET UP f THE -LEFT1- SUBROUTINE 
LOOPS UNTIL THE COUNT IS REDUCED TO ZERO. THEN THE 
RIGHT SHIFT OF 4 IS DONE BY THE -RIGHT4- SUBROUTINE. 

SHIFT COMPLETE. THIS SECTION OF THE ROUTINE STORES THE 
RESULT BACK INTO THE 1ST OPERAND. FOR LOGICAL SHIFTS, 
THE MICROPROGRAM RESTORES SAVED REGISTERS AND RETURNS 
TO l-CYCLES. FOR ALGEBRAIC SHIFTSt SO IS TESTED TO 
DETERMINE IF AN OVERFLOW OCCURRED. FOR SHIFT OVERFLOW, 
THE SIGN IS INVERTED AND STORED, AND THE MICROPROGRAM 
EXITS TO SET CONDITION CODE 3. IF NO OVERFLOW, THE 
MICROPROGRAM SETS THE CONDITION CODE ACCORDING TO THE 
SIGN AND WHETHER THE RESULT IS ZERO OR NON-ZERO. THE 
SAVED REGISTERS ARE RESTOREDt AND THE MICROPROGRAM 
RETURNS TO I-CYCLES. 



THE OPERANDS ARE FETCHED, THEN THE OP CCOE IS TESTED. FOR 
ALGEBRAIC SHIFTS WITH NEGATIVE GPERANO, A REGISTER IS SET 
TO FF FOR EXTENDING THE SIGN. THE HIGH-ORDER BITS OF THE 
SHIFT-COUNT FIELD ARE HANDLED FIRST. THESE BITS REPRESENT 
SHIFTS OF 32, 16, AND 8. THE -SHIFT8- SUBROUTINE IS 
EXECUTED THE NUMBER OF TIMES NEEDED TO ACCOMPLISH ANY OF 
THE HIGH-ORDER SHIFTS. 

AFTER THE HIGH-ORDER SHIFTS ARE COMPLETED, THE CP CODE 
IS TESTED FOR RIGHT OR LEFT SHIFT. THEN THE SHIFTS FOR 
THE LOW-ORDER 3 BITS OF THE COUNT FIELD ARE HANDLED. 
THESE BITS REPRESENT SHIFTS OF 4, 2, AND 1. 

LEFT SHIFT I THROUGH 7. THE -LEFTl- SUBROUTINE IS USED. 
THIS SUBROUTINE SHIFTS I BIT, THEN DECREMENTS THE LOW- 
ORDER COUNT. THE SUBROUTINE LOOPS UNTIL THE COUNT IS 
REOUCEO TO ZERO. 

RIGHT SHIFT 1 THROUGH 7. IF A RIGHT SHIFT OF 4 IS NEEDED, 
IT IS HANDLED BY THE — RIGHT4- SUBROUTINE. THEN THE 
BITS REPRESENTING 8 AND 4 ARE RESET IN THE COUNT. THE 
BITS REPRESENTING 2 AND 1, FOR SHIFTS OF THROUGH 3 
ARE HANDLED AS FOLLOWS. 



LOW 2 BITS OF COUNT 
00 DONE. GO 



TO SHIFT COMPLETE 



01 SET COUNT TO 3. RIGHT 

10 COUNT OKAY. RIGHT 

11 SET COUNT TO 1. RIGHT 



1 EQUALS 3 LEFT MINUS 

2 EQUALS 2 LEFT MINUS 

3 EQUALS I LEFT MINUS 



RIGHT. 
RIGHT. 
R I GHT . 



SUBROUTINES 

-SHIFT8-. THIS SUBROUTINE HANDLES BOTH RIGHT AND LEFT 
SHIFTS. SHIFT RIGHT 8 IS ACCOMPLISHED BY A STRAIGHT 
MOVE OF EACH BYTE- SOURCE REGISTER TO THE NEXT ADJACENT 
REGISTER ON THE RIGHT. VACATED HIGH-ORDER BITS ARE 
FILLED FROM A REGISTER THAT CONTAINS BITS LIKE THE 
ORIGINAL SIGN. 

SHIFT LEFT 8 IS ACCOMPLISHED BY A STRAIGHT MOVE OF 
EACH BYTE-SOURCE REGISTER TO THE NEXT ADJACENT REGISTER 
ON THE LEFT. ANY CHANGE IN SIGN IS AN OVERFLOW AND 
MUST BE REMEMBERED TO SET CONDITION CODE 3 FOR ALGEBRAIC 
SHIFTS. 

-LEFT1-. SHIFT LEFT 1 IS ACCOMPLISHED BY ADDING EACH 
BYTE TO ITSELF, SAVING CARRIES. SIGN CHANGE IS STORED 
BY SETTING SO TO INDICATE OVERFLOW. 

-RIGHT4-. EACH HALF BYTE IS CROSSED INTO THE NEXT 
ADJACENT HALF-BYTE ON THE RIGHT. 



ADOR 


WORD 


SEQUENCE NO. 


LABEL 






CSFT 


001 


T 






CSFT 


002 


* 






CSFT 


003 


* 






CSFT 


004 


* 






CSFT 


005 


* 






CSFT 


006 


♦ 






CSFT 


007 


♦ 






CSFT 


008 


* 






CSFT 


009 


* 






CSFT 


010 


* 






CSFT 


Oil 


* 






CSFT 


012 


* 






CSFI 


013 


* 


18F4 


10CE 


CSFT 


014 


SHIFT 


1BF6 


7CC2 


CSFT 


015 




18F8 


5109 


CSFT 


016 




1BFA 


55BB 


CSFT 


017 




1BFC 


5EA8 


CSFT 


018 




1BFE 


56AA 


CSFT 


019 




1C00 


00 CE 


CSFT 


020 




1C02 


F5C8 


CSFT 


021 




1C04 


5CC2 


CSFT 


022 




1C06 


AE98 


CSFT 


023 




1C08 


3B15 


CSFT 


024 


NOSP 


1COA 


52A8 


CSFT 


025 




iCOC 


50AA 


CSFT 


026 




1COE 


E016 


CSFT 


027 


START 


ICiO 


CE16 


CSFT 


028 




1C12 


2AF7 


CSFT 


029 




1C14 


2040 


CSFT 


030 




1C16 


5QC9 


CSFT 


031 


LOGPOS 


1C18 


6CC3 


CSFT 


032 




1C1A 


1C85 


CSFT 


033 




iCIC 


E0A5 


CSFT 


034 




ICiE 


B29A 


CSFT 


035 


BAL 


1C20 


2CFD 


CSFT 


036 




1C22 


EC9E 


CSFT 


037 




1C24 


F02F 


CSFT 


038 


NOB 


1C26 


D92A 


CSFT 


03 9 




1C28 


B04C 


CSFT 


040 




1C2A 


1DC3 


CSFT 


041 


N04 


1C2C 


8975 


CSFT 


042 








CSFT 


043 


* 






CSFT 


044 


* 






CSFT 


045 


* 


1AEO 


9C34 


CSFT 


046 


LOW 


1AE2 


202B 


CSFT 


04 7 


LOW 1 


1AE4 


9AE8 


CSFT 


048 


LOW 2 


1AE6 


1023 


CSFT 


049 


LOW 3 


1AE8 


A460 


CSFT 


050 


BALRL 


IAEA 


B04C 


CSFT 


051 




1AEC 


9C34 


CSFT 


052 








CSFT 


053 


* 



NEXTSEQ NEXTLABEL STATEMENT 

SHIFT ROUTINES 
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COMMENTS 



027 START 
024 NOSP 

CICY 059 SPECHK 



031 LOGPOS 
031 LOGPOS 



038 NOB 

129 SH1FT8 

035 BAL 

054 LEFT 

041 NQ4 

107 RIGHT4 

046 LOW N 

RIGHT 1=3L-4R 

057 SHFTCC 

050 BALRL 

087 LEFT1 

107 RIGHT4 

057 SHFTCC 



ALL 8 SHIFTS START AT THE FIRST WORD OF THIS ROUTINE 
OOUBLE SHIFT DATA IS IN H,D,V,U 

SINGLE SHIFT DATA IS IN H,D 

ORIGINAL SIGN EXPANDED TO 8 BITS =T0 
COUNT FOR LOOPS IS IN PO OR Pi 

NO OF BIT POSITIONS TO BE SHIFTED IS IN PI 
S5=0RIG SIGN- , SO USED FOR OVERFLOW 
********** 



RST S K=FC 
STH P 0A f B8 
P1=U1 
T1=G1H 
RDH H AS,T+2 
RDH D AS, T-2 
BR IF G05^0 
BR IF G13=0 
ROH P DA,B8 
BR 

Ti=Ti$K10 
RDH V AS,T+2 
RDH U AS, T-2 
BR IF G06=0 
BR IF H00=0 
TO=0$KFF 
SET S5 
P0=P1 
P0 = PO*PO 
P0=P0*-K80 
BR IF HZ^O 
BAL 

P0=P0*KF0 
BR IF HZNZ 
BR IF G07=l 
BR IF P15=0 
BAL 

P1=P1*-K0C 
N=Pi BITS67 
************* 

** RIGHT 2=2L 
LOW ORDER BIT 

BR 

Pl=Pi+K02 

BR 

Pi=Pl*-K02 

BAL 

BAL 

BR 
************* 



SAVE SHIFT COUNT 
GET Rl 



BR IF SHORT 
BR IF Rl EVEN 
RESTORE P 

GET SECOND HALF 
OF 
DOUBLE OPERAND 
BR IF LOGICAL OP 
BR IF ♦ 
EXTEND - SIGN 
REMEMBER NEG 
MOVE SHIFT COUNT 
MOVE THE 32,16,8 CTS LEFT ONE 

BR IF NO 32,16 OR 8 SHIFT 
SHIFT ONE BYTE LEFT OR RIGHT 
DEC HI COUNT 

BREAK OUT LEFT SHIFTS 
BR IF NO RIGHT 4 



******** 

-4R ** R IGHT 3=1L-4R 

S MUST BE CORRECTED 

NO 1,2 OR 3 RIGHT SHIFT 
Rl=3L-4R FIX Pl=3 
R2=2L-4R Pl^OK 
R3^1L-4R FIX Pi 



******** 



ADDR 

1C2E 
1C30 
1C32 
1C34 
1C36 
1C38 
iC3A 
1C3C 
1C3E 
1C40 
1C42 
IC44 
1C46 
1C48 
1C4A 
1C4C 
1C4E 
1C50 
IC52 
1C54 
1C56 
1C58 
1C5A 
1C5E 
1C60 
1C62 
IC64 
1C66 
1C68 
1C6A 
IC6C 
1C5C 

2460 
2462 
2464 
2466 
2468 
246A 
2 46C 
246E 
2470 
2*72 
2474 
24 76 
2*78 
247A 
24 7C 
247E 



WORD SEQUENCE NO. 



ID 8 3 
FQB5 
A460 
2AC7 
5CC2 
0040 
72A8 
70AA 
1B15 
7EA8 
76AA 
E049 
A80E 
F058 
C508 
56A0 
16£5 
D1D4 
3685 
76A0 
AC40 
CE5E 
A91A 
0008 
4EE6 
4666 
D06A 
4226 
4CC6 
D5D0 
A80C 
ACA4 

0002 
D06C 
611B 
600D 
633D 
622D 
6770 
666D 
6FF0 
6EE0 
E4F8 
3000 
6AAD 
2DFB 
FOEO 
128E 



CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 



054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
C71 
072 
073 
074 
075 
076 
077 
78 
079 
080 
081 
082 
083 
084 
085 
86 
087 
088 
089 
090 
091 
G92 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 



LABEL 
LEFT 

SHFTCC 



SHST 



NEXTSEQ 



057 
087 



NEXTLABEL STATEMENT 



ALG 



CSIGN 
NGINT 
POS 



SHORT 

CC2 

LEFT1 



SHORT 1 



SKIPST 



067 

CICY 004 

075 

075 



CLST Oil 

077 

CLOG 082 



085 
CICY 003 
CLOG 052 



SHFTCC 
LEFT1 



063 SHST 



ALG 
CHECK 
NO I NT 
NO I NT 



073 CSIGN 



SHFTOV 

POS 

SETNZ 



083 SHORT 



CC2 

CHECKX 
0P95A 



093 SHORT 1 



099 SKIPST 



087 LEFT! 



Pl=Pi*-K08 
BR IF LZ=0 

BAL 

T0=0 

ROH P DA f B8 

BR IF G05=0 

SfH V AS,T*2 

STH U AS,T-2 

T1=T1*-K10 

STH H AS,T+2 

STH D AS,T-2 

BR IF G06=l 

BR 

BR IF G07=0 

BR IF S0=0 

RDH AS,T+0 

D0=D0*-K80 

BR IF S5=0 

D0=D0$K8O 

STH D AStT*0 

BR 

BR IF H00=0 

BR 

RST SI 

H=H 

C=D 

BR IF GO 5^0 

V = V 

U=U 

BR IF Sl=l 

BR 

BR 

*** LEFT 1 ROUTINE 
RST S3 
BR IF G05=0 
U1C=U1«-U1 
UQC=U0+U0+C 
VlO=Vl*Vi+C 
V0C=VO*V0+C 
D1C=DH-DUC 
D0C=D0*D0*C 
H1C=H14-HH-C 
H0C=H0+H0+C 
BR IF NOVFL 
SET SO 
TOC=TO+TO+C 
Pl=Pi*KOF 
BR IF LZNZ 
RTN 
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COMMENTS 

REMOVE HI BIT 

DO LEFT SHIFT 1 THRU 7 PLACES 
REMOVE EXT SIGN 
RESTORE MASK 

STORE 

LOW 
OOUBLE 
STORE 
SINGLE OR HI OOUBLE 

LOGICAL GO BACK 
BR IF RIGHT-NO OVF CHECK 
LEFT ALG CHECK OVF 
HAVE OVF FIX SIGN 
MAKE SIGN ♦ 
BR IF ORIGINAL SIGN ♦ 
MAKE SIGN - 
STOR CORRECT SIGN 



CC 1 - 

TEST 

HI 
BR IF SINGLE 
TEST 
LOW OOUBLE 

CCC 

*** 



SHIFT 
LEFT 
ONE 
BIT 



SAVE CARRY FOR RIGHT SHIFTS 

DEC COUNT 



*** RIGHT 



ROUTINE *** 



ADOR 


WORD 


SEQUENCE NO. 


LABEL 


304C 


D05E 


CSFT 


107 


RIGHT4 


3U4E 


5115 


CSFT 


108 




3J50 


4013 


CSFT 


109 




3052 


5C05 


CSFT 


110 




3054 


4303 


CSFT 


111 




3056 


5335 


CSFT 


112 




3058 


4233 


CSFT 


113 




305A 


5225 


CSFT 


114 




30 5C 


4 723 


CSFT 


115 




305E 


5775 


CSFT 


116 


R4SH0R 


3060 


4673 


CSFT 


117 




3062 


5665 


CSFT 


118 




3064 


4F63 


CSFT 


119 




3066 


5FF5 


CSFT 


120 




3068 


4EF3 


CSFT 


121 




306A 


5EE5 


CSFT 


122 




306C 


4AE3 


CSFT 


123 




306E 


128E 


CSFT 


124 








CSFT 


125 


* 






CSFT 


126 


* 






CSFT 


127 


* 






CSFT 


128 


* 


3 29A 


F001 


CSFT 


129 


SHIFT8 


329C 


DU26 


CSFT 


130 




32 9E 


5019 


CSFT 


131 




32AO 


5309 


CSFT 


132 




32A2 


5239 


CSFT 


133 




32A4 


5729 


CSFT 


134 




32A6 


5679 


CSFT 


135 


SHORTR 


32A8 


5F69 


CSFT 


136 




32AA 


5EF9 


CSFT 


137 




32AC 


5AE9 


CSFT 


138 




32AE 


128E 


CSFT 


139 




3280 


6EA1 


CSFT 


140 


LEFT8 


HQZ 


C48C 


CSFT 


141 




3284 


D18A 


CSFT 


142 




32 £6 


CFOF 


CSFT 


143 




3288 


3C00 


CSFT 


144 




32 8 A 


CFOfc 


CSFT 


145 


PLUS 


328C 


3C00 


CSFT 


146 


OVf SET 


328E 


5FE9 


CSFT 


147 


OK 


3290 


56F9 


CSFT 


148 




32 92 


5769 


CSFT 


149 




3294 


QC31 


CSFT 


150 




3296 


2707 


CSFT 


151 




3298 


128E 


CSFT 


152 




32B0 


5279 


CSFT 


153 


L0NGL8 


32B2 


5329 


CSFT 


154 




32B4 


5039 


CSFT 


155 




32B6 


5109 


CSFT 


156 




32B8 


2107 


CSFT 


157 




32BA 


128E 


CSFT 


158 





NEXTSEQ NEXTLABEL STATEMENT 



CLQAD=*E60 t EC LEVEL=128211 

COMMENTS 



PAGE 141 



116 R4SH0R 



140 LEFT8 
135 SHORTR 



146 
145 
147 



OVFSET 
PLUS 

OK 



147 OK 



153 L0NGL8 



BR IF G05=0 

U1=U1XL 

U1=U0XH+U1L 

UQ=U0XL 

U0=V1XH+U0L 

V1=V1XL 

V1=V0XH+V1L 

V0=V0XL 

V0=D1XH+V0L 

D1=D1XL 

D1=Q0XH+D1L 

DQ=D0XL 

D0=H1XH*D0L 

H1=H1XL 

HI=H0XH+H1L 

HO=HOXL 

H0=T0XH*H0L 

RTN 



** COMMON SHIFT 
BR IF GO 7=1 
BR IF G05 = 
U1=U0 
U0=V1 
Vi=V0 
V0=D1 
01 = 00 
00=H1 
Hi=H0 
HO = TO 
RTN 

HO=HOaTO 
BR IF ZNZ 
BR IF S5=0 
BR IF H10=l 
SET SO 
BR IF H10=0 
SET SO 
H0 = H1 
HUOO 
00 = 01 

BR IF G05=l 
01=0 
RTN 
0i=V0 
V0=V1 
V1=U0 
U0=U1 
Ul=0 
RTN 



R IGHT AND LEFT 
BR IF LEFT SHIFT 
THIS IS RIGHT8 

SHIFT 

RIGHT 

ONE 



*** 



BYTE 



SHIFT 



CHECK HI 8 BITS FOR SIGN CHANGE 



ORiG SIGN-BR IF NEW SIGN- 
OR IG SIGN-NEW SIGN+REMBER OVF 
BR IF NEW SIGN BIT ♦ 
REMEMBER OVERFLOW 
SHIFT 

LEFT 

ONE 
BYTE 
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********************************** 

* CROSS REFERENCE FOR CSECT CSFT * 
********************************** 



CSFT 014 CICt 050 

CSFT 024 CSFT 021 

CSFT 027 CSFT 020 

CSFT 031 CSFT 02? CSFT 028 

CSFT 035 CSFT 037 

CSFT 038 CSFT 034 

CSFT 041 CSFT 039 

CSFT 046 CSFT 042 

CiFT 050 CSFT 048 

CSFT 054 CSFT 038 

CSFT 057 CSFT 046 CSFT 052 CSFT 055 

CSFT 063 CSFT 059 

CSFT 067 CSFT 065 

CSFT 073 CSFT 071 

CSFT 075 CSFT 067 CSFT 068 

CSFT 077 CSFT 075 

CSFT 083 CSFT 080 

CSFT 085 CSFT 083 

CSFT 087 CSFT 050 CSFT 056 CSFT 101 

CSFT 093 CSFT 088 

CSFT 099 CSFT 0S7 

CSFT 107 CSFT 040 CSFT 051 

CSFT 116 CSFT 1C7 

CSFT 129 CSFT 035 

CSFT 135 CSFT 130 

CSFT 140 CSFT 129 

CSFT 145 CSFT 142 

CSFT 146 CSFT 141 

CSFT 147 CSFT 143 CSFT 145 

CSFT 153 CSFT 150 
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CSTS — STATUS SWITCHING INSTRUCTIONS 
tNTRIES 



RS0P82 — LOAO PSW RS0P93 

RSGP80 — SET SYSTEM MASK RROP04 - 

RSGP83 — DIAGNOSE RROPOA 

RROP08 — SET STORAGE KEY RS0P84 - 

RROP08 — INSERT STORAGE KEY RSOP85 

OBJECTIVES 



TEST AND SET 

- SET PROGRAM MASK 

- SUPERVISOR CALL 

- WRITE DIRECT 

- READ DIRECT 



GENERAL, 



LOAD PSW 



THE FOLLOWING TESTS ARE MADE If APPLICABLE TO 

INSTRUCTION BEING EXECUTED. 

U CHECK THAT ADDRESS DOES NOT EXCEED 16 BITS. 

2. IF PRIVILEGED OP, TEST FOR SUPERVISOR STATE. 

3. CHECK ADDRESS BOUNDARY. 



THE DOUBLE-WORD AT THE LOCATION DESIGNATED BY THE 
EFFECTIVE OPERAND ADORE SS REPLACES THE PSW. 

TFE MICROROUTINE TESTS FOR ERRORS, THEN BRANCHES TO THE 

-BPSW- ROUTINE TO LOAD THE PSW. 

SET SYSTEM MASK 

THE BYTE AT THE 2ND OPERANO EFFECTIVE ADDRESS REPLACES 
THE SYSTEM MASK, BITS 0-7, OF THE CURRENT PSW* 

AFTER TESTING FOR ERRORS, THE ROUTINE READS THE 2ND 
OPERAND. THE NEW MASK BYTE IS PLACED IN THE SYSTEM MASK 
REGISTER -SM- AND IN AUXILIARY STORAGE LOCATION 0OA8. 

DIAGNOSE 

THE DIAGNOSE INSTRUCTION PROVIDES A MEANS OF GOING 
DIRECTLY TO A SPECIFIC MICROINSTRUCTION. THE ADDRESS OF 
THIS MICROINSTRUCTION IS GIVEN IN THE OPERAND OF THE 
DIAGNOSE INSTRUCTION. 

THE OPERAND EFFECTIVE ADDRESS IS STORED IN AUXILIARY 
STORAGE LOCATION ODBC. THEN THIS ADDRESS IS READ FROM 
AUXILIARY STORAGE INTO THE BACKUP-ZONE I-REG. AFTER 
THE L.S. ZONE IS SET BACK TO 0, A RETURN WORD IS EXECUTED. 
THIS CAUSES THE BACKUP I-REG TO BE USED TO ADDRESS THE 
NEXT MICROINSTRUCTION. 

SET STORAGE KEY 

SET THE STORAGE-PROTECT KEY FOR THE PROGRAM-STORAGE BLOCK 
ADDRESSED BY R2. 



THE ROUTINE READS THE BLOCK ADDRESS AND KEY. NEXT THE 
KEY IS PUT IN THE Q-REG USING STPO MNEMONIC. THEN, THE 
KEY IS STORED IN STP1 AT THE SPECIFIED BLOCK ADORESS. 
BEFORE RETURNING TG I-CYCLES, THE CPU KEY IS RESTORED. 

INSERT STORAGE KEY 

READ THE STORAGE-PROTECT KEY FOR THE PROGRAM-STORAGE BLOCK 
ADDRESSED BY R2, AND SET IT IN Rl. 

THE ROUTINE READS THE BLOCK ADDRESS FROM R2. NEXT, THE 
KEY IS READ FROM STP1 INTO THE Q-REG. THE KEY IS PUT 
INTO Rl, TEEN THE CPU KEY IS RESTORED. 

TEST AND SET 

TEST THE HIGH-ORDER BIT OF THE BYTE AT THE EFFECTIVE 
ADDRESS, AND SET THE CONDITION CODE. 

THE ROUTINE READS THE ADDRESSED BYTE, THEN TESTS THE 
HIGH-ORDER BIT FOR I. IF THE BIT IS 1, CONDITION CODE 1 
IS SET. IF THE BIT IS 0, CONDITION CODE IS SET. 

SET PROGRAM MASK 

BITS 2-7 OF Rl REPLACE THE CONDITION CODE AND THE PROGRAM 
MASK BITS OF THE CURRENT PSW. 

THE CONDITION CODE IS SET IN PO AND THE PROGRAM MASK 
IS SET IN PI. 

SUPERVISOR CALL 

THIS INSTRUCTION CAUSES A SUPERVISOR-CALL INTERRUPTION. 
THE INTERRUPT CODE IS SUPPLIED IN BYTE 2 OF THE 
INSTRUCTION. 

THE MICROPROGRAM SETS UP A POINTER TO THE SVC OLD PSW, 
THEN BRANCHES TO THE LOAD PSW ROUTINE. 

WRITE DIRECT 

THE BYTE AT THE LOCATION DESIGNATED BY THE OPERAND 
ADDRESS IS MADE AVAILABLE AS A SET OF DIRECT-OUT STATIC 
SIGNALS. INSTRUCTION BITS 8-15 ARE MADE AVAILABLE AS 
SIGNAL-OUT TIMING SIGNALS. 

READ DIRECT 

A DIRECT-IN DATA BYTE IS ACCEPTED FROM AN EXTERNAL DEVICE 
IN THE ABSENCE OF A HOLD SIGNAL AND IS PLACED IN THE 
LOCATION DESIGNATED BY THE OPERAND ADDRESS. INSTRUCTION- 
BITS 8-15 ARE MADE AVAILABLE AS SIGNAL-OUT TIMING SIGNALS. 



ADOR 



WORD SEQUENCE NCL 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60 f EC LEVEL=128211 

COMMENTS 



PAGE 144 







CSTS 


001 


T 


STATU 


s swim 


UN 


IG INSTRUCTIONS 












CSIS 


002 


♦ 
















2B7E 


AB53 


CSTS 


003 


RSOP82 


CICY 045 


ADDERR 


N 


BR IF Hl^NZ 


LOAD PSW 






2B80 


F90D 


CSTS 


004 




020 


0P80A 




djpIF P17=l 


OPERATION 






2B82 


C183 


CSTS 


005 










Z=U1*-K08 


CODE 






2884 


FC88 


CSIS 


006 




009 


0P82A 




BR IF LZNZ 


EXECUTION 






2B86 


9C9A 


CSTS 
CSTS 


007 

008 


* 


BPSW 024 


LPSW 




BR 








2B88 


AE98 


CSTS 


009 


0P82A 


CICY 059 


SPECHK 




BR 












CSTS 


010 


* 


SET SYSTEM MASK 










2BC2 


AB53 


CSTS 


Oil 


RSGP80 


CICY 045 


ADDERR 


N 


BR IF H1=NZ 


SET SYSTEM 






2BC4 


F900 


CSTS 


012 




020 


0P80A 




BR IF P17*l 


MASK 






2BC6 


5710 


CSIS 


013 










RDB 01 U 


OP 






2BC8 


447F 


CSJS 


014 










SNNDl 


CODE 






2BCA 


7782 


CSTS 


015 










STB Dl DA,A8 


EXECUTION 






2BCC 


81B3 


CSTS 
CSTS 


016 
017 


0P8IA 

* 


CICY 005 


ISTART 


N 


N*S BITS67 












CSTS 


018 


♦ 


DIAGNOSE INSTRUCTION 








2B8A 


F938 


CSTS 


019 


RSOP83 


029 


0P83A 




BR IF P17*0 








2B8C 


835A 


CSIS 


020 


OP 80 A 


CICY 068 


PRIVOP 




BR 


PR IV OP 






2BB8 


70E2 


CSIS 


029 


0P83A 








STH U DA,BC 


DIAGNOSE 






2BBA 


2440 


CSTS 


031 










SET MODE K=04 








2BBC 


58E2 


CSTS 


032 










RDH I DA, BC 








2BBE 


2400 


CSTS 


033 










SET MODE K=00 








28C0 


128E 


CSTS 


034 










RTN 












CSIS 


035 


* 


RROPS 08-SET 


KEY AND 09 INSERT KEY 


SHARE THIS ROUTINE 






2B8E 


F900 


CSTS 


039 


RR0P08 


020 


0P80A 




BR IF P17«l 


CHECK PRIV- OP 






2B90 


* 55B3* 


CSTS 


040 










TUG1XH 


PUT R2 ADDRESS IN 


Tl 




2B92 


5EA8 


CSTS 


041 










RDH H AS,T*2 








2B94 


AB53 


CSTS 


042 




CICY 045 


ADDERR 


N 


BR IF Hl^NZ 








2B96 


50AA 


CSTS 


043 










RDH U AStT-2 


GET BLOCK ADDRESS 






2B98 


HOD 


CSTS 


044 










Ul=UlnKOO 








2B9A 


FC88 


CSTS 


045 




009 


GP82A 




BR IF LZNZ 


CHECK FOR SPEC ERROR 




28 9C 


55BB 


CSTS 


046 










T1=G1H 


GET Rl 






2B9E 


3B3 3 


CSTS 


047 










T1«T1$K03 


Ti-XXXXOOll 






2BAO 


F02F 


CSTS 


048 




055 


INSERT 




BR IF G07=i 


BR IF INSERT KEY 






2BA2 


57A0 


CSTS 


049 










RDB Dl AS,T*0 


THIS IS SET KEY-KEY IS 


IN D1H 


2BA4 


17F3 


CSIS 


050 










D1=D1*-K0F 


Dl=KKKOOOO 






2BA6 


427F 


CSTS 


051 










STP0=01 








2BA8 


53 1C 


CSIS 


052 










SSK STPl U*l 








2BAA 


A7FA 


CSTS 


053 


DONE 


CCOM 181 


RSTRKY 




BAL 


RESTORE CPU KEY 






28AC 


81B3 


CSTS 


054 




CICY 005 


ISTART 


N 


N=S BITS67 








2BAE 


52 1C 


CSTS 


055 


INSERT 








ISK STPO U*2 


READ KEY 






2BBQ 


527F 


CSTS 


056 










Dl^STPO 








2BB2 


17F3 


CSTS 


057 










D1=D1*-K0F 








2BB4 


77A0 


CSTS 


058 










STB Ot AS,T*0 


STORE KEY IN BITS 


24-27 


OF Rl 


2BB6 


ABAA 


CSTS 
CSTS 

CSTS 


059 
061 
062 


* 
ATA8LE 


053 
ADDR-0AD4 


DONE 




BR 


GO TO RESTORE CPU 


KEY 




OA04 


8ACA 


CSTS 


063 




066 


RDSWCH 




BAL 








UAD6 


7098 


CSTS 


064 










STH U 1*2 








OAD8 


A8DE 


CSTS 


065 




CICY 004 


CHECK 




BR 








OADA 


500F 


CSJS 


066 


RDSWCH 








UO=SHAB 


READ 
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ADD* 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


OADC 


511F 


CSTS 


067 










Ui=SWCD 


SWITCHES 


OACE 


128E 


CSTS 
CSTS 


068 
069 


AEND 








RTN 


ROUTINE 






CSIS 


070 


* 


TEST AND SET 








2E6C 


AB53 


CSTS 


071 


RSOP93 


CICY 045 


ADDERR 


N 


BR IF Hi=NZ 


TEST 


2E6E 


2FF7 


CSTS 


72 










H1=0$KFF 


AND 


2E70 


5710 


CSTS 


73 










RDB Dl U 


SET 


2E72 


7F10 


CSTS 


074 










STB HI U 


EXECUTION 


2E74 


C77A 


CSTS 


C75 




078 


QP93A 




BR IF 010=0 




2E76 


2C55 


CSTS 


076 










P0=0$K50 




2E78 


81B3 


CSIS 


U77 




CICY 005 


ISTART 


N 


N=S BITS67 




2t7A 


2CC5 


CSTS 


078 


0P93A 








P0=0$K00 




2E7C 


8 IB 3 


CSTS 
CSTS 


C79 

080 


* 


CICY 005 


ISTART 


N 


N=S BITS67 








CSTS 


081 


♦ 


SET PROGRAM MASK 






2E36 


55BB 


CSIS 


082 


RR0P04 








T1=G1H 


SET 


2E38 


5EA0 


CSIS 


083 










RDH H AS,T 


PROG 


2E3A 


4EQ3 


CSTS 


084 










P1 = H0XH*P1L 


MASK 


2E3C 


5EC8 


CSTS 


085 










P0=H0H 


EXECUTION 


2E3E 


1CC5 


CSTS 


086 










P0=P0*-KC0 




2E40 


FC44 


CSTS 


087 




089 


0P04A 




BR IF P0 3=0 




^E42 


3CA5 


CSTS 


C88 










P0=P0$K40 




2E44 


7CC2 


CSTS 


89 


OP04A 








STH P DA,B8 




2E46 


81B3 


CSTS 
CSIS 


090 

091 


* 


CICY 005 


I START 


N 


N=S BIFS67 








CSTS 


092 


* 


SUPERVISOR CALL 






18F6 


5569 


CSTS 


093 


RROPOA 








T1 = G1 


SUPERVISOR 


13F8 


2125 


CSTS 


094 


SVC 








U1=0$K20 


CALL 


18FA 


2FC7 


CSIS 


095 


PICKUP 








H1 = 


EXECUTION 


18FC 


2 17B 


CSTS 


096 










U1 = UH-K07 




18FE 


9C76 


CSTS 
CSTS 


097 
098 


* 


BPSW 006 


ENTRY 




BR 








CSTS 


099 


* 




* DIRECT 


CONTROL OPS 




33U2 


F901 


CSTS 


104 


RS0P84 


118 


PRIVOP 




BR IF PI BIT7=l 


WRITE DIREDT OPERATION 


3304 


5310 


CSTS 


105 










RDB VI U 


GET DATA TO SEND 


3 306 


495F 


CSTS 


106 










JA=G1 


SET SIGNAL OUT 


33U8 


473F 


CSTS 


107 










J0=V1 


SEND DATA TO BUSS OUT 


.34 A 


A8DE 


CSTS 


108 




CICY 004 


CHECK 




BR 


RETURN TO NEXT INSTRUCTION 


J30C 


F9C1 


CSTS 


109 


RSOP85 


118 


PRIVOP 




BR IF PI BIT 7=1 


READ DIRECT OPRRATION 


330E 


495F 


CSTS 


no 










JA=G1 


SET SIGNAL OUT 


3 3 10 


3F0C 


CSTS 


III 










SET CPF K=80 


SET READ ENABLE 


3 312 


CC92 


CSTS 


112 


HQLDIN 


112 


HOLDIN 




BR IF DYN BIT4=0 


WAIT FOR HOLD IN TO FALL 


3314 


585F 


CSTS 


113 










G1 = JI 


READ DATA FROM BUSS IN 


33 16 


1F00 


CSIS 


114 










RST CPF K=80 


RESET READ ENABLE 


3 318 


15FF 


CSTS 


115 










Gl=GlnKFF 


INVERT DATA 


331A 


7510 


CSIS 


116 










STB Gl U 


STORE DATA 


33 1C 


A8DE 


CSTS 


117 




CICY 004 


CHECK 




BR 


RETURN TO NEXT INSTRUCTINN 


3300 


B35A 


CSTS 


118 


PRIVOP 


CICY 068 


PRIVOP 




BR 


GO TO PRIVALEGE OP INTERRUPT 



uSTS 


003 


CICY 


1S7 


CSTS 


009 


CSTS 


0C6 


CSIS 


Oil 


CICY 


195 


LSTS 


019 


CICY 


198 


CSTS 


20 


CSTS 


0C4 


CSTS 


029 


CSTS 


019 


CSTS 


039 


CICY 


130 


CSTS 


053 


CSTS 


059 


CSTS 


055 


CSIS 


048 


CSTS 


066 


CSTS 


063 


CSTS 


071 


CICY 


2C6 


CSTS 


078 


CSIS 


075 


CSTS 


082 


CICY 


126 


CSTS 


089 


CSIS 


Ofc7 


CSTS 


093 


CICY 


122 


CSTS 


095 


8MCK 


019 


CSTS 


104 


CICY 


199 


CSTS 


109 


CICY 


2C0 


CSTS 


112 


CSTS 


112 


CSTS 


118 


CSTS 


104 



CLQAD = *£60t EC LEVEL=1282H PAGE 146 
********************************** 

* CROSS REFERENCE FOR CSECT CSTS * 
**** ************* ***************** 



CSTS 045 

CSTS 012 CSTS 039 
CICY 131 

OCLL 015 OCtL 037 



CSTS 1C9 



CL0AD=*E60, EC LEVEL=1282 11 PAGE 147 



CTKT — TRANSLATE, TRANSLATE AND TEST, EDIT, EDIT AND MARK 
ENTRIES 



TRANSLATE, TRANSLATE AND TEST 
EDIT, EDIT AND MARK 



SSOPDC — 
SSOPOE — 

OBJECTIVES 

TRANSLATE 



THE BYTES OF THE 1ST OPERAND ARE USED AS ARGUMENTS TO 
REFERENCE THE LIST DESIGNATED BY THE 2ND OPERAND ADDRESS, 
EACH FUNCTION BYTE SELECTED FROM THE LIST REPLACES THE 
CORRESPONDING ARGUMENT IN THE 1ST OPERAND, 

THE BYTES OF THE 1ST OPERAND ARE SELECTED ONE BY ONE 
FOR TRANSLATION, PROCEEDING LEFT TO RIGHT, UNTIL THE 1ST 
OPERAND FIELD IS EXHAUSTED- 



TRANSLATE AND TEST 

THE BYTES OF THE 1ST 
REFERENCE THE LIST DES 
EACH FUNCTION BYTE THU 
THE CONTINUATION OF IH 
BYTE IS ZERO, THE OPER 
TRANSLATING THE NEXT A 
BYTE IS NONZERO, THE 
THE RELATED ARGUMENT A 
GENERAL REGISTER 1, AN 
THE LOW-ORDER BYTE OF 



PERAND ARE USED AS ARGUMENTS TO 
IGNATED BY THE 2ND OPERAND ADDRESS* 
S SELECTED FROM THE LIST DETERMINES 
E OPERATION. WHEN THE FUNCTION 
ATION PROCEEDS BY FETCHING AND 
RGUMENT BYTE, WHEN THE FUNCTION 
PERATION IS COMPLETED BY INSERTING 
DURESS IN THE LOW-ORDER 24 BITS OF 
D BY INSERTING THE FUNCTION BYTE IN 
GENERAL REGISTER 2. 



EDIT 

THE FORMAT OF THE SOURCE, 2ND OPERAND, IS CHANGED FROM 
PACKED TO ZONED AND IS MODIFIED UNDER CONTROL OF THE 
PATTERN IN THE 2ND OPERAND. 

DURING THE EDITING PROCESS, EACH CHARACTER OF THE 
PATTERN IS AFFECTED AS FOLLOWS* 

1. IT IS LEFT UNCHANGED. 

2. IT IS REPLACED BY THE 1ST CHARACTER IN THE PATTERN 
CALLED THE FILL CHARACTER. 

3. IT IS REPLACED BY A SOURCE DIGIT EXPANDED TO ZONED- 
FORMAT. 

WHICH ACTION TAKES PLACE IS DETERMINED BY — THE TYPE 
OF PATTERN CHARACTER, THE SIGNIFICANCE INDICATOR, AND 
WHETHER THE SOURCE DIGIT IS ZERO. 

PATTERN CHARACTERS 

OOIO 0000 DIGIT SELECTOR. FILL CHARACTER OR ZONED DIGIT 
REPLACES THE SOURCE DIGIT DEPENDING ON SOURCE 
DIGIT AND SIGNIFICANCE INDICATOR. 

0010 0001 SIGNIFICANCE STARTER. SAME AS DIGIT SELECTOR, 
EXCEPT CAN START SIGNIFICANCE. 

0010 0010 FIELD SEPARATOR. FILL CHARACTER REPLACES 

SOURCE DIGIT, AND SIGNIFICANCE INDICATOR IS 
TURNED OFF. 

OTHER — MESSAGE CHARACTER. THESE CHARACTERS REMAIN 
UNCHANGED OR ARE REPLACED BY THE FILL 
CHARACTER DEPENDING ON SIGNIFICANCE INDICATOR. 

EDIT AND MARK 

SAME AS EDIT. IN ADDITION, THE ADDRESS OF THE 1ST 
SIGNIFICANT RESULT DIGIT IS INSERTED IN BITS 8-31 OF 
GENERAL REGISTER 1. 



ADDR 



WORD SEQUENCE NO. 



LABEL 







CTRT 001 


T 






CTRT 002 


* 


2D7C 


AB53 


CTRT 003 


SSOPDC 


2D7E 


2607 


CTRT 004 




2D80 


2EC7 


CTRT 005 


NXTCHR 


2082 


5F10 


CTRT 006 




2D84 


6F3B 


CTRT 007 




20 a 6 


6E2D 


CTRT 008 




2D88 


6670 


CTRT 009 





NEXTSEQ NEXTLABEL STATEMENT 

TRANSLATE AND TRANSLATE AND TEST 

CICY 045 ADCERR N BR IF H1=NZ 

D0=0 
H0=0 

RDB HI U 
H1C=HI+V1 
H0C=H0+V0+C 
DOOOO + Dl+C 



COMMENTS 

C.V.PERKINS 
BR IF INVALID ADDER 



READ ARGUMENT BYTE 
CALCULATE 
SECOND 

OPERAND 



ADUR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


2D8A 


A253 


CTRT 


010 




CICY 


045 


AOOERR N 


BR IF DO=NZ 


2U8C 


5FF0 


CTRT 


Oil 










RDB HI H 


2D8E 


F019 


CTRT 


012 






017 


TRT 


BR IF G07=l 


2090 


7F18 


CTRT 


013 










STB HI U*l 


2092 


25FF 


CTRT 


014 










Gi^Gi+KFF 


2094 


F481 


CTRT 


015 






005 


NXTCHR 


BR IF AC=1 


2D96 


81B3 


CTRT 


016 




CICY 


005 


ISTART N 


N=S BITS67 


2D98 


AB13 


CTRT 


017 


TRT 




022 


NQNZRO N 


BR IF H1=NZ 


2Q9A 


5004 


CTRJ 


018 










u=u+i 


2D9C 


2 5FF 


CTRT 


019 










Gl=Gl+KFF 


209E 


F481 


CTRT 


020 






005 


NXTCHR 


BR IF AC=1 


2DA0 


A8DC 


CTRT 


021 




CICY 


003 


CHECKX 


BR 


29 80 


2B33 


CTRT 


022 


NLNZRO 








Tl=0$K03 


2982 


2B20 


CTRT 


023 










Tl = Tl+K20 


2984 


7FA0 


CTkT 


024 










STB HI AS,T 


2986 


2BFD 


CTRT 


025 










T1=T1*KF0 


2988 


70AA 


CTRT 


026 










STH U AS,T-2 


298A 


27C7 


CTRT 


02 7 










Di = 


298C 


?7A0 


CTRT 


028 










STB Dl AS,T 


298E 


25FF 


CTRT 


02 9 










G1=G1+KFF 


2990 


F495 


CTRT 


030 






032 


CDE1 


BR IF AC=1 


2992 


ACA4 


CTRI 


031 




CLOG 


052 


0P95A 


BR 


2994 


AC 84 


CTRT 


032 


C0E1 


CLOG 


050 


CP95C 


BR 


29F8 


AB53 


CTRT 


033 


SSOPDE 


CICY 


045 


AODERR N 


BR IF H1=NZ 


29FA 


14A3 


CTRT 


034 










GO=GO*-KOA 


29FC 


5569 


CTRT 


035 










DO = Gi 


29FE 


25F5 


CTRI 


036 










G1=0$KF0 


2A00 


C904 


CTRT 


037 






039 


EBCDIC 


BR IF PI BIT4*0 


2A02 


2555 


CTRT 


038 










Gi=0$K50 


2A04 


5B10 


CTRT 


039 


EBCDIC 








RDB Tl U+0 


2A06 


5BF9 


CTRT 


040 










Hl=Tl 


2A08 


0F2D 


CTkT 


041 


TSTPAT 








Z=HlnK20 


2A0A 


EC96 


CTRT 


042 






048 


NOPAT 


BR IF HZNZ 


2A0C 


F0B9 


CTRT 


043 






065 


DIGSEL 


BR IF LZ=0 


2A0E 


CFiB 


CTRT 


044 










Z=H laKOl 


2A10 


FCB7 


CTRT 


045 






064 


SIGST 


BR IF LZ=Q 


2A12 


CF2B 


CTRT 


046 










Z=HlnKG2 


2A14 


F0B1 


CTRT 


047 






055 


FLDSEP 


BR IF LZ=0 


2A16 


E01B 


CTRT 


04 8 


NOPAT 




050 


NOFILL 


BR IF GO BIT6=l 


2A18 


7B10 


CTRT 


04 9 


FILL 








STB T 1 U*0 


2A1A 


5004 


CTRT 


050 


NOFILL 








U=U*1 


2A1C 


26FF 


CTRT 


051 


NEXT 








D0=00+KFF 


2A1E 


F4A4 


CTRT 


052 






058 


FINISH 


BR IF AC=0 


2A20 


5F10 


CTRT 


053 










RDB HI U+0 


2A22 


AAC8 


CTRT 


054 






041 


TSTPAT 


BR 


2A30 


1427 


CTRT 


055 


FLDSEP 








G0=G0*-K22 


2A32 


344 3 


CTKT 


056 










GG=G0$K04 


2A34 


AA18 


CTRT 


057 






049 


FILL 


BR 


2A24 


E02D 


CTRT 


058 


FINISH 




061 


SSCH2 


BR IF GO BIT 6=1 


2A26 


E42B 


CTRT 


059 






063 


SSC0D2 


BR IF GO BIT 2=1 


2A28 


A8DC 


CTRT 


060 


SSCODX 


CICY 


003 


CHECKX 


BR 


2A2C 


E428 


CTRT 


061 


SSCH2 




060 


SSCODX 


BR IF GO BIT2=0 


2A2E 


AC84 


CTRT 


062 




CLOG 


050 


0P95C 


&R 



CL0A0=*E60t EC LEVEL=128211 PAGE 148 
COMMENTS 

ADD ERR ERROR IF BRANCH 
READ TABLE 
BR IF TRT INSTR 

DECREMENT COUNT 



RST G04 AND 
MOVE LENGTH 
PUT EBCDIC Z 
TEST FOR NO 
PUT IN ASCI I 
READ FIRST P 
Ti HAS FILL 
TEST FOR PAT 
BRANCH IF NO 
BR TO DIGIT 
TEST FOR SIG 



G06 
TO DO 
ONE IN Gl 
ASCII 

ZONE 
ATTERN 
CHAR 

TERN CHAR 
T 
SELECT 

START 



TEST FOR FIELD SEP 

TEST S STAT 

STORE FILL 

UPDATE ADDRESS 

DECREMENT LENGTH 

TEST FOR END 

READ NEXT PATTERN CHR 

RST G02 AND G06 
SET G05 

TEST S STAT 

TEST FOR ZERO FIELD 

TEST FOR ZERO FIELD 



ADDR 

2A2A 
2A36 
2A38 
2A3A 
2A3C 
2A3E 
2A4G 
2A42 
2A44 
2A46 
2A48 
2A4A 
2A4C 
2A4E 
2A50 
2A52 
2A54 
2A56 
2A58 
2A5A 
2A5C 
2A5E 
2A60 
2A62 
2A64 
2A66 
2A68 
2A6A 
2A6C 
2A6E 
2A70 
2A72 
2A74 
2A76 
2A78 
2A7A 
2A7C 
2A7fc 
2A80 



WORD SEQUENCE NO, 



ACA4 
1443 
C03F 
A353 
5738 
4755 
FCE3 
0769 
F4E1 
E05B 
FG5A 
7EE2 
5BE9 
2FC7 
2617 
7FA8 
70AO 
5EB9 
5EE2 
3427 
7518 
AA6A 
BC7C 
E050 
7B18 
DC6B 
34*3 
5773 
0769 
F4F5 
1488 
AA1C 
F77A 
C7F0 
C4FC 
1423 
27C7 
3443 
AA1C 



CTRI 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 



063 
064 
065 
066 
06 7 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
C85 
086 
087 
088 
089 
090 
091 
092 
093 
094 
09 5 
096 
097 
098 
099 
100 
101 



LABEL 

SSC0D2 

SIGST 

OIGSEL 



LODIG 



NEXTSEQ 

CLOG 052 

068 
CICY 045 



NEXTLABEL STATEMENT 



085 
082 
082 



ISSSTA 
SSTAT 

NCNOfcC 
DGTZRC 



NOSGST 



SIGN 



PLUS 
MINUS 



090 

CCOM 071 

083 



051 
098 



051 



CTRT 003 


CICY 


237 


CICY 


238 


CTRT 005 


CTRT 


015 


CTRT 


020 


GIRT 017 


CTRT 


012 






CTRT 022 


CTRT 


017 






CTRT 032 


CTRT 


030 






CTRT 033 


CICY 


239 


CICY 


240 


CTRT 039 


CTRT 


037 






CTRT 041 


CTRT 


054 






CTRT 048 


CTRT 


042 






CTRT 049 


CTRT 


057 






CTRT 050 


CTRT 


048 







CP95A 

LODIG 
ADDERR N 



086 DGTZRO 



NONDEC 
ISSSTA 
ISSSTA 



NOSGST 
FLGDEX 
SSTAT 



090 NOSGST 



095 SIGN 



NEXT 
PLUS 



099 MINUS 



NEXT 
******** 

* CROSS 
******** 



BR 

G0=G0*-K04 
BR IF GO BIT 
BR IF D1=NZ 
RDB Dl V+l 
G1=D1XL$G1H 
BR IF LZ=0 
Z=D1*K60 
BR IF AC=i 
BR IF GO BIT 
BR IF GO BIT 
STH H DA f BC 
H0 = T1 
H1=0 

T1=0$K11 
STB HI AS,T + 
STH U AS,T*0 
T 1= HO 

RDH H DA, BC 
G0=G0$K22 
STB Gl U + l 
BR 
BR 

BR IF GO BIT 
STB Tl U+l 
BR IF GO BIT 
G0=G0$K06 
D1=D1XH 
Z=D1+K60 ** 
BR IF AC=1 
G0=G0QK08 
BR 

BR IF Dl BIT 
Z=DlnKF0 
BR IF ZNZ 
G0=G0*-K02 
01 = 

G0=G0$K04 
BR 
************** 

REFERENCE FOR 
************** 



4=1 



CLQAD=*E60 f EC LEVEL=128211 

COMMENTS 



RST G05 

TEST FOR LO DIGIT 



PAGE 149 



READ NEXT SOURCE CHAR 
TRNS PACHEO TO ZONED 
SOURCE DIGIT ZERO 
MASK FOR NON DEC DIGT 

♦♦BRANCH IF GREATER THAN 9 

6=1 TEST S STAT 

7=0 TEST FOR EOT AND MARK 

KEEP H 
KEEP Tl 



1 



**SIGNIF DIGIT ADDR IN AUXST 



SET G02,G06 FIELD NZ 
STORE DIGIT 



6=1 TEST S STAT 

STORE FILL 
5=1 TEST FOR SIG START 

SIG START S ON 

MASK FOR NON DECIMAL DIGIT 
** BRANCH IF GREATER THAN 9 
CHANGE FF STATE 

3=0 



TURN S OFF 



************ 

CSECT CTRT * 
************ 



CLOAD=*E60, EC LEVEL=1282 11 PAGE 150 



********************************** 

♦CROSS REFERENCE FOR CSECT CTRT * 
********************************** 



CTRT 


051 


CTRT 


0S4 


CTRT 


101 


CTRT 


055 


CTRT 


04 7 






CTRT 


058 


CTRT 


052 






CTRT 


060 


CTRT 


061 






CTRT 


061 


CTRT 


058 






CTRT 


063 


CTRT 


059 






CTRT 


064 


CTRT 


045 






CTRT 


G65 


CTRT 


043 






CTRT 


068 


CTRT 


065 






CTRT 


082 


CTRT 


072 


CTRT 


073 


CTRT 


083 


CTRT 


086 






CTRT 


085 


CTRT 


071 






CTRT 


086 


CTRT 


069 






CTRT 


090 


CTRT 


064 


CTRT 


088 


CTRT 


095 


CTRT 


092 






CTRT 


098 


CTRT 


095 






CTRT 


099 


CTRT 


097 







ADOK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABi 


EL STATEMENT 






DCHN 


001 


T 




CHANNEL 


INTERRUPT ROUTINE 






OCHN 


028 


♦ 












DCHN 


029 


♦ 












DCHN 


030 


♦ 








23F2 


56D2 


DCHN 


031 


ENIRY 






RDH D DA,BA 


23F4 


1773 


DCHN 


032 








D1=D1*-K07 


23F6 


57B5 


DCHN 


037 


NTCNTR 






T1=D1XL 


23F8 


1B83 


DCHN 


038 








T1=T1*-K08 ** AUX B4 


23FA 


3BB5 


DCHN 


039 








T1=T1$KB0 


23FC 


5BA0 


DCHN 
DCHN 
DCHN 


040 
041 
042 


* 
* 






RDB Tl AStT+O ** T I 


23 FE 


5468 


DCHN 


043 








RDH G AS,D+2 


2400 


C251 


DCHN 


044 




082 


ZUNSTA 


BR IF 004=1 


2402 


B320 


DCHN 


045 




DPTT 089 


RESINB 


BAL ** GQ RST S7, INT 


2404 


4052 


DCHN 


046 








RDH U DC,9A 


2406 


4206 


DCHN 


047 








V=U 


2408 


0146 


DCHN 


048 




077 


INAINT 


BR IF Gl BIT 5=0 


2 40 A 


CilO 


DCHN 


049 




052 


NOPCI 


BR IF Gl BIT 4=0 


240C 


3485 


DCHN 


050 








G0=GO$K8O 


240E 


1583 


DCHN 


051 








G1=G1*-K08 


2410 


556A 


DCHN 


052 


NQPCi 






RDB Gl AS,D-1 


2412 


DilS 


DChN 


053 




056 


DEVEND 


BR IF Gl BIT 5=1 


2414 


C118 


DCHN 


054 




056 


DEVEND 


BR IF Gl BIT4=0 


2416 


3C85 


DCHN 


055 








UO=UO$K80 


2418 


5666 


DCHN 


056 


DEFEND 






D=D-i 


241A 


7068 


DCHN 


057 








STH U AS,D*2 


241C 


7160 


DCHN 


058 








STB Ul AS,D+0 


241£ 


176B 


DCHN 


059 


PCISS 






Di=DluK06 


242 


5068 


DCHN 


060 








RDH U AS,D+2 


2422 


5260 


DCHN 


061 








RDH V AS,D«-0 


2424 


02 IE 


DCHN 


062 








RST MMSK K=71 


2426 


CC80 


DCHN 


063 


CSfcST 






RST S4 


2428 


55E9 


DCHN 


064 


DEALON 






H0=G1 


242A 


5F59 


DCHN 


065 








G1 = H1 


242C 


54F9 


DCHN 


066 








H1=G0 


242E 


5B49 


DCHN 


067 








G0=T1 


24 30 


0235 


DCHN 


068 




070 


COMTIO 


BR IF 005=1 


2432 


3000 


DCHN 


069 








SET SO 


24 34 


2400 


DCHN 


070 


COMTIO 






SET MODE K=00 


2436 


C1C3 


DCHN 


071 




090 


STAT 


BR IF S4= 1 


2438 


AOOE 


DCHN 


072 




CCOM 110 


FULCSW 


BAL 


243A 


54B9 


DCHN 


073 


FINISH 






Ti=GO 


243C 


55F9 


DCHN 


074 


FRMFIL 






H1=G1 


24 3fc 


2135 


DCHN 


075 


USECGM 






U1=0SK30 


2440 


9C74 


DCHN 


076 




BPSW 005 


ENTRYB 


BR 


2446 


5560 


DCHN 


077 


INAINT 






ROB Gl AStD+O 


2448 


716A 


DCHN 


078 








STB Ul AS,D-l 


244A 


7060 


DCHN 


079 








STH U AS, 0*0 


244C 


2C80 


DCHN 


080 








SET S4 


2446 


A428 


DCHN 


081 




064 


DEALON 


BR 


2450 


5666 


DCHN 


082 


ZUNSTA 






D=0-1 


2452 


0010 


DCHN 


083 








RST S7 



CL0AD=*E60, EC LEVEL=1282 1i 
COMMENTS 



THIS IS THE ENTRY POINT FOR 
ALL CHNL I/O INTERRUPTS FROM 
THE BSWI ROUTINE 

RD OUT CHNL INT BUFFER 

SET UCW ADR TO HWD 

T=C00X 
=1403, B5=2540R,B 6=2 540P,B7=l 052 

T=C0B4,5,6 OR 7 
S POINTED AT — B4 ,B5 , B6,0RB7 

WHICH IS1403,2540R,2540P,1052 
UNIT ADDRESSES IN ORDER ABOVE 

READ OUT CHNL STA/OP-FLGS 

BR IF PCI 

BUFFER BIT AND SEC. 

READ ZERO'S INTO U 

MAKE V=0000 

BR IF NOT ACTIVE 

BR IF NO PCI FLAG 

SET PCI BIT IN CHANNEL STATUS 

TURN PCI FLAG OFF 

RD UNIT STA INTO Gl 

BR IF DEVICE END 

BR IF NOT CHANNEL END 

TURN ON SECONDARY BIT 

SET UCW ADR TO HWD 

STORE 8000 IN UCW HWD 

ZERO OUT UNIT STATUS 

SET D TO UCW HWD 2 

RD UCW HWD 2 

RD UCW HWD 3 

RST LEVEL 1 TRAP LOCKOUT 

RST DE. ALONE FLAG 

MOVE UNIT STATUS 

SAVE CPU ADDR 8YTE 

MOVE CHANNEL STATUS 

SAVE UNIT ADDRESS 

BR IF COMM. TEST I/O 

SET RETURN FLAG 

SET CPU MODE 

BR IF DE. ALONE 

GO STORE FULL CSW 

RESTORE UNIT ADDRESS 

RESTORE CPU ADDRESS BYTE 

STRT TO BUILD ADR OF I/O OLD PSW 

BR TO STORE OLD PSW 

RD OUT UNIT STATUS FROM UCW 

CLEAR UNIT STATUS 

STORE 0000 IN UCW HWD 

REMEMBER DE . ALONE 

GQ MOVE STATUS FOR STATUS-0 ,SCSW 

DECR D TO UCW BYTE 1 
RST CHAN-0 INT 
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AD OR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLA 


2454 


1583 


DCHN 


084 










2456 


1413 


DCHN 


085 










2458 


7468 


DCHN 


086 










245A 


2485 


DCHN 


087 










245C 


2505 


DCHN 


088 










2456 


A41E 


DCHN 


089 






059 


PCISS 


2442 


AC1E 


DCHN 


090 


STAT 


CCOM 


123 


STATOS 


2444 


A43A 


- DCHN 


091 






073 


FINISH 


2162 


24C0 


DCHN 


092 


MQDRST 








2164 


2AG7 


DCHN 


093 


CICRTN 








2166 


C3EA 


DCHN 


094 






096 


NOT I PL 


2168 


87 5A 


DCHN 


095 




DCLL 


021 


IPLSTP 


216A 


A8DE 


DCHN 


096 


NQTIPL 


CICY 


004 


CHECK 


30FA 


24C0 


DCHN 


097 


CC3SET 








30FC 


2C75 


DCHN 


098 


CC3 








30FE 


A164 


DCHN 


099 






093 


CICRTN 



G1^G1*-K08 

G0=G0*-K01 
STH G AS, 0*2 
G0=0$K80 
G1=0$K00 
8R 
BAL 
BR 

SET MODE K=00 
TO^O 

BR IF BA 8IT4=0 
BR 
BR 

SET MODE K=00 
P0=0$K70 
BR 
********************************** 

.* CROSS REFERENCE FOR CSECT DCHN * 
********************** ************ 



CL0AD=*E60, EC JLEVEL« 1.2.62.1.1 
COMMENTS 

RST PCI FLAG 

RST INT BUFFER BIT 
STORE UPDATEO CH STA/OP-FLGS 
SET PCI ALONE 
SET 00 UNIT STATUS 
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GO 
GO 



BR 
GO 



STORE STATUS AND ZERO CSW 
TAKE INTERRUPT 



IF NOT I PL 
TO I PL STOP 



DCHN 


031 


BSWI 


102 


DCHN 


052 


DCHN 


049 


DCHN 


056 


DCHN 


053 DCHN 054 


DCHN 


059 


DCHN 


069 


DCHN 


064 


DCHN 


081 


DCHN 


070 


DCHN 


0£8 


DCHN 


073 


DCHN 


0S1 


DCHN 


074 


FINT 


046 


DCHN 


075 


DCLT 


045 


DCHN 


077 


DCHN 


048 


DCHN 


082 


DCHN 


044 


DCHN 


090 


DCHN 


071 


DCHN 


092 


DCLC 


1S1 


DCHN 


093 


DCHN 


099 


DCHN 


096 


DCHN 


0<S4 


DCHN 


097 


DCLA 


116 DCLA 134 


DCHN 


098 


DC LA 


047 



DCLA — I/O INSTRUCTIONS ROUTINE 
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ENTRY POINTS 



DESCRIPTION 



IQINST — MAJOR ENTRY POINT FOR DCLA. ENTRY IS FROM 
I-CYCLES AFTER ONE OF THE FOLLOWING I/O 
INSTRUCTIONS IS DECODED — START I/O, TEST I/O, 
HALT I/O, OR TEST CHANNEL. 



UAURID — FROM IPL ROUTINE. IPL IS A SIMULATED START 
AND USES -DCLA- FOR THE SAME PURPOSE, I.E. 
TO GET THE UNIT ADDRESS* 



I/O, 



DYPADD , HOHO , STORO — FROM PR-KB OR I CA ROUTINES. 

THESE ENTRIES ARE USED TO SHARE THE TESTING OF 
DEVICE FLAGS WHEN A PR-KB OR COMMUNICATIONS 
HALT I/O INSTRUCTION IS IN PROCESS. 

OBJECTIVES 



I/O INSTRUCTIONS AR 
-CICY- , CAUSING A 

IN -DCLA- , A CH 
OPS ARE PERMISSA8LE 
CONDITION CODE IS I 
LATER IF THE I/O UN 
CAW IS FETCHED AND 
THE CHANNEL IS IDEN 
THE ROUTINE BREAKS 
ROUTINES IF THESE F 

WHEN CHANNEL IS 
IN THE REGISTER USE 
UCW ADDRESS IS GENE 
TO ANOTHER ROUTINE 
TYPE, AND ACTIVITY 



E DECODED IN THE I-CYCLES ROUTINE, 
BRANCH TO -DCLA- . 

ECK IS MADE TO ENSURE THAT PRIVELEGED 
, I.E. , SUPERVISOR STATE. THE 
NITIALIZED TO — THIS IS CHANGED 
IT IS BUSY. FOR START I/O ONLY, THE 
CHECKED. FOR ALL I/O INSTRUCTIONS, 
TIFIED. WHEN CHANNEL i IS IDENTIFIED, 
OUT TO EITHER THE FILE OR BURST CHANNEL 
EATURES ARE PRESENT. 

IDENTIFIED, THE ACTIVE BIT IS SET ON 
D TO HOLD THE NEW FLAGS/ OP BYTE. THE 
RATED, THEN THE MICROPROGRAM BRANCHES 
ON THE BASIS OF THE OP CODE, DEVICE 
STATUS. 



1. FOR START I/O, FETCH AND CHECK CAW. 

2. GENERATE UCW ADDRESS. 

3. EXIT EITHER TO DO THE OPERATION REQUIRED, CR TO RETURN 

TO I-CYCLES AFTER SETTING THE CONDITION CODE. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 




next: 


SEQ 


NEXTLAE 


iEL 


STATEMENT 




COMMENTS 






DCLA 


001 


T 




I/O INSTRUCTIONS 


H.E. 


,BERKEBILE 


OCB8 


10CE 


DCLA 


002 


IQINST 












RST S K=FC 




RST S REG BITS THRU 5 


OCBA 


F93E 


DCLA 


003 








005 


SUPVSR 




BR IF PI 7 = 




BR IF SUPERVISOR MODE 


OCBC 


B35A 


DCLA 


004 






CICY 


068 


PRIVOP 




BR 






DC BE 


2C07 


DCLA 


005 


SUPVSR 












P0 = 




SET COND. CODE 


OCCO 


2B45 


DCLA 


006 














T1=0$K40 






OCC2 


3B83 


DCLA 


007 














T1=T1$K08 




SET UP CAW ADDRESS 


OCC4 


46A6 


DCLA 


008 














C=T 




D=C048 START OF UCW ADDR 


0CC6 


17FD 


DCLA 


0G9 














Di=DlnKFO 




D=00B8 


OCC8 


80 IF 


DCLA 


010 








Oil 


IOOP 


N 


N=GO BITS67 




BR ON OP 


OF 80 


8798 


DCLA 


Oil 


I OOP 







063 


STRTIO 




BR 




START I/O 


OF 82 


87AE 


DCLA 


012 


I OOP 


i 




089 


UAORID 




BR 




TEST I/O 


OF 84 


87AE 


DCLA 


013 


I OOP 


2 




089 


UADRID 




BR 




HALT I/O 


0F86 


5009 


DCLA 


014 


I OOP 


3 










UO=UO 




TEST CHANNEL 


0F88 


C490 


DCLA 


018 








044 


NOTCHO 




m IF ZNZ 




BR IF NOT CHNL 


OF 8A 


C78F 


DCLA 


020 


CHNLOT 






042 


CC1T 




BR IF 8A BITO-= 


I 


BR IF CHNL IB I S ON 


0F8C 


B362 


DCLA 


041 


CCOT 




CCOM 


154 


CCOB 




BR 




SET CC=0 


0F8E 


ADF4 


DCLA 


042 


CC1T 




CCOM 


157 


CC1B 




BR 




SET CC=1 


0F90 


001B 


DCLA 


044 


NOTCHO 












Z=U0OK0i 






0F92 


C497 


DCLA 


04b 








049 


CHNL1T 




BR IF Z=0 




BR IF NOT CHNL 1 


0F94 


BOFC 


DCLA 


047 


CC3T 




DCHN 


098 


CC3 




BR 




BR TO SET CDN CODE 3 


0F96 


2486 


DCLA 


049 


CHNL1T 












SET MODE K=38 




SET CHANNEL MODE 



AOOR 

0F98 
0F9A 
0F9C 
0F9E 
Of AO 
0FA2 

0798 
079A 
079C 
079E 
07A0 
07A2 
07A4 
07A6 
07A8 
U7AA 
07AC 

07AE 
0780 
07B2 
0784 
07B6 
0788 
078A 
7BC 
07BE 
07C0 
7C2 
OiOO 
0102 
0104 
07C4 
07C6 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



0888 
08 8 A 
08 8C 
088E 
0890 
0892 
0894 
0896 

0898 
080E 



088F 
2480 
E98F 
5632 
C60C 
AC74 

5EB8 
7EF2 
0EF5 
F0A3 
80C4 
AB3F 
52BA 
0249 
F4A1 
383 
FOAO 

5GC9 
C4B4 
8888 
OOIB 
C4C6 
5632 
2BA1 
5FAA 
6F11 
E0C5 
8003 
846C 
AF02 
A340 
847A 
BOFA 



2543 

4E66 
1FCB 
2710 
5BE8 
6B11 
C49B 
DBOF 

BOFA 
889A 



DC LA 
DC LA 
DCLA 
DC LA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
OCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 



050 
052 
053 
058 
059 
060 
062 
063 
065 
066 
067 
068 
069 
075 
083 
085 
086 
087 
088 
C89 
090 
091 
093 
094 
099 
101 
102 
103 
104 
108 
109 
110 
111 
113 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
134 
183 



STRTIO 



PROG 

HCADDR 

RDCAW 



UADRID 

NCHNLO 
CHLFIL 



BRSTOP 
BRSTOP 1 
BRSTOP 2 
FILE 
CC3S 



CHNLO 



RDNADR 



NOTIPL 
OPERNL 



042 CC1T 



042 CC1T 



041 
CCOM 161 



CCOT 
CC2B 



BR IF GS BIT5=1 

SET MODE K-=08 
BR IF FF 16=1 
RDH D 0A,8E 
BR IF DO BITO=0 

BR 



CL0AD=*E60, EC LE VEL-=1282 11 

COMMENTS 

BR IF CHAN INT. IS ON 

SET FILE MODE 

BR IF ANY FILE INT. IS ON 

GET STATS 

BR IF ACTIVE OFF 
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BEGIN READOUT AND CHECK OF CAW FOR START 1-0. 



RDH H T+2 
STH H DA f BE 
Z=HO*-KFO 
069 HIADDR BR IF LZ = 

DCLR 008 PGESTT BR 

068 PRCG N BR IF H1 = NZ 
RDH V T-Z 
Z=V0*K40 
068 PRGG BR IF AC= I 

Z=V1*-K08 
068 PRCG BR IF LZNZ 
IDENTIFY THE CHANNEL FOR START 1-0, 
UO=UO 
093 NCHNLO BR IF ZNZ 

124 CHNLO BR 

Z=UOQK01 
116 CC3S BR IF ZNZ 

RDH CA,8E 
TUO-KOA 
RDB HI AS,T-1 
Hl^HlnUl 
113 FILE BR IF HZ=0 

109 BRSTOP N N=GO BITS67 
DCLB 004 CCWBUR BR 

DCLT 003 TEST 10 BR 

DCLH 004 ENTRY BR 

FILE 008 ENTRY BR 

DCHN 097 CC3SET BR 



READ 1ST HW OF CAW 

SAVE THE KEY 

MASK LOW 4 BITS OF KEY BYTE 

BR IF LO 4 BITS OF KEY 8YTE*0 

BAD CAW— PROG CHECK 

BR IF HIGH ADDR NON ZERO 

READ CCW ADDRESS 

BR IF CCW ADR OVER MEMORY SIZE 
CHK FOR 8 BOUNDARY 

TEST 1-0, AND HALT 1-0. 

BR IF NOT CHNL 



BR IF NOT CHNL 1 

RD STATS INTO D 

T=C0F5 

RD OUT CONTROL UNIT ADR OF FILE 

BR IF FILE 

BURST CHNL — BR ON OP BYTE 

START I/O-BR TO CCW FETCH RTNE 

TEST I/O 

HALT I/O 

BR TO 2311 ROUTINE 



BEGIN CONSTRUCTION OF UCW ADDRESS IN D0/D1. FOR NATIVE PRINTER, 00C8V 
FOR NATIVE READER, 00D8. FOR NATIVE PUNCH, 00E8. FOR NATIVE TYPE- 
WRITER, 00F8. FOR NATIVE COMMUNICATIONS, 80XX. FOR NON-NATIVE CHAN- 
NEL, 20XX. XX IS DERIVED FROM UNIT ADDRESS, THUSLY — FOR NATIVE COMM- 
UNICATIONS, XX^U3,U4,U5,U6,U7, 0,0,0. FOR OTHER (NON-NATIVE) SINGLE 
SUBCHANNELS, XX=U4, U5,U6,U7,U3, 0, 0, 0. FOR SHARED SUBCHANNELS, XX= 
0,Ul,U2,U3,0,0,0,0. 

G1=0$K04 SET ACTIVE BIT 

H=D H=00B8 

Hi=HlaKOC H=00B4 

DUcDl+KiO D=C0C8 1ST UCW ADORE SSS 

RDB Tl AS,H+1 ** AUX-B4=PRINT, READER, PUNCH, 1052 



201 
127 



TESACT 

RDNADR 



TUTlaUl 
BR IF Z=0 
BR IF H15«l 



CHECK FOR 

MATCH 
BR IF NOT FINISHED 



AT THIS POINT, EITHER COMMUNICATIONS OR NON-NATIVE. 



DCHN 097 
201 



CC3SET 
TESACT 



BR 
BR 



A DDR 



089A 
089C 
089E 
08A0 
08A2 
08A4 
08.CE 
08D0 
0802 
08D4 
08A6 
08A8 
08AA 
08 AC 
08AE 
08B0 
08B2 
08B4 
08B6 
06B8 
08BA 
08BC 
08BE 
08C0 
08C4 
08C6 
08C8 
08CA 
08CC 
08C2 

08 80 
0882 
0884 
0886 
01F8 
OiFA 
01FC 
OiFE 
0200 
0202 
0204 
0206 
0208 
020A 
020C 
0206 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, EC LEVEL=1282 11 

COMMENTS 
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5E60 
E032 
AC78 
07F0 
EOCE 
8EAC 
0526 
15C5 
7460 
88AC 
C42C 
D131 
DA31 
4E52 
A030 
B362 
F045 
DB43 
CE4D 
566S 
EOBF 
81F8 
377 3 
93F4 
0B4A 
CE42 
0F43 
3613 
8711 
AC74 

8948 
9EAA 
9EAA 
96F4 
52FF 
526C 
52EF 
51F2 
C6C6 
41E5 
C609 
41EB 
42EF 
536C 
42FF 
128E 



DC LA 
OCLA 
OCLA 
OCLA 
OCLA 
DCLA 
OCLA 
OCLA 
OCLA 
OCLA 
OCLA 
DCLA 
OCLA 
DCLA 
DCLA 
DCLA 
OCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 



199 

200 
201 
202 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
242 
243 
2 52 
2 56 
257 
258 
259 
261 
277 
281 
282 
283 
284 
285 
301 
303 
305 
306 
308 
310 
311 
312 
313 
317 
319 
323 
325 
326 
327 
328 
329 



TESACT 
HALTRP 



DYPADD 
HOHO 



VANSOI 



STORO 

GQBACK 
NOHALB 



CCHCCW 

DCLBBR 
TIQBR 



SETIT 

NOTTES 
CC2 

INASIO 

INASIO 1 

INASIO 2 

INASIO 3 
BURKEY 



FORMATION OF THE UCW ADDRESS IS COMPLETE. NEXT, BREAK OUT TO OTHER 
ROUTINES ON THE BASIS OF OP CODE, DEVICE TYPE, ACTIVITY STATUS, ETC. 



242 
ERRQ 083 

219 

DYPE 210 

223 



226 

226 
228 
228 

CCOM 135 

CCOM 154 

277 

285 
284 

259 
310 

DCLB 077 
283 
285 
285 



NOHALB 
RDCHST 

DYPADD 

HLTTW 

VANSOI 



STORO 
STORO 
GQBACK 
GOBACK 

STATUS 

CCOB 

TIOBR 

CC2 

NOTTES 

DCLBBR 
BURKEY 

RDHW1 
SETIT 
CC2 
CC2 



RDH H AS,D+0 

BR IF G06=0 

BAL ** GO 

Z=DlnKFO 

BR IF HZNZ 

BR 

BR IF G11=0 

G1=G1*-KC0 

STH G AS,D+0 

BR 

BR IF G00=0 

BR IF G15=l 

BR IF H05=l 

RDH H DC,9A 

BR 

BR 

BR 

BR 

BR 



IF G07=l 

IF HI BIT5=1 

IF H00=1 
DO =00 

BR IF HZ=0 
BAL 

D1=01$K07 
BR 

BR IF H15=0 ** 
BR IF H00=0 
BR IF Hll=l 
DO=DO$K01 



RD UCW FIRST HW 
BR IF NOT HALT I/O 
GET CHAN. AND UNIT STATUS IN G,H 
LOOK FOR 1052 
BR IF OTHER NATIVE 

BRANCH IF NOT CHAINED 
RST CDA AND CC FLAGS 
STORE UPDATED CH STAT IN UCW 



BR IF NO SECONDARY 

BR IF ACTIVE 

BR IF DEVICE END 

READ ZERO CONSTANT INTO H 

STURE STATUS CSW 

SET CCO 

BR IF TEST I/O 

BR ON ACTIVE BIT 

BR IF SEC. ON 



BR 



BR IF NATIVE 

GO SET UP THE KEY 

SET D TO UCW HWD 

IF NAT. IS NOT ACTIVE 

SET BUSY IF NO CHAN. END 

BR IF STILL CHAINED — SET BUSY 

REMEMBER TEST 10 FOR NATIVES 



303 INAS 10 N 

CCOM 161 CC2B BR 

BREAKOUT BY DEVICE, 

DPTT 006 TESTOO BR 

ERRQ 004 REDUC 

ERRG 004 REDUC 

DYPE 191 TWSEC7 



N=D1 BITS23 ** GO TO NAT. TEST I/O START-SEC. ON 



FOR START 1-0, 



325 MPXKEY 



326 KEYOR 



MPXKEY 
KEYOR 



BR 

BR 

BR 

H1=STP0 

ISK STPO AS,D*2 

H0=STP0 

RDB Ul DA, BE 

BR IF D00=0 

H0=UIXL$H0H 

BR IF 000=1 

H0=U1H+H0L 

STP0=H0 

SSK STP1 AS,D*1 

STP0=H1 

RTN 



SET CC = 2 

ACTIVE=0, SECONDARY=i. 
PR, SEC BIT=1 START I/O 
RD,SEC BIT=1, START 10 OR TIO 
PU,SEC Bir=l, START 10 OR TIO 
TW,SEC BIT=1, START 10 
H1=CURRENT CPU KEY 
READ OUT CHNL/COMM KEYS 
H0= CHNL/COMM KEYS 
READ OUT NEW KEY 
BR IF MPX CHNL 

OR OLD MPX AND NEW COMM KEYS 
UNC BR 

OR OLD COMM AND NEW MPX KEYS 
MOVE UPDATED KEY TO STPO 
STORE UPDATED KEY IN STP1 
RESTORE CPU KEY 
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OCLA 


002 


CICY 


221 


CICY 


222 


CICY 


223 


DCLA 


005 


OCLA 


0C3 










OCLA 


Oil 


OCLA 


010 










DC LA 


041 


OCLA 


059 










OCLA 


042 


OCLA 


020 


DCLA 


050 


DCLA 


053 


OCLA 


044 


OCLA 


018 










OCLA 


049 


OCLA 


045 










UCLA 


063 


OCLA 


Oil 










OCLA 


068 


OCLA 


069 


OCLA 


085 


DCLA 


087 


OCLA 


069 


OCLA 


067 










OCLA 


089 


OCLA 


012 


OCLA 


013 


DCLL 


018 


OCLA 


093 


DC LA 


090 










OCLA 


109 


OCLA 


1C8 










OCLA 


113 


OCLA 


1C4 










OCLA 


116 


OCLA 


0S4 










OCLA 


124 


OCLA 


091 










OCLA 


127 


OCLA 


131 










OCLA 


201 


OCLA 


130 


OCLA 


183 






OCLA 


219 


OCLA 


217 


OYPE 


225 






OCLA 


220 


OYPfc 


220 










OCLA 


223 


OCLA 


219 










OCLA 


226 


OCLA 


222 


OCLA 


223 


DYPE 


216 


OCLA 


228 


OCLA 


224 


OCLA 


225 






OCLA 


242 


OCLA 


2C2 










OCLA 


259 


OCLA 


257 










OCLA 


277 


OCLA 


242 










OCLA 


283 


OCLA 


277 










OCLA 


284 


OCLA 


2V2 










UCLA 


285 


OCLA 


243 


DCLA 


281 


DCLA 


282 


OCLA 


303 


OCLA 


264 










OCLA 


310 


OCLA 


258 


OCLB 


Oil 






OCLA 


325 


OCLA 


317 










OCLA 


326 


OCLA 


323 











********************************** 

* CROSS REFERENCE FOR CSECT DCLA * 
********************************** 

CICY 224 



CL0AD=*E60, EC LEVEL=1282il PAGE 157 



CCW FETCH AND CHECK ROUTINE 

THE -DCLB- ROUTINE READS AND CHECKS THE CCW»S FOR IPL, 
START I/O, COMMAND CHAININGt AND DATA CHAINING. THE 
ROUTINE IS VERSIONED ACCORDING TO THE CHANNEL FEATURE 
SELECTED FOR THE CONTROL-STORAGE LOAD, I.E., EITHER 
CHANNEL — BYTE MODE, OR CHANNEL 1 — BURST MODE, 



ENTRIES 
CCWBUR 

COMChiM 

CHAIN 

CDACUM 



— BURST MODE ENTRY FROM START I/O CR IPL* THIS 
PORTION- OF THE ROUTINE SETS THE INITIAL SELECT 
LATCH AND SETS AN INDICATOR BIT IF THE DEVICE 
IS BUFFERED. 

— COMMUNICATIONS CHAINING ENTRY. 

— NATIVE I/O OR BYTE MODE CHAINING ENTRY* 

— BYTE MODE DATA CHAINING ENTRY. 



ENTRY POINTS CONTINUED 

SKIP — BURST MODE ENTRY TU INCREMENT CCW ADDRESS BY 8 

BEFORE CHAINING. 
RDHW1X — BURST MODE COMMAND CHAINING ENTRY. 

ROHWl — BYTE MODE ENTRY FROM START I/O OR IPL. 

BURST MODE ENTRY FOR DATA CHAINING WHEN NEXT 
CCW I S A TIC COMMAND. 

NOTIC — BURST MODE ENTRY FROM LOW-PRIORITY TRAP ROUTINE 
AFTER DETECTION OF AN INCORRECT TIC ADDRESS. 
THE CCW ADDRESS IS INCREMENTED IN -DCLB- 
BEFORE BRANCHING TO THF -DCLR- ERROR ROUTINE. 

BSTCDA — ENTRY FROM -DCLR- ERROR ROUTINE TO PERMIT 
RETURN FROM TRAP AFTER DATA CHAINING ERROR. 



ADDR 



046C 
046E 
0442 
0444 
0446 
0448 
044A 
044C 
044E 
04 50 
0452 
0454 
0456 
0458 
4 5A 
045C 
045E 
0460 
0462 
0464 
0466 
0468 
046A 
0470 



WORD SEgUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



C642 
AC74 
2045 
7022 
2625 
2 76 7 
81F8 
2486 
2B80 
7212 
24F6 
5622 
2407 
2585 
3543 
5148 
6171 
C4F1 
C15C 
25CB 
F55D 
25C7 
8472 
5651 



DC LB 
DCLS 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 



001 
003 
004 
005 
006 
007 
009 
010 
Oil 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
02 7 
02 8 
029 



CCWBUR 
ACT30N 
INACT 



NU TF I N 



CCW FETCH AND CHECK ROUTINE 
BURST MODE ENTRY FROM START 



I/O 



006 
CCOM 161 



029 
021 



INACT 
CC2B 



DCLA 310 BURKEY 



MATCH 
NOTFIN 



021 NOTFIN 



030 BSTCC 



MATCH 



BR IF DO BITO=0 

BR 

U0=0$K40 

STH U DA, 8C 

D0=0$K20 

D1=0$K88 

BAL 

SET MODE K=38 

SET GA K=08 

STH V DA,8A 

SET MODE K=3F 

RDH D CA,8C 

G0=0 

Gi=0$K80 

Gi=Gl$K04 

RDB Ul AS,G+1 

Ui=UlnDl 

BR IF Z=0 

BR IF Gi BIT4=0 

G1=G1*K0C 

BR IF Gi BIT 3=1 

G1=0 

BR 

G1=D0X 



COMMENTS 

H.E.BERKEBILE 

BR IF NOT ACTIVE 
SET CC=2 

STORE UNIT IDENT HWO IN AUX008C 
SET DO TO BUMP 2 

BAL TO STORE KEY 

SET INL SELECT LTCH 
STORE NEXT CCW ADR IN AUX008A 
SET CHNL MODE AND ZONE 
RD UNIT IDENT HWD INTO D 
SET UP BUFFERED 
DEVICE ADDRESSES TABLE 
ADDRESS - 0084 
READ OUT BUFFERED DEVICE ADDRESS 
LOOK FOR EQUAL ADDRESS 
BR IF EQUAL ADDR 

BR IF ADR NOT REACHED 0088 OR 98 
CHANGE ADDR TO 0094 OR 00A4 
BR IF ADDR IS 0094 
HAVE REACHED END AND NO MATCH 
CONTINUE WITH CCW FETCH 
Gl=04 ACTIVE 
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A DOR 


WORO 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLA8 


EL STATEMENT 




COMMENTS 


04 7 2 


5212 


0CL8 


030 


BSTCC 






ROH V 0A f 8A 




READ OUT NEXT CCW ADR 


04 74 


93F4 


OCLB 


031 




077 


RDHW1 


BR 










DCLB 


033 


* 


NATIVE 


10 AND 


BYTE MODE CHANNEL 


CHAIN 


EN TR Y 






DCLB 


034 


♦ 


ENTRY 


TO FETCH A NEW CCW UPON 


OAT A OR CCMMAND CHAINING. 00/01 CON- 






OCLB 


035 


* 


TAINS 


UCW ADDRESS* Gl CONTAINS 


FLAG 


AND OP BITS OF PREVIOUS UCW. 


13CA 


1683 


OCLB 


039 


CHAIN 






00=D0*-K08 






net 


3613 


OCLB 


040 


CCWCi>A 






00= DOS KOI 




SET CAME FRM CHAINING FLAG 


1 3ce 


3773 


OCLB 


C41 


COACOM 






Dl=Di$K07 




SET 01 TO UCW BYTE 7 


1300 


5260 


OCLB 


042 








RDH V AS t 0+0 




READ NEXT CCW AOR 


1302 


D25A 


OCLB 


043 




054 


RDHW1X 


BR IF 005=0 




BR IF NO COMMU.STAT MOO 


1304 


1643 


0CL8 


044 








D0=D0*-K04 




TURN OFF INCR CCW«-8 BIT 


1306 


3363 


OCLB 


045 


SKIP 






V1=V1$K06 




INCREMENT CCW 


13D8 


6224 


OCLB 


046 








V=V+2 




ADR BY 8 


130 A 


0249 


OCLB 


054 


RDHWlX 






Z=V0«-K40 






130C 


F4C3 


OCLB 


056 




106 


PRGERC 


8R IF AC=i 




BR IF CCW AOR OVER MEMORY 


1 30E 


5038 


OCLB 


05 7 








ROH U V+2 




READ FIRST CCW HW 


13E0 


0C8B 


OCLB 


058 








Z=U0nK08 






13E2 


FOFA 


OCLB 


059 




080 


NOTIC 


BR IF L2NZ 




BR IF NO TIC 






DCLB 


060 


* 


COMMAND CODE 


IS TIC. CHECK AND EXECUTE. 


1 3E4 


5119 


DCLB 


061 








U1 = U1 






13E6 


C4C4 


OCLB 


062 




107 


PRGERB 


BR IF ZNZ 




BR IF CCW BYTE 1=NZ 


13EB 


5030 


DCLB 


063 








RDH U V*0 




READ CCW SECONO HW 


i 3EA 


0049 


OCLB 


071 








Z=U0*K40 






13 EC 


F4C5 


DCLB 


073 




107 


PRGERB 


BR IF AC=i 




BR IF DATA ADR OVER MEMORY 


13EE 


0183 


OCLB 


074 








Z=U1*-K08 






UFO 


F0C4 


DCLB 


075 




107 


PRGERB 


BR IF LZNZ 




CHK FOR VALID TIC ADR 


13F2 


4206 


OCLB 


076 








v=u 






13F4 


5038 


OCLB 


077 


RDHW1 






RDH U V+2 




REAO FIRST CCW HW 


13F6 


CC8B 


DCLB 


078 








Z=U0nK08 






13F8 


F0C5 


DCLB 


079 




107 


PRGERB 


BR IF LZ=0 




CHK FOR VALID TI 


13FA 


5119 


OCLB 


080 


NOTIC 






Ul=Ul 






I3fC 


C4C4 


DCLB 


081 




107 


PRGERB 


BR IF ZNZ 




BR IF TIC CCW BYTE 1=NZ 


13F6 


5C49 


DCLB 


082 








GO=UO 




MOVE COMMAND TO GO 


1400 


6224 


DCLB 


083 








V = V+2 




INCREMENT CCW ADR 


1402 


5038 


DCLB 


084 








RDH U V+2 




READ CCW THIRD HW 


1404 


CO 83 


DCLB 


085 








Z=U0*-K08 




CHK FOR VALID FLAG 


1406 


F094 


DCLB 


086 




093 


PRGERA 


BR IF LZNZ 




CHK FOR VALID FLAGS 


1408 


C51F 


DCLB 


087 




114 


COABR 


BR IF Gi BITO= 


1 


CHK FOR DATA CHAIN 


140A 


1537 


DCLB 


088 








Gl=Gl*-K33 




61=0000X100 


140C 


F031 


OCLB 


089 


ABCO 


110 


OUTCMO 


BR IF GO BIT 7= 


1 


DECQOING OF 


140E 


E033 


DCLB 


090 




111 


INFCMD 


BR IF GO BIT6= 


1 


THE CCW 


1410 


C035 


DCLB 


091 




112 


INBCMD 


BR IF GO BIT4=1 


COMMAND 


1412 


D033 


OCLB 


092 




ill 


INFCMD 


BR IF GO BIT 5= 


1 


BYTE 


1414 


6224 


OCLB 


093 


PRGERA 






V = V+2 




INCR V TO CORRECT NXT CCW ADR 


1416 


0639 


OCLB 


09 5 


PRGERR 


103 


BSTPER 


BR IF 00 8IT1= 


i 


BR IF BURST CHNL 


1418 


3763 


DCLB 


096 








Di=Dl$K06 




SET TO UCW HWD 3 


141A 


7260 


DCLB 


100 








STH V AS,D*0 




STORE NEXT CCW ADR 


141C 


BC82 


DCLB 


101 


PRGERX 


DCLR 002 


PRGERR 


BR 






14 38 


7212 


DCLB 


103 


BSTPER 






STH V 0A f 8A 




STORE UPDATED NXT CCW ADR 


143A 


BC82 


DCLB 


104 




DCLR 002 


PRGERR 


BR 






13C2 


6224 


OCLB 


106 


PRGERC 






V = V+2 




UPOATE V 


13C4 


6224 


DCLB 


107 


PRGERB 






V = V*2 




TO CORRECT 


13C6 


6224 


DCL8 


108 








V=V*2 




NEXT CCW ADR 



ADDR 

13C8 
1430 
1432 
1434 
1436 
14i£ 
1420 
1422 
1424 
1426 
1428 
142A 
142C 
142E 
143C 
1436 
1440 

1442 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



1444 
1446 
1448 
144A 
144C 
144E 
1450 
1452 
1454 
1456 
145E 
1460 
1462 
1464 



1458 
145A 
145C 

1040 

1020 
1022 
1024 



9414 
1S3B 
151B 
153B 
9420 
2405 
15F5 
6505 
5038 
40 C 6 
C49 7 
063D 
726A 
943E 
7212 
6226 
1343 

5230 



0659 
C54A 
1565 
1763 
756A 
6666 
F25F 
5FF2 
7F60 
946C 
5F60 
666 4 
42FF 
8721 



A041 
1D00 
0244 
8AEE 

9CFC 
S812 
S812 



OCLB 
OCLB 
OCLB 
OCLB 
OCLB 
OCLB 
OCLB 
OCLB 
OCLB 
DCLB 
OCLB 
OCLB 
OCLB 
OCLB 
DCLB 
OCLB 
DCLB 
OCLB 
OCLB 
DCLB 
OCLB 
OCLB 
DCLB 
OCLB 
DCLB 
DCLB 
OCLB 
0CL8 
OCLB 
DCLB 
OCLB 
OCLB 
OCLB 
DCLB 
DCLB 
OCLB 
DCLB 
OCLB 
OCLB 
DCLB 
DCLB 
OCLB 
DCLB 
DCLB 
OCLB 
DCLB 
DCLB 
DCLB 
DCLB 
DCLB 
OCLB 
OCLB 
DCLB 



109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
121 
123 
124 
126 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
142 
144 
145 
165 
166 
174 
175 
176 
177 
178 
179 
180 
181 
183 
184 
185 
186 
190 
191 
195 
199 
207 
209 
211 
212 



OUTCMD 
I NFC MO 
INBCMD 

CDABR 
FLAGOR 

CHKFLG 



STBURS 
OECV 



NOTNAT 



CHAKEY 
SETKEY 



CHCCW 
BSTCOA 

NOTCOA 

NATSIO 
NATS10 1 
NATSIO 2 



093 PRGERA 



115 FLAGOR 



095 
126 



PRGERR 
STBURS 



128 OECV 



BR 

Gi=GlaK03 

GI=GlaK0l 

Gl=GlnK03 

BR 

G0=0$K00 

G1=G1*-KF0 

GI=G1$U0 

ROH U V*2 

U=U 

BR IF Z=0 

BR IF 00 BIT 1=1 

STH V AS, 0-2 

BR 

STH V DA,8A 

V=V-2 

Vi=Vl*-K04 



CL0AD=*E60, EC LEVEL=1282U 

COMMENTS 



SET OP BITS TO OUTPUT 
SET OP BITS TO INP FW 
SET QP BITS TO INPBKW 

SET CD INDICATION 
CLEAR HIGH FLAGS 

OR THE OLD AND NEW FLAGS 
READ CCW FOURTH HW 

BR IF CCW COUNT=0000 
BR IF BURSTCH 
STORE NEXT CCW ADR 
XXXXXXXXXXMAKE ADDRESSABLE 
STORE NEXT CCW AOR 
DECREMENT V TO HWO 1 
OF CURRENT CCW 
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LAST TO BE FETCHED IS THE OATA ADDRESS FIELD OF THE NEW CCW. 
ROH V V+0 READ CCW SECOND HW 

CCW IS NOW ALL FETCHED, READY TO BE TURNED OVER TO USING 1-0 ROUTINE. 

CCW OATA DISTIBUTED AS FOLLOWS — 

GO CONTAINS COMMAND CODE 1=0 IF DATA CHAINED TO PRESENT CCW), 

Gl CONTAINS FLAG/OP BYTE FOR NEW UCWt 

V0/V1 CONTAINS INITIAL OATA ADDRESS, 

U0/U1 CONTAINS INITIAL COUNT, 

D0/D1 CONTAINS UCW ADDRESS+2, 

00 BIT 7=1 IF CURRENT CCW IS NOT FIRST IN CURRENT CHAIN, AND 

NEXT CCW ADDRESS IS IN AUX STORAGE. 

BR IF BURST 
BR IF NO COA FLAG 
ZERO OUT CC AND SLI FLAGS 

STORE UCW FLAGS, OP 

BR IF FROM CHAIN 

GET SAVED CAW KEY-START I/O 

STORE KEY IN UCW 00X6 

GET ASSIGNED KEY FROM UCW 

SET KEY FOR NATIVE 

BR TO DIF NAT 10 STIO 

IF CHANNEL START 1-0, GO ON TO INITIAL SELECTION. 

IF CHANNEL CMD CHAIN, GO ON TO INITIAL SELECTION, THEN RTN FROM TRAP. 

IF CHANNEL DATA CHAIN, OR NATIVE CMD OR DATA CHAIN, RETURN FROM TRAP. 



190 


CHCCW 


BR IF 00 1=1 


165 


NOTNAT 


BR IF Gl BIT0=0 
G1=G1*-K60 
D1=D1*-K06 
STB Gl AS, L>1 
D=D-2 


179 


CHAKEY 


BR IF D07=l 
ROB HI DA, BE 
STB HI AS,0 


180 


SETKEY 


BR 

ROB HI AS,0 

0=0+2 

STPO=Hl 


209 


NATSIO N 


N=D1 BITS23 



199 NOTCOA N 



DCLC 014 ENTRY 

IF NATIVE START 
OPTS 042 PRSIG 
ERDR 053 NRDR 
ERDR 053 NROR 



BR IF CMD IS NZ (IF NOT COA) 
RST COA REQ LTCH 
RETURN FROM TRAP 
EXIT TO INITIAL SELECTION 
BRANCH TO INDIVIDUAL ROUTINES. 

PRINTER START I/O SEC BIT=0 
RDR START 10, SEC BI T=0 
PCH START 10, SEC BIT=0 



BR IF G0=NZ 

RST GB K=80 

RTN G MMSK2=0 

BR 

1-0, 

BR 

BR 

BR 



AOOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, EC 
COMMENTS 



LEVEL^1282U PAGE 160 



1026 A4A2 DCLB 214 NATSIO 3 DYPE 113 TWGFF7 BR TN, START 10, SEC BIT=0 

DCLB 215 * ********* END OF DCHB ( CCW FETCH ROUTINE). ********** 

********************************** 

* CROSS REFERENCE FOR CSECF DCLB * 
********************************** 



DCLB 


004 


DCLA 


109 






OCLB 


006 


DCLB 


0C4 






DCLB 


021 


DCLB 


024 


DCLB 


02 6 


DCLB 


029 


DCLB 


023 






DCLB 


030 


DCLB 


028 






DCLB 


C39 


DPTQ 


037 


DYPE 


155 ECOL 070 


DCLB 


045 


DCLC 


148 






DCLB 


054 


DCLB 


043 


DCLC 


149 


DCLB 


077 


DCLA 


2tl 


OCLB 


031 DCLE 023 


DCLB 


080 


DCLB 


059 


DCLE 


026 


DCLB 


093 


DCLB 


066 


DCLB 


109 


DCLB 


095 


DCLB 


119 






DCLB 


103 


DCLB 


0S5 






DCLB 


1C6 


DCLB 


056 


DCLE 


025 


DCLB 


107 


DCLB 


062 


DCLB 


073 DCLB 075 


DCLB 


110 


DCLB 


089 






DCLB 


111 


DCLB 


C >0 


DCLB 


092 


DCLB 


112 


DCLB 


091 






DCLB 


114 


DCLB 


87 






DCLB 


115 


DCLB 


113 






DCLB 


126 


DCLB 


121 






DCLB 


12B 


DCLB 


124 






DCLB 


165 


DCLB 


144 






DCLB 


179 


DCLB 


175 






DCLB 


180 


DCLB 


178 






uCLB 


190 


DCLB 


142 






DCLB 


191 


D'CLR 


047 






DCLB 


199 


DCLB 


190 






DCLB 


209 


DCLB 


1C3 







DCLB 079 DCLB 081 
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OCLC DESCRIPTIVE TEXT 



CHANNEL INITIAL SELECTION 



THIS ROUTINE PROVIDES THE INITIAL SELECTION SEQUENCE FOR 

DEVICES ATTACHED TO THE STANDARD INTERFACE. THE ROUTINE IS 

VfcRSlONEO ACCORDING TO THE CHANNEL FEATURE, EITHER BYTE 
CHANNEL-0, OR BURST CHANNEL-!. 



BURST CHANNEL ENTRY POINTS 



BYTE CHANNEL ENTRY POINTS 



ENTRY — INITIAL SELECTION ENTRY f OR RESELECTION ENTRY 
IF CHAININGt FOR START I/O OR IPL AFTER 
COMPLETING CCW FETCH IN -DCLB- ROUTINE. 



ENTRY — INITIAL SELECTION ENTRY, OR RESELECTION ENTRY 
IF CHAINING, FOR START I/O OR IPL AFTER 
COMPLETING CCW FETCH IN -DCLB- ROUTINE. 



NUPCIB — ENTRY FOR I/O INTERRUPT OR INACTIVE TEST 
I/O TO GET DEVICE ON THE INTERFACE. 



BEGIN 



ENTRY TO SELECT THE DEVICE FOR HALT I/O, I/O 
INTERRUPT, OR WHEN A CHANNEL ERROR IS DETECTED. 



HLTENT — 



INACTIVE HALT I/O ENTRY TO GET DEVICE ON THE 
INTERFACE. 



ADRABC — FROM CHANNEL LCW-PRI ORI TY-TRAP STATUS ROUTINE 
-DCLE- TO CONTINUE TESTING STATUS. FROM THIS 
POINT, THE ROUTINE CAN EITHER COMMAND CHAIN, 
TRY TO LOAD THE INTERRUPT BUFFER, OR STORE THE 
CSw. 

ADRL1A — FROM -DCLE- STATUS ROUTINE TO TRY LOADING 
THE INTERRUPT BUFFER OR TO STORE THE CSW. 

TRYI8S — FRCM -DCLE- STATUS ROUTINE TO TRY LOADING 

THE INTERRUPT BUFFER. 
ADR22A — ENTRY TO DO A TIMEOUT ON FALL OF OPERAT I ONAL- IN, 

THEN EITHER RETURN FROM TRAP OR GO TO I-CYCLES. 



NOCHE 



IPLCHK 
STATUS 



ENTRY FROM LOW-PRIORITY-TRAP STATUS ROUTINE 
-DCLE- TO EITHER COMMAND CHAIN OR SET UP FOR 
INTERRUPT. 



ENTRY FROM -DCLE- STATUS ROUTINE TO SET UP 
FOR INTERRUPT. 



CSWFRM — FROM INTERRUPT ROUTINE OR TEST I/O ROUTINE TO 
PUT TOGETHER CSW. 

ACTPCI — FROM INTERRUPT ROUTINE TO STORE STATUS IN THE 
CSW FOR ACTIVE PCI. 



auDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 



OAEE 



CI76 



OCLC 


OOl 


T 3 


DCLC 


003 


* 


OCLC 


004 


* 


DCLC 


005 


♦ 


DCLC 


006 


* 


DCLC 


007 


* 


DCLC 


008 


♦ 


DCLC 


009 


* 


DCLC 


010 


. * 


DCLC 


Oil 


* 


DCLC 


012 


* 


DCLC 


013 


ASEQ AL07=6E 


DCLC 


014 


ENTRY 



360 CHANNEL INITIAL SELECTION 



H.E.BERKEBILE 



COUNT FIELD, HI GHORDERB YTE^UO 

COUNT FIELD, LOW ORDER BYTE=Ul 

DATA ADDRESS, HIGH ORDER BYRE=V0 

DATA ADDRESS, LOW ORDER BYTE =Vl 

(CMDI^GO 

FLAGS AND OP BYTE =G1 

TIMEOUT COUNTER = D0 

DEVICE ADDRESS =D1 

Gl=0001 0000 I/O INTERRUPT 

G1=0000 0000 TEST I/O 



018 NOPCIB 



BR IF Gl BIT4=0 



BR IF ?\I0 PCI BIT 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABE 


L STATEMENT 


JAFO 


7602 


DCLC 


015 








STH DA, 88 


UAF2 


2D40 


OCLC 


016 








SET GB K=Q4 


UAF4 


8AF8 


DCLC 


017 




019 


ENTRY2 


BR 


0AF6 


0040 


DCLC 


018 


NOPCIB 






RST GB K=04 


0AF8 


2B80 


OCLC 


019 


ENIRY2 






SET GA K=08 


OAFA 


4F7F 


DCLC 


02 


HLTENT 






GB/OUT=Dl 


OAFC 


2BE4 


DCLC 


021 








SET GA K=28 


OAFE 


2BC4 


DCLC 


02 2 








SET GA K=2C 


OB 00 


C9DD 


DCLC 


02 3 


ADR1 


069 


OPINUP 


BR IF GT BIT 4=1 


0B02 . 


FOAI 


DCLC 


024 




039 


CUBUSY 


BR IF GT BIT3=1 


OB 04 


2 62B 


DCLC 


025 








D0=D0+K02 


0B06 


E600 


DCLC 


026 




023 


ADR1 


BR IF DO BIT2=0 


0BQ8 


05C3 


OCLC 


02 7 


SLIN 






Z=G1*-K0C 


OBOA 


FC94 


DCLC 


02 8 




033 


ADR2 8 


BR IF LZNZ 


06 OC 


F514 


DCLC 


02 9 




033 


ADR28 


BR IF Gl BIT3=0 


oboe 


2323 


DCLC 


03 








V1=0$K02 


OB 10 


2207 


DCLC 


031 








V0=0 


OB 12 


8B3A 


UCLC 


032 




052 


ADR33C 


BR 


OB 14 


DD9F 


DCLC 


03 3 


ADR28 


038 


INFCHK 


BR IF GT BITl=l 


OB 16 


2B00 


DCLC 


034 


ADR 2 9 






SET GA K=00 


OB 18 


F21F 


DCLC 


035 




038 


iNFCHK 


BR IF DO BIT7=1 


OB1A 


C.3CB 


DCLC 


036 




060 


IPL002 


BR IF BA BIT4=1 


OB 1C 


AAF4 


DCLC 


037 


ADR30 


CCOM 165 


CC3B 


BR 


OB IE 


A254 


DCLC 


038 


INFCHK 


DCLR 117 


INFCHK 


BR 


U8 20 


5F4F 


DCLC 


039 


CUBUSY 






G0=GB/ IN 


Ob22 


FC9F 


DCLC 


040 




038 


INF CHK 


BR IF GS BIT 3=1 


OB 24 


2B84 


DCLC 


041 








SET GA K=28 


OB26 


E61F 


DCLC 


042 


ADRiO 


038 


INFCHK 


BR IF DO BiT2=l 


OB 2 8 


FDAE 


DCLC 


043 




046 


ADR9 


BR IF GT BIT3=0 


0B2A 


262B 


DCLC 


044 








D0 = D0+K02 


OB2C 


FCA7 


DCLC 


045 




042 


ADRIO 


BR IF GT BIT3=1 


062E 


2680 


DCLC 


046 


ADR9 






SET GA K=08 


OB 30 


F21F 


DCLC 


047 




038 


INFCHK 


BR IF DO BIT 7=1 


OB 32 


E149 


DCLC 


048 




059 


STRTIO 


BR IF Gl BIT 6=1 


OB 34 


F149 


DCLC 


049 




059 


STRTIO 


BR IF Gl BIT7=1 


0B36 


5429 


DCLC 


050 


A0R33 






VO=GO 


OB 38 


2307 


DCLC 


051 


ADR33B 






Vi-0 


0B3A 


72A2 


DCLC 


052 


ADR33C 






STH V DA, AC 


0B3C 


2B00 


DCLC 


053 








SET GA K=00 


0B3E 


2400 


DCLC 


054 


A0R34 






SET MODE K=00 


0840 


5EA2 


DCLC 


055 








RDH H DA, AC 


0B42 


2A07 


DCLC 


056 








T0 = 


0B44 


A01E 


DCLC 


057 




CCOM 123 


STATOS 


BAL 


OB 46 


AF44 


DC LC 


058 




DCLT 041 


INTRTX 


BR 


0B48 


C3U8 


OCLC 


059 


STRTIO 


067 


AOREBR 


BR IF BA BIT4=0 


0B4A 


875A 


DCLC 


060 


IPL002 


OCLL 021 


IPLSTP 


BR 


0B4C 


F537 


OCLC 


061 


A0R32 


050 


ADR33 


BR IF Gl BIT3=1 


0B4E 


5449 


DCLC 


062 








G0 = G0 


0B50 


C4B6 


DCLC 


063 




050 


ADR33 


BR IF ZNZ 


0B52 


2B00 


DCLC 


064 








SET GA K=00 


OB 54 


B362 


DCLC 


065 


ADR33A 


CCOM 154 


CCOB 


BR 


OB 56 


2B84 


DCLC 


066 


HALTIO 






SET GA K=28 


0858 


2307 


DCLC 


067 


AOREBR 






V1 = 
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COMMENTS 

STORE UNIT IDENT IN INT BUFFER 
SET INT BUFFER LATCH 

RESET IB LTCH 

SET INL SELECT LATCH 
PUT ADR ON BUS OUT 
SET ADDR-OUT 

SET SEL-0 AND ADR-0 
BR IF OP IN UP 
BR IF STA-IN UP 
INCREMENT COUNTER 
BR IF NO TIMEOUT 
MASK Gl BITS6 AND 7 
BR IF START I/O 
BR IF TEST I/O 
SET INTFCE CTRL CHECK 
SET 00 UNIT STATUS 

BR IF SEL IN DOWN 

RESET ALL TAGS OUT 

BR IF CHAINED-TO CCW 

BR IF IPL 



BUSS IN TO GO 

BR IF PARITY ERROR 

DROP SEL-OUTfKEEP ADR-OUNL SEL 

BR IF TIMEOUT 

BR IF STA-IN DOWN 

INCREMENT COONTER 

BR IF STA-IN STILL UP 

DROP ADR-OUT ,KEEP INL SEL ON 

BR IF CHAINED-TO CC W 

BR IF 

START I/O 
MOVE UNIT STATUS TO VO 
SET 00 CHANNEL STATUS 
SAVE STATUS 
DROP ALL TAGS OUT 

RESTORE CHANNEL STATUS 

BAL TO RTHE TO STORE CSW 

RTN FROM BAL FOR I/O INT ONLY 

BR IF NOT IPL 

GO TO IPL STOP 

BR IF I/O INTERRUPT 

BR IF STA NZ 

RESET INL SEL 
SET CON CODE & RTN TO ICYC 
RAISE ADR-0 AND DROPSEL-0 
CHNL STATUS = 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


GB5A 


A78A 


OCLC 


068 




154 


ADRE 


BR 


U85C 


2BC0 


DCLC 


069 


OPINUP 






SET GA K=OC 


085E 


0D1G 


DCLC 


070 








RST GB K=01 


0860 


E61F 


DCLC 


071 


ADR2 


038 


INFCHK 


BR IF DO BIT2=1 


0862 


CDE9 


DCLC 


072 




075 


ADINUP 


BR IF GT BIT0=1 


0864 


262B 


DCLC 


073 








DQ=D0+K02 


0866 


COEO 


DCLC 


074 




071 


ADR2 


BR IF GT BIT0=0 


0868 


4F4F 


DCLC 


075 


ADINUP 






GB/OUT=GO 


086A 


5F4F 


DCLC 


076 








GO=GB/IN 


086C 


FC9F 


DCLC 


077 




038 


INFCHK 


BR IF GS BIT3=l 


0B6E 


6471 


DCLC 


078 








GO=GOnDl 


0870 


C49E 


DCLC 


079 




038 


INFCHK 


BR IF ZNZ 


0872 


054B 


DCLC 


080 








Z=GlnK04 


0874 


C4D7 


DCLC 


081 




066 


HALT 10 


BR IF Z=0 


0876 


2BC2 


DCLC 


082 








SET GA K=IC 


0678 


9EG6 


DCLC 
DCLC 


083 
084 


AEND 


085 


ADR3 


BR 


LE06 


£605 


DCLC 


085 


ADR3 


112 


INFCKK 


BR IF DO BIT2^1 


IE08 


FD8F 


DCLC 


086 




089 


STINUP 


BR IF GT BIT3=i 


160A 


262B 


DCLC 


087 








D0=D0*K0 2 


ieoc 


FD86 


DCLC 


088 




085 


ADR3 


BR IF GT BIT3=0 


1E0E 


5F4F 


DCLC 


089 


STINUP 






GO=GB/IN 


lfclO 


FCE5 


DCLC 


090 




112 


INFCKK 


BR IF GS BIT3=l 


1612 


£123 


DCLC 


091 




099 


NOTTS! 


BR IF Gi BIT6*1 


lti4 


F123 


DCLC 


092 




099 


NOTTST 


BR IF Gl BIT 7=1 


IE 16 


2888 


DCLC 


093 


TSTIS 






SET GA K=48 


Ifci8 


E6C5 


DCLC 


094 


ADR31 


112 


INFCKK 


BR IF DO BIT2=i 


1E1A 


C9A0 


DCLC 


095 




098 


ADR32B 


BR IF GT BIT4=0 


1EIC 


2628 


DCLC 


096 








DO=D0+K02 


1E1E 


C999 


DCLC 


097 




094 


ADR31 


BR CF GT BIT4=l 


1E20 


8B4C 


DCLC 


098 


ADR32B 


061 


ADR32 


BR 


1E22 


C4BE 


DCLC 


099 


NOTTST 


114 


NZSTA 


BR IF ZNZ 


1E24 


F233 


DCLC 


100 


ZEROST 


107 


NOBUFF 


BR IF 007=1 


1E26 


2DC4 


DCLC 


101 








SET GB K=20 


1E28 


3685 


DCLC 


102 








00=DO$K80 


162A 


7632 


DCLC 


103 








STH D DA,8E 


it2C 


1685 


DCLC 


104 








D0=D0*-K80 


1E2E 


0134 


DCLC 


105 




108 


NOTBUF 


BR IF Gl BIT5=0 


1E30 


2DC2 


DCLC 


106 








SET GB K=10 


1E32 


1543 


DCLC 


107 


NOBUFF 






G1=G1*-K04 


1E34 


2B48 


DCLC 


108 


NOTBUF 






SET GA K=44 


IE 36 


1635 


DCLC 


109 








D0=D0*-K30 


1E38 


C38D 


DCLC 


110 


IPLBR 


113 


IPLOOl 


BR IF BA BIT4=1 


1E3A 


A7G0 


DCLC 


111 




189 


ADR24 


BR 


1E04 


A254 


DCLC 


112 


INFCKK 


DCLR 117 


INFCHK 


BR 


1E3C 


8A0G 


DCLC 


113 


IPLOOl 


DCLL 019 


IPLWTL 


BR 


1E3E 


C05G 


DCLC 


114 


NZSTA 


123 


NOCHE 


BR IF GO 8IT4=0 


IE 40 


F451 


DCLC 


115 




123 


NOCHE 


BR IF GO BIT3=i 


IE42 


2004 


DCLC 


116 








SET GB K=20 


1E44 


014A 


DCLC 


117 




120 


NTBFX 


BR IF Gl BIT5=0 


IE 46 


1543 


DCLC 


118 








G1=G1*-K04 


1E48 


2D02 


DCLC 


119 








SET GB K=10 


1E4A 


2285 


DCLC 


120 


NTBFX 






V0=0$K80 
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GO SET I/O 
RESET A 
RSF SUP 
BR IF TIMEO 
BR IF ADR- I 
INCREMENT C 
BR IF ADR-I 
PUT CMD ON 
PIT DEVICE 
BR IF PARIT 
COMPARE ADD 
BR IFADR MI 
TEST FOR HA 
BR IF HLT I 
SET CMD 



INTERRUPT 
DR-0 
R OUT 
UT 

N UP 
OONTER 
N NOT UP V 
BUSS OUT 
ADR IN GO 
Y ERROR 
RESS 
SMATCH 
LT I/O 
/O 
-0 



BR IF TIMEOUT 

BR IF STA-IN UP 

INCREMENT COONTER 

BR IF STA-IN NOT UP YET 

GO=STATUS ON BUSS-IN 

BR IF PARITY ERROR 

BR IF 

START I/O 

SET SRV-OUT,INLSELUP 
BR IF TIMEOUT 
BR IF OP-IN DOWN 
INCREMENT TMOUT CNTR 
BR IF OP-IN STILL UP 

BR IF NZ UNIT STATUS 

BR IF CHAINED TO CCW 

TURN ON BURST LATCH 

TURN ON BURSTCH/FILE ACTIVE BIT 

STORE STATS 

RESTORE DO TO ORIGINAL VALUE 

BR IF NOT BUFFERED DEVICE 

TN ON 8UF DEV LTCH 
RESET BUFFERED DEV INDICATOR 
SET SRV-OUT &KEEP SEL-OUT UP 
RST 2 HI BITS OF TMOUT CNTR 
BR IF I PL 



BR IF NO CH.E. BIT 
BR IF BSY BIT IN STAT 

TURN ON BURST LATCH 
BR IF NOT BUFFERED DEVICE 
RESET BUFFERED DEVICE INDICATOR 
SET BUFFERED DEVICE LATCH 
TURN ON BURSTCH/FILE ACTIVE BIT 



AD OR 

1E4C 
1E4E 
1E50 
1E52 
it54 
LE56 
IE58 
1E5A 
IE5C 
1E5E 
1E60 
1E62 
1E7A 
1E7C 
1E7E 
1E80 
1E82 
1664 
IE66 
itbB 
1E6A 
1E6C 
1E6E 
IE70 
1E72 
1E74 
1E76 
1E78 
IE02 
2782 
2784 
2786 
2788 
278A 
278C 
278E 
2790 
2 7 92 
2 794 
2796 
2 798 
279A 
2 7 9C 
279E 
27A0 
27A2 
27A4 
2 7A6 
27AA 
27AC 
27A6 
27B0 
27B2 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



23C7 
7232 
23C7 
C56 1 
D562 
04C7 
C4E2 
C463 
D065 
CC7B 
15C5 
A782 
2D10 
2648 
2405 
1573 
SE38 
2D10 
2B88 
E6C5 
C9F0 
262B 
C9E9 
2645 
3613 
5212 
D402 
93D6 
9 30 A 
C386 
8760 
F22B 
2B88 
5429 
C110 
3385 
7222 
2B00 
2CC7 
7032 
0004 
E629 
C9A2 
262B 
C99B 
2400 
5E22 
A030 
5429 
5349 
ECC5 
08C4 
A7B4 



OCLC 
DCLC 
DCLC 
DCLC 
DCLC 
OCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
OCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
OCLC 
DCLC 
OCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 



121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 



NOCHE 
ADRABC 



CCFLON 

ADRli 

ADR12 



DECHTP 
A0R15 

ADR14 



NOINCR 
ADR11A 

NTIPL2 

ADRE 

ADR16 



ADR18 



ADR 17 



NZSIXC 



TRYiBS 



131 
132 

132 
132 

138 
133 



112 

144 



149 

DCLB 045 
DCLB 054 

152 
DCLL 024 

169 



174 
166 



CCFLON 
A0R11 

ADRli 
ADRli 
DECHTP 
ADR12 



150 ADRUA 



110 1PLBR 



INFCKK 
ADR14 



140 ADR15 



NOINCR 

SKIP 

RDHW1X 

NTIPL2 

IPLSTB 

N2STCC 



157 ADR16 



INFCKX 
A0R17 



162 ADR18 



CCOM 135 STATUS 



175 
175 
183 



ADR20 
A0R20 
A0R22 



Vl = 

STH V DA,8£ 

Vi=0 

BR IF Gl 8IT0=1 

BR IF Gi BIT 1=0 

Z=G0*-KCC 

BR IF ZNZ 

BR IF GO BIT0=1 

BR IF GO 8If5=l 

BR IF GO BIT4=1 

G1=G1*-KC0 

BR ♦♦TO NOT CHAIN 

SET GB K = 01 

SET GA K=44 

GO=0$KOO 

G1=G1*-K07 

BR 

SET GB K=01 

SET GA K=48 

BR IF DO BIT2=1 

BR IF GT BIT4=0 

D0=D0+K0 2 

BR IF GT BIT4=i 

00=0$ K40 

D0=D0$K01 

RDH V DA,8A 

BR IF GO BIT 1=0 

BR 

BR 

BR IF 8A BIT4=0 

BR 

BR IF DO BIT 7=1 

SET GA K=48 

V0=G0 

BR IF Gl BIT4=0 

V1=V1$K80 

STH V DA,8C 

SET GA K=00 

U0=0 

STH U DA,8E 

RST GB K=20 

BR IF DO BIT 2= I 

BR IF GT B!T4=0 

D0=D0+K02 

BR IF GT BIT4=i 

SET MODE K=00 

ROH H DA,8C 

BR 

V0=G0 

G0=Vi 

BR IF GS BIT2=1 

BR IF GS 8IT5=0 

BR 
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STORE STATS 
CHNL STATUS = 
BR IF CDA FLG ON 
BR IF CCFLG =0 

BR IF 8A0 STATUS 
BR IF BAD STATUS 
BR IF DEVICE END 
BR IF CHNL END 
CDA FLG ON - 8RK CHAINING 
ING OR BAD STATUS RTNE 

SET SUPR OUT 

SET SERVICE OUT 
G0=00 CHNL STATUS 
RST COOED OP BITS 

SET SUPR OUT 

SET SRV-OUT 
BR IF TIMEOUT 
BR IF OP IN DOWN 
INCREMENT TMQUT CNTR 
BR IF OP-IN STILL UP 
RESET TMOUT CNTR AND SET 

UP DO TO CHAIN 
RD OUT NXT CCH ADR 
BR IF NO STATUS MODIFIER 
GO INCR CCW ADR+8 BEFORE CHAIN 
NO CCW INCR NECESSARY-DO CHAIN 
BR IF NOT I PL 
BR TO IPL STA RTNE 
BR IF CHAINEO-TO CCW 

SEND SRV-Q 
PUT UNIT STA IN VO 
BR IF PCI FLG OFF 
PUT PCI BIT IN CH STA 
TEMP STORE STATUS 

RESET INL SELECT 

AUX008E = 0000 — RST STATS 

RESET BURST LATCH 
BR IF TIMEOUT 
BR IF OP-IN DOWN 
INCREMENT TMOUT COUNTER 
BR IF OP-IN STILL UP 

RD OUT UNIT &CHNL STATUS 
BR TO STORE CSW ROUTINE 
XFER STATUS TO VO 
GO = CHNL STATUS 
BR IF BURST LTCH ON 
BR IF IBLTCH = 
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AD OR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, EC LEVEL=128211 

COMMENTS 
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27A8 


A254 


DCLC 


174 


INFCKX 


DCLR 


117 


INFCHK 


BR 


27C4 


1635 


DCLC 


175 


ADR20 








D0-D0*-K30 


27C6 


7602 


DCLC 


176 










STH D DA,88 


27C8 


3413 


DCLC 


177 










G0=G0$K01 


27CA 


2D40 


DCLC 


178 










SET GB K=04 


27CC 


ECB4 


DCLC 


179 






183 


ADR22 


BR IF GS BIT 2=0 


27CE 


2B08 


DCLC 


180 










SET GA K=40 


27DO 


3413 


DCLC 


181 










G0=G0$K01 


27D2 


A7B8 


DCLC 


182 






185 


ADR23 


BR 


27B4 


2B02 


DCLC 


183 


ADR22 








SET GA K=10 


27B6 


1633 


DCLC 


184 


ADR22A 








DO=D0*-K30 


27B8 


E629 


DCLC 


185 


ADR23 




174 


INFCKX 


BR IF DO BIT2=i 


27BA 


C9C0 


DCLC 


186 






189 


ADR24 


BR IF GT BIT4=0 


27BC 


262B 


DCLC 


187 










DQ=D0*K02 


27BE 


C9B9 


DCLC 


188 






185 


ADR23 


BR IF GT BIT4=1 


27C0 


E680 


DCLC 


189 


ADR24 




191 


ADR25 


BR IF MMSK2=G 


27C2 


0244 


DCLC 


190 










RTN G MMSK2=0 


2780 


A162 


DCLC 
DCLC 


191 
192 


ADR25 

* 


DCHN 


092 


MODRST 


BR 






DCLC 


193 


ATABLE 


ADDR=0084 






0084 


C80C 


DCLC 
DCLC 


194 
195 


C 
AEND 








XAUX'OBOCODOE^ 






DCLC 


196 


ATABLE 


ADDR-0094 






0094 


0F15 


DCLC 

DCLC 


197 

198 


C 

AEND 








XAUX«0F1518FF* 



DCLC 
DCLC 
UCLC 
DCLC 
DCLC 
DCLC 
OCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
OCLC 



STORE UNIT I DENT HWD IN IB 
TURN ON STATUS RECD B 

TURN ON IB LATCH 
BR IF BRST LTCH OFF 

SRV-0 ACCEPT STATUS 

TURN ON STA RECD BIT 



CMD-O- 



-QUE STATUS 



BR IF TIMEOUT 
BR IF OP IN DOWN 
INCREMENT TMOUT COUNTER 
BR IF OP-IN STILL UP 
BR IF NOT IN TRAP 
RETURN FROM TRAP 
RTN TO I CYCLES 



BUFFERED DEVICE STANDARD ADDRESS 



BUFFERED DEVICE STANDARD ADDRESS 



********************************** 

* CROSS REFERENCE FOR CSECT DCLC * 
********************************** 



014 
018 
019 
020 
023 
033 
038 
039 
042 
046 
050 
052 
059 
060 
061 
066 
067 
069 
071 
075 
085 
089 
094 
098 
099 



DCLB 199 
DCLC 014 
DCLC 017 
DCLH 014 
DCLC 026 
DCLC 028 
DCLC 033 
DCLC 024 
DCLC 045 
DCLC 043 
DCLC 061 
DCLC 32 
OCLC 048 
DCLC 036 
DCLC 098 
DCLC oei 
DCLC 059 
DCLC 023 
DCLC 014 
DCLC 072 
DCLC 063 
DCLC 086 
DCLC 097 
DCLC CS5 
DCLC 091 



DCLH 015 



DCLC 029 
DCLC 035 



DCLC 063 



DCLC 049 



DCLC 040 DCLC 042 DCLC 047 DCLC 071 DCLC 077 DCLC 079 



DCLC 088 



DCLC 092 
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********************************** 

* CROSS REFERENCE FOR CSECT OCLC * 
********************************** 



DCLC 
OCLC 
DCLC 
DCLC 
DCLC 
OCLC 
OCLC 
OCLC 
OCLC 
OCLC 
OCLC 
OCLC 
OCLC 
OCLC 
OCLC 
OCLC 
DCLC 
OCLC 
DCLC 
DCLC 
DCLC 
OCLC 
OCLC 
OCLC 
OCLC 
OCLC 
OCLC 
OCLC 
OCLC 
DCLC 
OCLC 



107 
108 
110 
112 
113 
114 
120 
123 
125 
131 
132 
133 
138 
140 
144 
149 
150 
152 
154 
157 
162 
166 
169 
172 
174 
175 
183 
184 
185 
189 
191 



OCLC 100 

OCLC 105 

OCLC 137 

OCLC 085 

OCLC 110 

DCLC 099 

DCLC 117 

OCLC 114 

DCLE 073 

OCLC 124 

OCLC 125 

DCLC 130 

DCLC 129 

OCLC 143 

DCLC 141 

OCLC 147 

DCLC 132 

DCLC 150 

DCLC 068 

OCLC 155 

OCLC 165 

OCLC 163 

DCLC 152 

DCLE 055 

DCLC 162 

DCLC 171 

DCLC 173 OCLC 179 

DCLR 056 

DCLC 182 

DCLC Hi 

DCLC 1C9 



DCLC 090 DCLC 094 DCLC 140 



DCLC 115 



DCLC 127 DCLC 128 



DCLE 070 



OCLC 185 
DCLC 172 



DCLC 188 
DCLC 186 



DCLD DESCRIPTIVE TEXT 
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CHANNEL DATA LOOP 

THIS ROUTINE PROVIDES THE DATA LOOP FOR EITHER THE BYTE 

CHANNEL-0 OR BURST CHANNEL-1, DEPENDING ON WHICH CHANNEL 
OPTION IS LOADED IN CONTROL STORAGE. 



BYTE CHANNEL ENTRY POINTS 

ENTRY — COMMON ENTRY INTO A LOOP THAT CHECKS FOR THE 
RISE OF SERVICE-IN, STATUS-IN, OR THE FALL OF 
OPERATIONAL-IN. THIS ENTRY INITIALIZES THE 
TIMEOUT COUNTER. 



LOOP 



BURST CHANNEL ENTRY POINTS 

0170 — TRAP ENTRY FOR DATA SERVICE ON NON-BUFFERED 
DEVICE* 

QPBRCH — ENTRY FROM LOW-PRIORI TY-TRAP ROUTINE -DCLE- 
FOR BUFFERED DEVICES. 

OECCNT — FROM -DCLR- ROUTINE AFTER CHANNEL STATUS IS 

SET FOR PROTECTION CHECK OR STORAGE WRAP CHECK, 
PURPOSE OF ENTRY IS TO DECREMENT COUNT, THEN 
RETURN FROM TRAP OR GO TO I-CYCLES. 



SERV 



— SAME AS -ENTRY- 
NOT INITIALIZED, 



EXCEPT TIMEOUT COUNTER IS 



RESET — FROM LOW-PRIORI TY-TRAP ROUTINE -DCLE- OR 

CHANNEL ERROR ROUTINE -DCLR- TO RESET TAGS- 
OUT, THEN EITHER RETURN FROM TRAP OR GO TO 
1-CYCLES. 



FROM -DCLE- STATUS ROUTINE WHEN THE DEVICE 
REQUESTS SERVICE. 



DECREM — FROM -DCLR- CHANNEL ERROR ROUTINE AFTER 

CHANNEL STATUS IS SET FOR PROTECTION CHECK OR 
STORAGE WRAP CHECK. PURPOSE OF ENTRY IS TO 
DECREMENT COUNT, THEN RETURN FROM TRAP. 



AQDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 







DCLD 


001 


T 




CHANNEL DATA 


LOOP 






DCLD 


009 


ATABLE 


ADDR=0170 






0170 


2240 


DCLD 


010 


LABEL 








LINK G MMSK0=1 


0172 


8153 


DCLD 
DCLD 


Oil 
012 


OPBRCH 
AEND 




013 


OP N 


N=G1 BITS67 


01C0 


8IEC 


DCLD 


013 


OP 





035 


EXPSTA 


BR 


01C2 


8 IDC 


DCLD 


014 


OP 


1 


027 


OUTPUT 


BR 


01C4 


F554 


DCLD 


015 


OP 


2 


023 


RDFWD 


BR IF Gl BIT3=0 


01C6 


F551 


DCLD 


016 


OP 


3 


021 


SKIP 


BR IF Gl BIT3«i 


0LC8 


7F3E 


DCLD 


017 










STB GB/IN V-l 


01CA 


5006 


DCLD 


018 


OECCNT 








UNU-l 


oicc 


C4E3 


DCLD 


019 






030 


CTZERO 


BR IF Z=0 


OICE 


0240 


DCLD 


020 










RTN G MMSK0=0 


01D0 


2B48 


DCLD 


021 


SKIP 








SET GA K=44 


0102 


81CA 


DCLD 


022 






018 


DECCNT 


BR 


01 D4 


7F3C 


DCLD 


023 


RDF WD 








STB GB/IN V*l 


01D6 


5006 


DCLD 


024 










U=U-1 


0108 


C4E3 


DCLD 


02 5 






030 


CTZERO 


BR IF Z=0 


010A 


0240 


DCLD 


02 6 


CTNZ 








RTN G MMSK0=0 


010C 


5F3C 


DCLO 


027 


OUTPUT 








RDB GB/OUT V*l 


01DE 


5006 


DCLD 


02 8 










U=U-l 


01E0 


C40A 


DCLD 


029 






026 


CTNZ 


BR IF ZNZ 



COMMENTS 

H.E.BERKEBILE 

FIRST WORD OF TRAP 
BR ON OP 

COUNT=0 AND STATUS EXPECTED 
OUTPUT COMMAND 
BR IF SKIP FLAG IS 
BR IF SKIP FLAG IS 1 
STORE BUS IN, ADR -1 
COUNT FIELD -1 
BR IF COUNT = 
RETURN FORM TRAP 
SET SRV-OUT 

STORE BUS IN, ADR «-l 

DECREMENT COUNT BY 1 

BR IF COUNT HAS GONE TO ZERO 

RETURN FORM TRAP 

RD OUT TO BUS-0,ADR+1 

COUNT -I 

BR IF COUNT IS NOT YET ZERO 



ADDR 


*GRD SEQUENCE NO. 


LABEL 


01E2 


C569 DCLD 


030 


CTZERO 


01E4 


1573 DCLD 


031 




0166 


0240 DCLD 


032 




01E8 


3D00 DCLD 


033 


CTCDA 


OiEA 


0240 DCLD 


034 




oiec 


2B42 DCLD 


035 


EXPSTA 


Q1EE 


0169 DCLD 


036 




OlFO 


3543 DCLD 


037 




01F2 


0240 DCLD 


038 




UCLO 


Oil DCLE 031 






DCLD 


013 DCLD Oil 






DCLO 


018 DCLD 022 


DCLR 


112 


OCLD 


021 DCLD 016 






OCLO 


023 DCLD 015 






DCLD 


026 DCLD 029 






OCLD 


027 DCLD 014 






DCLD 


030 DCLD 019 


DCLD 


025 


DCLD 


033 DCLD 030 


DCLD 


036 


DCLD 


035 DCLD 013 







NEXTSEQ NEXTLABEL STATEMENT 



033 CTCDA 



BR IF Gl BITO=l 
Gi=Gl*-K07 
RTN G MMSKO=0 
SET GB K*80 
RTN G MMSK0*0 
SET GA K*14 
033 CTCDA BR IF Gl BlT5^i 

G1=G1$K04 
RTN G MMSKO-0 

******************* *************** 

* CROSS REFERENCE FOR CSECT DCLD * 
********************************** 



CL0AD^*E60, EC LEVEL=128211 
COMMENTS 

BR IF CD FLAG 

SET CT=0 INDICATION 

RETURN FORM TRAP 

SET CDA REQ 
RETURN FORM TRAP 

SET CMD OUT 
BR IF CMD SET PRE V 
Gl BIT5=i CMD-Q GIVE 
RETURN FORM TRAP 
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DCLE DESCRIPTIVE TEXT 



CHANNEL LOW PRIORITY TRAP STATUS ROUTINES 

BYTE CHANNEL 

WHEN THE BYTE CHANNEL OPTION IS LOADED IN CONTROL STORAGE, 
THIS ROUTINE HANDLES ALL TRAPS — EITHER DATA SERVICE OR 
STATUS. 

BYTE CHANNEt ENTRY POINTS 

0180 — LOW-PRIORITY TRAP-ADDRESS FOR DATA OR STATUS. 

STATUS — FROM ENTRY LOOP OF -DCLD- WHEN STATUS-IN 
RISES. THIS PORTION OF -DCLE- HANDLES 
STATLS. 



BURST CHANNEL 

WHEN THE BURST CHANNEL OPTION IS LOADED IN CONTROL STORAGE, 
THIS ROUTINE HANDLES TRAPS FOR EITHER — 

1. DATA SERVICE - BUFFERED DEVICE, OR 

2. STATUS - ANY DEVICE. 

BURST CHANNEL ENTRY POINTS 

0180 — LOW-PRIORITY TRAP-ADDRESS AS DESCRIBED ABOVE. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXT: 


SEQ 


NEXTLABEL 


STATEMENT 






DCLE 


001 


T 




CHANNEL LOW 


PRIORITY TRAP ST 






DCLE 


009 


ATABLE 


ADDR=0180 






0180 


2244 


DCLE 


010 










LINK G MMSK2*1 


0182 


3613 


DCLE 


Oil 










D0=D0$K01 


0184 


CCA4 


OCLE 


012 






028 


ADR40 


BR IF GS BITO=0 


0186 


D123 


DCLE 


013 






027 


ADR41 


BR IF Gi BIT5=1 


0188 


5212 


DCLE 


014 










RDH V DA,8A 


018A 


5038 


OCLE 


015 










RDH U V«-2 


018C 


008B 


DCLE 


016 










Z=U0QK08 


018E 


FOAG 


DCLE 


017 






026 


NOTIC 


BR IF LZNZ 


0190 


5119 


DCLE 


018 










Ul=Ul 


0192 


C49C 


DCLE 


019 






024 


PRGERD 


BR IF ZNZ 


0194 


5230 


DCLE 


020 










RDH V V+0 


0196 


0383 


DCLE 


021 










Z=V1*-K0 8 


0198 


FC9C 


OCLE 


022 






024 


PRGERD 


BR IF LZNZ 


019A 


93F4 


DCLE 


023 




DC LB 


077 


RDHW1 


BR 


019C 


5212 


DCLE 


024 


PRGERD 








RDH V CA,8A 


019E 


93C2 


DCLE 


025 




DCLB 


106 


PRGERC 


BR 


01A0 


93FA 


DCLE 


026 


NOTIC 


DCLB 


080 


NOTIC 


BR 


01A2 


A254 


DCLE 


027 


ADR41 


DCLR 


117 


INFCHK 


BR 


01A4 


9A34 


DCLE 
DCLE 


02 8 
02 9 


ADR40 
AEND 




030 


ADR40B 


BR 


1A34 


EDBO 


DCLE 


030 


A0R40B 




032 


ADR40A 


BR IF GT BIT 2=0 


1A36 


8172 


DCLE 


031 




DCLD 


Oil 


QPBRCH 


BR 


1A30 


FDB8 


DCLE 


032 


ADR40A 




034 


NTSTIN 


BR IF GT BIT3=0 


1A32 


929E 


DCLE 


033 






058 


CHESTA 


BR 


1A38 


2B4C 


DCLE 


034 


NTSTIN 








SET GA K=04 


1A3A 


2645 


DCLE 


035 










00=0$ K40 


1A3C 


3613 


DCLE 


036 










D0=D0$K01 



COMMENTS 



TRAP WORD-SET PRIORTY 

SET SOURCE OF ENTRY INDICATOR 

BR IF CDA REQ = G 

BR IF ICC DETECTED 

READ OUT NEXT CCW ADR 

READ CCW HWD 1 

TEST COMMAND FOR TIC 

BR IF NOT A TIC 

BR IF TIC ADDR TOO BIG 

RD OUT NEW CCW ADDR 

CHECK FOR DOUBLE WORD BOUNDARY 



READ OUT NEXT CCW ADR 
INCR CCW ADR IN DCLB £BR TO DCLR 
BR TO DCLB £ CONTINUE CCW FETCH 
BR TO INTFCE CTRL CHECK RTNE 



BR IF NO SRV-IN 

BR IF STA-IN=0 

STATUS IS CHANNEL END TYPE 

SET SEL OUT 
SET DO 
TO 41 



ADUK 

1A3E 
12BB 
12BA 
12BC 
12BE 
12C0 
12C2 
12C4 
129C 
1288 
128A 
128C 
128E 
1290 
1292 
1294 
1296 
1298 
129A 



129E 
12A0 
12A2 
12A4 
12A6 
12A8 
12AA 
12AC 
12AE 
12BQ 
12B2 
12B4 
12B6 
1282 
1284 
1286 



NOR0 SEQUENCE NO. 



92B8 
CD89 
262B 
€089 
E638 
DD90 
2B00 
0244 
A254 
5F7F 
FC9D 
2007 
4F0F 
2BC2 
E61D 
FD9B 
262B 
F092 
A7B0 



FCA4 
00C2 
3483 
5439 
C52A 
1565 
5F4F 
FC9D 
E503 
.0583 
FC83 
3345 
A782 
0313 
C4B6 
9E54 



OCLE 
OCLE 
DCLE 
OCLE 
OCLE 
DCLE 
DCLE 
OCLE 
DCLE 
OCLE 
OCLE 
DCLE 
OCLE 
OCLE 
DCLE 
OCLE 
DCLE 
OCLE 
DCLE 
OCLE 
DCLE 
DCLE 
OCLE 
OCLE 
DCLE 
OCLE 
OCLE 
OCLE 
OCLE 
OCLE 
DCLE 
DCLE 
OCLE 
DCLE 
OCLE 
OCLE 
OCLE 



037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 



LABEL 



ADR43 



NEXfSEQ NEXTLABEL STATEMENT 



INFCHK 
AQR44 



A0R47 

A0R46 
CHESTA 
ADR48 
NCCRST 



ADR51 
A0R50 



DCLE 
DCLE 
DCLE 
DCLE 
OCLE 
DCLE 
DCLE 
OCLE 
DCLE 
OCLE 
DCLE 
OCLE 
DCLE 



024 
026 
027 
028 
030 
032 
034 
038 
045 
046 
051 
055 
058 



OCLE 019 
OCLE 017 
OCLE 013 
OCLE 012 
OCLE 028 
OCLE 030 
OCLE 032 
DCLE 037 
DCLE 042 
OCLE 038 
DCLE 054 
OCLE 052 
OCLE 033 



OCLE 022 



038 
046 

046 
038 
045 



DCLR 117 

045 



045 
055 

051 
OCLC 172 



ADR43 
ADR44 

A0R44 
ADR43 
INFCHK 



INFCHK 



INFCHK 



INFCHK 
ADR46 

A0R47 
TRYIBS 



BR 

SR IF GT BIT0=1 

00= DO +K 02 

BR IF GT BIT0=1 

BR IF DO BIT2=0 

BR IF GT BIT 1=1 

SET GA K=00 

RTN G MMSK2=0 

BR 

01=GB/IN 

BR IF GS BIT3=1 

U0 = 

GB/0UT=U0 

SET GA K=10 

BR IF DO BIT2=i 

BR IF GT BIT 3=1 

D0=D0+K02 

BR IF GT BIT 3=0 

BR 



061 ADR48 BR IF GS BIT 3=0 

RST GB K=10 

G0=G0$K08 

V1 = G0 
064 NCCRST BR IF Gl BITO=0 

G1=G1*-K60 

GO=GB/IN 
045 INFCHK QR IF GS BIT3=i 

071 A0R50 BR IF Gl 8IT2=l 

Z=G1*-K08 
071 ADR50 BR IF LZ=0 

V1=V1$K40 
DCLC 150 A0R11A BR 

Z=V1*-K01 

070 A0R51 BR IF ZNZ 

OCLC 125 AORABC BR 

********************************** 

* CROSS REFERENCE FOR CSECT DCLE * 
********************************** 



CLQAD=*E60» EC LEVEL = 1282 11 

COMMENTS 



BR IF AOR IN UP 

INCREMENT TMOUT COUNTER 

BR IF AOR IN UP 

BR IF NO TIMEOUT 

BR IF NO SEL-IN 

SEL-IN RECEIVED-DRQP ALL TAGS OU 

AND RETURN FROM TRAP 
BR TO ERROR RTNES FOR ICC 
01=AOR ON BUSS-IN 
BR IF BAD PARITY ON BUSS-IN 

SET BUSS-OUT TO ZERO 

SET CMQ~0 PROCEED 

BR IF TIMEOUT 

BR IF STA-IN UP 

INCREMENT TIMEOUT COUNTER 

BR IF STA-IN OWN 

TRY TO LOAD INT BUFFER 

♦♦SET IB AND QUE 
♦♦STATUS AT DEVICE 
BR IF DATA PARITY OK 
RESET PARITY CHECK LATCH 
PUT COC BITIN CHNLSTA 
MQVE CHANNEL STATUS 
BR IF NO COA FLG 
ZERO OUT CC AND SLl FLGS 
PUT GB/IN INTO GO 
BR IF PARITY ERROR 

BR IF SLI BIT=i 

MASK Gl-5f6 9 7 

BR IF CLR 
PUTINCLENGTHINCHNLSTA 
TR> TO SET INTRUPT BUFFER 
MASK CHANNEL STATUS 
BR IF CHNL STATUS NZ 
CONTINUE TESTING STATUS 
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DCLE 
DCLE 
OCLE 



041 
047 

040 



DCLE 051 DCLE 065 
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********************************** 

* CROSS REFERENCE FOR CSECT DCLE * 
********************************** 



DCLE 061 DCLE 058 

DCLE 064 DCLE 062 

DCLE 070 DCLE 072 

DCLE 071 DCLE 066 DCLE 068 
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DCLH DESCRIPTIVE TEXT 



HALT I/O ROUTINE 

THIS ROUTINE EXECUTES A HALT I/O INSTRUCTION WHEN THE 
BURST CHANNEL OPTION IS LOADED IN CONTROL STORAGE. 



ENTRY POINTS 
ENTRY 



- FROM -DCLA- I/O INSTRUCTIONS ROUTINE WHEN A 
HALT I/O INSTRUCTION IS DECODED. 



ENTRY POINTS CONTINUED 

ADRO — FROM -DCLT- FOR INACTIVE TEST I/O 

TO TRANSFER INFORMATION FROM ONE LOCAL 
STORAGE ZONE TO ANOTHER. 

ADROA — FROM -DCLT- FOR INACTIVE I/O INTERRUPT 
TO TRANSFER INFORMATION FROM ONE LOCAL 
STORAGE ZONE TO ANOTHER. 



ADD* 



?34G 
2342 
2344 
2346 
2348 
234A 
234C 
234E 
2350 
2352 
2354 
2322 
2324 
2326 
2328 
232A 
232C 
232E 
2330 
2332 
2334 
2336 
2338 
233A 
233C 
2 3 3fc 



WORD SfcQUtNCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



C625 
2043 
7022 
24F6 
2B-80 
5622 
5659 
2645 
2407 
D122 
8AFA 
8AF6 
2C25 
24F6 
2210 
F03O 
0210 
B362 
1D00 
2664 
C210 
E53F 
40G6 
C4BF 
3445 
BOBO 



DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
DCLH 
OCLH 
DCLH 



001 
002 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
02 5 
02 6 
027 
028 
029 



DCLH 004 
UCLH 006 
JCLH 007 
DCLH 015 



DCLA 111 
DCLT 005 

DCLT 06C 
DCLH 013 



ENTRY 

ADRO 
ADROA 



CHANNEL 



016 ADR1 



HLTEBR 
ADR1 



ADR6 



NOINCL 



015 HLTEBR 
DCLC 020 HLTENT 
DCLC 018 NOPCIB 



022 ADR6 
CCOM 154 CCOB 

029 NOINCL 

029 NOINCL 

DCLR 048 PRGECC 
******* 

* CROSS 
******* 



HALT I/O 

BR IF DO 8IT0^=1 BR 

UO=0$K04 SE 

STH U DA,8C TE 

SET MODE K=3F SE 

SET GA K=08 SE 

RDH D DA,8C RD 

Gi^DO Gl 

D0=0$K40 S 

G0=0 GO 

BR IF Gl BIT 5=0 BR 

BR GO 

BR GO 

P0=0$K20 SE 

SET MODE K=3F SE 

SET MMSK K=01 SE 

BR IF GO BIT7=0 BR 

RST MMSK K=Oi RS 

BR BR 

RST GB K=80 RS 
SET GA K=28 

RST MMSK K=01 RS 

BR IF Gl BIT2^1 BR 

U^U u= 

BR IF Z=0 BR 

G0=G0$K40 PU 

BR BR 
************************** 

REFERENCE FOR CSECT DCLH 
************************** 



H.E.BERKEBILE 



IF ACTIVE 

T UP UOTO I 

MP STORE UN 

T CHNL MODE 

T INL SELEC 

OUT UNIT I 

= TST I/O 

ET D TO IDE 

- CHNL STA 

IF HLT I/O 

GET DEVICE 

GET DEVICE 

T CC2 

T CHNL MODE 
T DATA- TRAP 

IF NO STA 

T DATA-TRAP 

TO CCO SET 

T CDA REQ L 

GIVE SELE 

T DATA- TRAP 

IF SLI 8IT 

COUNT 

IF COUNT = 
T INC LGTH 
TO RTNE TO 



NDICATE HLT I/O 
IT IDENT HWD 

I ZONE 
T LTCH 
DENT 

OR HLT I/O IDENT 
NTIFY BURST CHNL 
TUS 

OM INTERFACE 
ON INTERFACE 



PRIORITY 
RECD 

PRIORI TY 

RTNE 
TCH 
CTIVE RESET 

PRIORITY 

ON 


BIT IN CHNL STATS 
SET INT BUFFER 
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********************************** 

* CROSS REFERENCE FOR CSECT OCLH * 
********************************** 



OCLH 016 DCLH OC^ 
OCLH 022 OCLH 019 
OCLH 029 OCLH 025 OCLH 027 



OCLL DESCRIPTIVE TEXT 



ENTRY POINTS 
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I PL 



IPLWTL - 



ENTRY IS MADE TO THIS LABEL FROM THE -BSYS- 
ROUTINE. THE FOLLOWING STEPS HAVE TAKEN 
PLACE PRIOR TO ENTRY HERE - 

i. THE LOAD KEY HAS BEEN PRESSED AND 
A MACHINE RESET PERFORMED. 

2. THE RESIDENT DIAGNOSTIC -BDIA- 
WAS EXECUTED* 

3. THE CHECK SUM ROUTINE -BCHK- HAS 
BEEN EXECUTED. 

4. THE SYSTEM RESET ROUTINE -BSYS- 
HAS BEEN EXECUTED AND A BRANCH TO 
THIS ROUTINE AT LABEL * I PL * 
HAS BEEN PERFORMED. 

IF OPERATING AS (BURST CHANNEL), ENTRY IS 
MADE AT THIS LABEL FROM THE -DCLC- ROUTINE 
TO ENTER THE IPL WAIT LOOP AND WAIT FOR A 
TRAP TO ADDRESS 0170 IN THE -DCLD- 
ROUTINE, OR, IF BUFFERED DEVICE, TRAP TO 
ADDRESS 0180 IN THE -DCLE- ROUTINE. 

IF OPERATING AS (BYTE CHANNELI , ENTRY IS 
MADE AT THIS LABEL FROM THE -DCLD- ROUTINE 
AFTER OPERATIONAL-IN HAS DROPPED. THE WAIT 
LOOP IS ENTERED TO WAIT FOR A TRAP TO 
ADORESS 0180 IN THE -DCLE- ROUTINE. 



IP1STP - 



IPLSTB - 



IPLSTA 



PICKUP - 



ENTRY IS MADE TO THIS LABEL BECAUSE OF SOME 
UNRECOVERABLE ERROR BEING DETECTED. A HARD 
STOP IS EXECUTED. 

ENTRY IS MADE TO THIS LABEL IF OPERATING 

(BURST CHANNEL), FROM THE -DCLC- ROUTINE 

TO CHECK CHANNEL STATUS AND THE COMMAND 
CHAINING FLAG. 

ENTRY IS MADE TO THIS LABEL IF OPERATING 

<BYTE CHANNEL), FROM THE -DCLC- ROUTINE 

AFTER ALL CCWS HAVE BEEN READ, TO STORE 

ZEROS IN THE FLAGS AND OP HALFWORD OF THE 
UCW. 

ENTRY IS MADE TO THIS LABEL FROM EITHER 
THE 2540 REQUEST AND TEST I/O ROUTINE 
-ERRQ-, OR THE 2311 FEATURE, COMMAND 
VERIFICATION AND EXECUTION RGUTINE -FILX-. 
ENTRY IS MADE AFTER THE IPL IS COMPLETED 
FROM THE DEVICE TO STORE THE DEVICE ADDRESS 
IN PROGRAM STORAGE LOCATION 0002 AND BRANCH 
TO THE -BSYS- ROUTINE TO RESET IPL AND 
GO TO -BPSW- TO LOAD THE PSW. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 







DCLL 


001 


25DA 


42A6 


DCLL 


002 


25DC 


44A6 


DCLL 


003 


25DE 


2423 


DCLL 


004 


25E0 


74B8 


DCLL 


005 


25E2 


70B8 


DCLL 


006 


25E4 


2465 


DCLL 


007 


25E6 


74B6 


DCLL 


008 


25E8 


2115 


DCLL 


009 


25EA 


3183 


DCLL 


010 


25EC 


70B8 


DCLL 


Oil 


25EE 


3B45 


DCLL 


012 


25F0 


46A6 


DCLL 


013 


25F2 


17F0 


DCLL 


014 


25F4 


8ADA 


DCLL 


015 


25F6 


10F5 


DCLL 


016 



IPL 



INITIAL PROGRAM LOAD (IPL) 
V = T 
G=T 

G0=0$K02 
STH G T+2 
STH U T4-2 
G0=0$K60 
STH G T*2 
U1=0$K10 
U1=U1$K08 
STH U T+2 
T1=T1$K40 
D=T 

Dl=DlaKFG 
BAL 
U0=U0*-KF0 



CSTS 066 RDSWCH 



H.E.BERKEBILE 
T AND U ARE BOTH ZERO-FROM SYSR 

£=0200 (READ CMD) 

MS~00Q0=02O0 

MS— 0002=0000 

G=6000 (CCSSLI FLGS) 

MS 0004=6000 

U=C018 (COUNT) 

MS 0006=0018 

T=C048 FOR UNIT ADDRESS IN DCLA 

D=C048 

D=C0B8 

READ IPL ADDR 



A J OK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABS 


:L STATEMENT 


25P8 


24C3 


OCLL 


017 










GO^OSKOC 


25FA 


87AE 


DCLL 


018 




DCLA 


089 


UAORID 


BR 


uADO 


0214 


DCLL 


019 


IPLfcTL 








RST MMSK K^21 


OAD2 


8A02 


DCLL 


020 


ViAITLP 




020 


WAITLP 


BR 


7 5A 


3B00 


DCLL 


021 


IPLSTP 








SET GA K=80 


7 5C 


5CC7 


DCLL 


022 


STOP 








STOP 


0756 


87 5C 


DCLL 


023 






022 


STOP 


BR 


0760 


0313 


DCLL 


024 


IPLSTB 








Z=V1*-K01 


0762 


C4DA 


DCLL 


025 






021 


IPLSTP 


BR IF ZNZ 


0764 


04C3 


DCLL 


027 










Z=G0*-K0C 


0766 


C4DA 


DCLL 


028 






021 


IPLSTP 


BR IF ZNZ 


0768 


D55B 


DCLL 


02 9 






021 


IPLSTP 


BR IF Gl BITl^l 


076A 


0DC4 


DCLL 


030 










RST GB K=20 


07 6C 


2407 


DCLL 


031 










GO^O 


076E 


7432 


DCLL 


032 










STH G DA,8E 


0770 


2B08 


DCLL 


033 










SET GA K=40 


07 72 


C9F3 


DCLL 


034 


0P1NLP 




034 


OPINLP 


BR IF GT BIT4^1 


0774 


0214 


DCLL 


035 










RST MMSK K=2i 


0776 


2400 


DCLL 


036 


PICKUP 








SET MODE K=00 


0778 


8A0A 


DCLL 


03 7 




csrs 


066 


RDSWCH 


BAL 


07 7A 


10F5 


OCLL 


038 










U0=U0*-KF0 


07 7C 


2B23 


DCLL 


039 










T1=0$K02 


077E 


7OB0 


DCLL 


040 










STH U T+0 


0780 


A1CA 


DCLL 


041 




BSYS 


125 


RETURN 


BR 
















** ********** ******** ****** 
















* CROSS 


REFERENCE FOR CSEC 
















************************** 



CLQAD=*E60 f EC LEVEL=1282 11 
COMMENTS 



RESET MMSK 2 
IPL WIAT LOOP 
DROP OP-OUT 

IPL STOP 
GO BACK TO STOP AGAIN 

BR IF BAD CHNL STATUS 

BR IF BAD STATUS 
BR IF NO CC FLAG 

RST BURST LTCH 

RESET STATS IN AUX008E 

SET SRV-0 
BR ON FALL OF OP-IN 

RST MMSK 2 

READ IPL ADDR 



GO RST IPL AND LOAD PSfc 
******** 

T DCLL * 
******** 
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OCLL 002 
OCLL 019 
OCLL 020 
DCLL 021 
OCLL 022 
OCLL 024 
OCLL 034 
OCLL 036 



BSYS 123 
DCLC 113 
OCLL 020 
DCHN 0S5 
DCLL 023 
DCLC 151 
DCLL 034 
ERRQ 04 7 



DCLC 060 DCLL 025 DCLL 028 DCLL 029 DCLR 003 DCLR 116 



FILX 428 
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DCLR DESCRIPTIVE TEXT 



CHANNEL EKKOK ROUTINES 



ENTRY POINTS CONTINUED 



ENTRY POINTS 

PRGERR — BURST CHANNEL ENTRY FROM -DCLB- WHENEVER A 

PROGRAM ERROR IS DETECTED WHILE FETCHING A CCW 
FOR A START I/O OR CHAINING. 

PGESTT — FROM -DCLA- WHEN A PROGRAM ERROR IS DETECTED 
WHILE FETCHING THE CAW FOR START I/O. 

NTYPE — FROM -BWRP- WHEN A STORAGE WRAP OR STORAGE 
PROTECT VIOLATION IS DETECTED WITH MODE SET 
FOR ONE OF THE INTEGRATED ATTACHMENTS. 



INTQD — 



WRAP 
PROTCH 



BYTE-CHANNEL ENTRY FROM -DCLC- WHEN THE 
INTERRUPT BUFFER IS FULL AND ANY CHANNEL ERROR 
OCCURS. THE DEVICE IS SELECTED AND THE STATUS 
IS QUEUED IN -DCLC-. IN -DCLR-, THE UCW IS 

UPDATED, THEN THE ROUTINE BRANCHES TO -DCLD- 
TO EITHER RETURN TO I-CYCLES OR TO RETURN FROM 
TRAP. 



FROM -BWRP- TO SET EITHER PROGRAM CHECK OP 
PROTECTION CHECK IN STATUS, AND SET UP TO STOP 
THE DEVICE ON THE NEXT SERVICF-IN. 



PRGECC — THIS BURST CHANNEL ENTRY LOADS THE INTERRUPT 
BUFFER, THEN THE MICROPROGRAM EITHER RETURNS 
FROM A TRAP OR GOES TO I-CYCLES. 
ENTRY IS FROM ONE OF THE FOLLOWING, 
i. -DCLR- IF PROGRAM ERROR IS DETECTED WHILE 

COMMAND CHAINING- 
2. -DCLH- AFTER PERFORMING HALT I/O. 



INFCHK — COMMON ENTRY FOR INTERFACE CONTROL CHECK LOG- 
OUT. THE INTERFACE IS CLEARED AND THE CHANNEL 
ERROR STATUS IS SET UP. THEN THE ROUTINE 
EITHER RETURNS FROM THE TRAP OR GOES TO 
I-CYCLES, DEPENDING ON SOURCE OF ENTRY. 



CCCXXX — 



FROM -BMCK- AFTER MACHINE CHECK TRAP IF MMSK 
BITS INDICATE A CHANNEL CONTROL CHECK. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 






DCLR 


001 


T 






CHANNEL 


ERROR ROUTINES 


3082 


C3C2 


DCLR 


002 


PRGERR 




004 


NOIPLM 


BR IF BA4=0 


30 84 


875A 


DCLR 


003 




DCLL 


021 


IPLSTP 


BR 


30C2 


F207 


DCLR 


004 


NOIPLM 




013 


PGECHN 


BR IF 007=1 


30C4 


2400 


DCLR 


008 


PGESTT 








SET MODE K=00 


30C6 


2F25 


DCLR 


009 










H1=0$K20 


30C8 


2EC5 


DCLR 


010 


ADR003 








H0=0$K00 


30CA 


A 030 


DCLR 


Oil 




CCCM 


135 


STATUS 


BR 


3086 


D623 


DCLR 


013 


PGECHN 




041 


BURST 


BR IF DO BIT 1=1 


3088 


1773 


DCLR 


017 










D1=D1*-K07 


308A 


AC78 


DCLR 


028 


NOTHEM 


ERRQ 


083 


RDCHST 


BAL 


30 8C 


C510 


DCLR 


029 






031 


NODATC 


BR IF GIO^O 


308E 


2EC3 


DCLR 


03G 










H0=0$K0C 


3090 


15C5 


DCLR 


031 


NODATC 








G1=G1*-KC0 


309 2 


34A5 


DCLR 


032 










G0=G0$KA0 


3094 


C398 


DCLR 


033 


NOCGMM 




035 


NATPRO 


BR IF BA4=0 


3096 


9EE0 


DCLR 


034 




ERRQ 


048 


STOP 


BR 


3098 


E71E 


DCLR 


035 


NATPRO 




038 


NTYPE 


&R IF D12=0 


309A 


F7IE 


DCLR 


036 






038 


NTYPE 


8R IF Di3=0 


30 9C 


83A0 


DCLR 


037 




DYPE 


226 


PRGCHK 


BR 


309E 


B16A 


DCLR 


038 


NTYPE 


ERRQ 


110 


GUESS 


BAL 



COMMENTS 

• H.E. BERKE8ILE 

BR IF NOT IPL 
GO TO IPL STOP 
BR IF FROM CHAINING 

SET PROGRAM CHECK IN CHNL STATUS 

H0=00 UNIT STA Hi-=CHNL STA 

STORE STATUS ONLY CSW-SET CC1 

BR IF BURSTCH 

SET D TO UCW HWD 

GET CHAN AND UNIT STATUS IN G ,H 

BR IF NO DATA CHAIN 

SET CHANNEL END AND DEVEND 

RESET CHAIN FLAGS 

SET SEC AND PROG CHECK 

BR IF NOT IPL 2540 

GO TO 2540 STOP 
CHECK FOR 
1C52 

RST 2540 CMD.INTLK. 



AUDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


30A0 


9D52 


DCLR 


039 




DPTQ 019 


TAKEIN 


BR ** TRY FOR INT 


30A2 


2425 


OCLR 


041 


BURST 






G0=0$K20 


30A4 


54E9 


DCLR 


042 








H0=G0 


30A6 


15C5 


DCLR 


043 


ADRXYZ 






G1=G1*-KC0 


30A8 


1573 


DCLR 


044 








G1=G1*-K07 


30AA 


CCBO 


DCLR 


045 




048 


PRGECC 


BR IF GS BIT0=0 


3GAC 


2B00 


DCLR 


046 








SET GA K=00 


3UAE 


945A 


DCLR 


047 




DCLB 191 


BSTCDA 


BR 


JGBO 


ODiO 


DCLR 


048 


PRGECC 






RST GB K=01 


30B2 


3413 


DCLR 


049 








G0=G0$K01 


30B4 


2205 


DCLR 


050 








VO=0$KOO 


30B6 


7602 


DCLR 


051 








STH D 0A,88 


30B3 


2040 


DCLR 


052 








SET GB K=0 4 


30BA 


C681 


DCLR 


053 




057 


HIPRTP 


BR IF MMSK0= 1 


30 BC 


£681 


DCLR 


054 




057 


HIPRTP 


BR IF MMSK2= 1 


30BE 


2B00 


DCLR 


055 








SET GA K=00 


30C0 


A7B6 


DCLR 


56 




DCLC 184 


ADR22A 


BR 


3080 


024G 


DCLR 


057 


HIPRTP 






RTN G MMSKO=0 


0476 


3425 


DCLR 


106 


WRAP 






G0=G0$K20 


0*78 


9616 


DCLR 


107 




109 


WRPPRT 


BR 


16 14 


3415 


DCLR 


108 


PROTCH 






GO^GOSKIO 


1616 


15C5 


DCLR 


109 


WRPPRT 






G1=G1*-KC0 


16 18 


1533 


DCLR 


110 








G1^=G1*-K03 


161A 


81CA 


DCLR 


112 




DCLD 018 


DECCNT 


BR 


228E 


875A 


DCLR 


116 


IPLiCC 


DCLL 021 


IPLSTP 


BR 


22 54 


562F 


DCLR 


117 


INFCHK 






V0=MMSK 


2256 


221E 


DCLR 


118 








SET MMSK K=71 


2258 


5C3F 


DCLR 


119 








V1 = GS 


225A 


7222 


DCLR 


121 








STH V DA,8C 


225C 


5D2F 


DCLR 


125 


ADR102 






VO = GT 


22 5b 


5E3F 


DCLR 


126 








V1=GD 


2260 


2B10 


DCLR 


127 








SET GA K=01 


2262 


24C7 


DCLR 


128 








G0=0 


2264 


2565 


DCLR 


129 








Gi=0$K80 


2266 


3573 


DCLR 


130 








Gl=Gl$K07 


2268 


76 5A 


DCLR 


131 








STH D G-2 


226A 


725A 


DCLR 


132 








STH V G-2 


22 6C 


5350 


DCLR 


133 








RDB VI G+0 


2266 


23 IB 


DCLR 


134 








V1=V1«-K01 


2270 


33C5 


DCLR 


135 








Vi=Vl$KCO 


2272 


5622 


DCLR 


137 








RDH D DA f 8C 


22 74 


5729 


DCLR 


141 








V0 = D1 


2276 


725A 


DCLR 


142 








STH V G-2 


2278 


577F 


OCLR 


143 








Dl = BA 


227A 


7650 


DCLR 


144 








STH D G 


227C 


3573 


DCLR 


145 








Gi=Gl$K07 


2276 


5650 


DCLR 


146 








RDH D G 


2280 


E690 


DCLR 


150 




153 


A0R100 


BR IF MMSK2=0 


2282 


2B00 


DCLR 


151 








SET GA K = 00 


2284 


A294 


DCLR 


152 




155 


ADR101 


BR 


2290 


24F6 


DCLR 


153 


ADR100 






SET MODE K^3F 


2292 


2B80 


DCLR 


154 








SET GA K=08 


2294 


25G7 


DCLR 


155 


ADRlOi 






Gi = 



CL0AD=*E60, EC LEVEL=128211 
COMMENTS 

FOR 1403,2540, GO TO SF T STP 

SET PROGRAM CHECK 

MOVE CHANNEL STATUS 

RST CDA £ CC FLAGS 

RST CODED OP BITS 

BR IF CDA FLAG OFF 

DROP ALL TAGS OUT 

BR TO DCLB TO RTN FROM TRAP 

RESET SUPR-0 
SET STATUS RECEIVED INDICATOR 
SET 00 UNIT STATUS 
STORE UNIT IDENT HWD IN IB 
SET INT BUFFER LATCH 
BR IF CHNL HI PRIORITY TRAP 
BR IF CHNL LO TRP PRIORITY 
RST TAGS OUT 

BR TO SET CMD-0 &TMOUT ON OPI DW 
RTN FROM TRAP 
SET PROGRAM CHECK-MEMORY WRAP 

SET PROTECTION CHECK 
RST CDA £ CC FLAGS 
RST CODED COMMAND BITS 

BR TO IPL STOP WORD 
SAVE MMSK REG 

SET PRIORITY HOLD LATCH 
SAVE GS REG 
TEMP STORE MMSK/GS 
SAVE GT EXTERNAL CDNS 
SAVE GD EXTERNAL CDNS 
SET STP TRAP INHIBIT LATCH 



G^CC87 

STORE UNIT IDENT HWD IN MS 0086 
STORE GT/GD IN MS0084 
R6AD OUT ERROR COUNT INTO VI 
INCREMENT ERROR COUNT 
SET "LGOUT WAS CHNL ICC BIT 
READ OUT MMSK/GS 
MOVE GS TO VO REG 
STORE GS/ERROR COUNT IN MS0082 
MOVE BA TO Dl REG 
STORE MMSK/BA IN MS0080 
BUILO 0087 ADDRESS 
RESTORE UNIT IDENT HWD IN D 
BR IF NOT IN TRAP 
RST CHNL TAGS 
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SET INL SELECT LATCH 
ZERO OUT Gl 



ADDA 


WORD 


SEQUENCE »M0. 


LABEL 


2296 


021E 


DCLR 


156 




2298 


2323 


DCLR 


157 




229A 


0D02 


DCLR 


158 




229C 


C38F 


DCLR 


159 


1PLICK 


229E 


2B80 


DCLR 


160 




22A0 


C9B-8 


DCLR 


161 




22A2 


2B84 


DCLR 


162 




22A4 


22GT 


DCLR 


163 




22A6 


C9B8 


DCLR 


164 


ADROOi 


22A8 


221B 


DCLR 


165 




22AA 


F4A6 


DCLR 


166 




22AC 


2D10 


DCLR 


167 




22AE 


3B80 


DCLR 


168 




22B0 


221B 


DCLR 


169 


WT0PI2 


22B2 


C9B8 


DCLR 


170 




22B4 


F4B0 


DCLR 


171 




22B6 


0D10 


DCLR 


172 




2288 


C687 


DCLR 


174 


OPIOWN 


22BA 


£667 


DCLR 


175 




22BC 


F207 


DCLR 


179 




22B£ 


7222 


DCLR 


180 




22CQ 


2B00 


DCLR 


181 




22C2 


2400 


DCLR 


182 




22C4 


5E22 


DCLR 


183 




22C6 


1000 


DCLR 


184 




22C8 


BCC8 


DCLR 


185 




2286 


5349 


DCLR 


187 


CHAING 


2288 


3613 


DCLR 


188 




22 8A 


IDOO 


DCLR 


189 




228C 


BCA6 


DCLR 


190 




0360 


2343 


DCLR 


196 


CCCXXX 


03B2 


5612 


DCLR 


197 




03B4 


3613 


DCLR 


198 




03B6 


A29C 


DCLR 


199 








DCLR 


200 


* 



NEXTSEQ 


NEXTLABEL 


STATEMENT 

RST MMSK K*71 
V1=0$K02 
RST GB K^iO 




116 


IPUCC 


BR IF BA BIT4= 
SET GA K=08 


I 


174 


OPIOWN 


BR IF GT BIT 4-= 

SET GA K=28 
VG=0 


■■o 


174 


OP I OWN 


BR IF GT BIT *= 

VO^VO+KOl 


= 


164 


ADROOi 


BR IF AC*0 
SET GB K^Oi 
SET GA K = 88 
VQ^VO+KOi 




174 


GP1DWN 


BR IF GT BIT4= 


= 


169 


WTGPI2 


BR IF AC=0 
RST GB K=Oi 




187 


CHAING 


BR IF MMSKO^l 




18 7 


CHAING 


BR IF MMSK2=1 




187 


CHAING 


BR IF DO BIT 7= 
STH V DA»8C 
SET GA K=00 
SET MODE K = QO 
RDH H DA,8C 
RST SO 


1 


010 


ADROOi 


BR 
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COMMENTS 



SET INTERFACE CONTROL CHECK 
RESET PARITY ERROR LATCH 
BR IF I PL 

SET INL SELECT LATCH 
BR IF OP-IN IS ALREADY DOWN 
SET ADR-OUT AND INL SEL LTCHES 
INITIALIZE TIMEOUT COUNTER 
BR IF QP-IN DOWN 
INCREMENT TMOUT COUNTER 
BR IF NO TIMEOUT 
SET SUPR-OUT 
DROP OP-OUT 

INCREMENT TIMEOUT COUNTER 
BR IF OP-IN DOWN 
BR IF NO TIMEOUT 
RST SUPR-OUT 
BR IF CHNL HI TRP PRIORITY 
BR IF CHNL LO TRP PRIORITY 
BR IF ENTRY WAS VIA CHAINING 
TEMP STORE UNIT £ CHNL STATUS 
DROP ALL TAGS OUT 
SET CPU MODE £ ZONE 
READ OUT UNIT/CHNL STATUS 
RST RETURN FLAG IF ON 
BR TO STORE CSW I STATUS ONLY) 
GO^Vl MOVE CHNL STATUS 

D0=D0$K01 SET SOURCE OF ENTRY WAS CHAIN 

RST GB K=80 RESET CDA REQ LTCH 

043 AQRXYZ BR 

V1-=0$K04 SET CHNL CONTROL CHECK 

RDH D DA f 8A RD OUT UNIT IDENT HWD 

D0=D0$K01 SET SOURCE OF ENTRY WAS CHAIN 

159 IPLICK BR 

********* £ ND of DCLR (CHANNEL ERROR) ********** 

********************************** 

* CROSS REFERENCE FOR CSECT DCLR * 
******************* *************** 



DCLR 


002 


DCLB 


1C1 


DCLB 


104 


DCLR 


004 


DCLR 


002 






DCLR 


008 


OCLA 


068 






DCLR 


010 


DCLR 


165 






DCLR 


013 


DCLR 


0C4 






DCLR 


031 


DCLR 


029 






uCLR 


035 


DCLR 


033 






DCLR 


038 


8WRP 


087 


BWRP 


088 


DCLR 


041 


DCLR 


013 






DCLR 


043 


DCLR 


190 






DCLR 


048 


DCLH 


029 


DCLR 


045 


DCLR 


057 


DCLR 


053 


DCLR 


054 


DCLR 


106 


BWRP 


019 






DCLR 


108 


BWRP 


02 8 






DCLR 


109 


OCLR 


1C7 







DCLR 035 DCLR 036 
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OCLR 


116 


DCLR 


159 










OCLR 


117 


OCLC 


038 


DCLC 


112 


DCLC 


174 


QCL* 


153 


DCLR 


150 










OCLR 


155 


DCLR 


152 










OCL* 


159 


DCLR 


199 










OCLR 


164 


DCLR 


166 










OCLR 


169 


DCLR 


171 










OCLR 


174 


DCLR 


161 


DCLR 


164 


DCLR 


170 


OCLR 


187 


DCLR 


174 


DCLR 


175 


DCLR 


179 


OCLR 


196 


BMCK 


037 











********************************** 

* CROSS REFERENCE FOR CSECT DCLR * 
********************************** 

DCLE 027 OCLE 045 
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DCLT DESCRIPTIVE TEXT 



CHANNEL TEST I/O AND I/O INTERRUPT 

BURST CHANNEL ENTRY POINTS 

TESTIO — FROM -DCLA- I/O INSTRUCTIONS ROUTINE WHEN A 
TEST I/O INSTRUCTION IS DECODED. 

INTRTX « FROM -DCLC- TO RESTORE THE PREVIOUS CONTENTS 
OF THE H-REGISTER BEFORE THE MICROPROGRAM 
RETURNS TO I-CYCLES. 



BYTE CHANNEL ENTRY POINTS 

ENTRY1 — FROM -DCLA- I/O INSTRUCTIONS ROUTINE WHEN 
AN ACTIVE TEST I/O IS DECODED, 

ENTRY2 -- FROM -DCLA- WHEN AN INACTIVE TEST I/O IS 
DECODED. 



INTENT — FROM -BSWl- 



WHEN AN I/O INTERRUPT IS DETECTED. 



ADOR 


WORD 


SEQUtNCE NO. 


LABEL 






DCLT 


001 


T 


2F02 


C6C9 


DCLT 


003 


TESTIO 


2FG4 


20C7 


DCLT 


004 




2F06 


A344 


DCLT 


005 








DCLT 


006 


* 






DC L I 


007 


« 


2F0G 


AC74 


DCLT 


008 


ADRO 


2F08 


24F6 


DCLT 


009 


ACTIVE 


2F0A 


EC80 


DCLT 


010 




2F0C 


FCOO 


DCLT 


Oil 




2F0E 


2400 


DCLr"Q12 




2F10 


5202 


DCLT 


013 




2F12 


6311 


DCLT 


014 




2F14 


C480 


DCLT 


015 




2F16 


24F6 


DCLT 


016 




2F18 


CliC 


DCLT 


017 


A0R1 


2F1A 


3*85 


DCLT 


018 




2MC 


70F2 


DCLT 


019 


SKIP 


2F1E 


54 19 


DCLT 


02 




2F20 


5209 


DCLT 


02L 




2F22 


4452 


DCLT 


022 




2F24 


7432 


DCLT 


023 




2F26 


CDC4 


DCLT 


024 




2tZ6 


70E2 


DCLT 


02 5 


RfcDUC 


2F2A 


OD40 


DCLT 


02 6 




2F2C 


C21E 


DCLT 


02 7 


SAVE1 


2F2E 


2400 


DCLT 


02 8 




2F30 


4652 


DCLT 


02 9 




2F32 


2B87 


DCLT 


031 




2F34 


5 2AC 


DCLT 


032 




2F36 


526F 


DCLT 


033 




2F38 


566B 


DCLT 


034 





NEXTSEQ NEXTLABEL STATEMENT 

CHANNEL TEST I/O AND I/O INT 
009 ACTIVE BR IF DO BIT0=1 

U0 = 
DCLH 006 ADRO BR 



CCOM 161 CC2B 

008 ADRO 
008 AORO 



008 ADRO 
019 SKIP 



BR 






SET 


MODE 


K=3F 


BR 


IF GS2=0 ** 


BR 


IF GO 


BITT=0 


SET 


MODE 


K=00 


RDH 


V DA, 


88 


Vl = 


VlaUl 




BR 


IF ZNZ 


SET 


MODE 


K^=3F 


BR 


IF G14=0 


GO^ 


G0$K8C 


1 


STH 


U DA, 


BE 


Ul = 


GO 




uo= 


VO 




RDH 


G DC* 


9A 


STH 


G CA, 


8E 


RST 


GB K^= 


20 


STH 


U DA, 


BC 


RST 


G8 K= 


04 


RST 


MMSK 


K=7l 


SET 


MODE 


K = 00 


RDH 


D DC, 


9A 


Tl^i 


QSK88 




ISK 


STPO 


AS,T+2 


DO^ 


STPO 




D0^= 


DOH 





COMMENTS 

ERRUPT H.E.BERKEBILE 

BR IF ACTIVE BIT ON 
SET UO FOR TEST I/O 
GO SET UP MODE AND ZONE 

RETREIVE STATUS FROM 

UNIT 
BR TO CC2 SET 
SET CHANNEL MODE-ZONE 
BR IF FILE IS AC TI VE-NOT CHANNEL 
BR IF NO STATUS RECEIVED 
SWITCH BACK TO CPU MODE £ ZONE 

READ INT BUFFER 
ADDRESS MATCH 
BR IF NO MATCH 

SET BACK TO CHNL MODE 6 ZONE 
BR IF NO PCI 
SET PCI 

SAVE COUNT 
MOVE STATUS 
UNIT STATUS 

READ ZERO CONSTANT INTO G 
ZERO OUT UNIT ADDRESS 
RST BURST LATCH 
STORE STATUS 

RST INT 
ALLOW TRAPS 

READ ZERO CONSTANT INTO D 
GET 
PROTECT 
KEY 



AODR 

If 3A 
2F3C 
2F 3E 
2F4Q 
2F42 
2F44 
2F46 
2F48 
2F 4A 
2F4C 

22FA 
22FC 
22FE 
2300 
2302 
2 304 

2306 
2308 
230A 
230C 
230E 
2310 
2312 
2314 
2316 
2318 
231A 
231C 
2316 
2320 
2356 
2358 
235A 
235C 
235E 
2360 
2362 
2364 
2366 
2 3 68 
2 36A 
236C 



WORD SEQUENCE NO* LABEL 



5212 

50F2 
5EE2 
IF 13 
A024 
B354 
5A22 
2A13 
2400 
A43E 

3000 
2480 
5432 
C407 
E98A 
A5FC 

0985 
C985 
5A02 
2A15 
7A22 
2A13 
C4^6 
2AC7 
2413 
24F6 
221E 
F056 
1413 
AF18 
1583 
FCOC 
3483 
CD40 
2470 
74A2 
70F2 
2400 
5BA2 
3B65 
7AE2 
AF2C 



DCLT 

OCLT 
DCLT 
OCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
OCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 



INTRTX 



INTRTN 



INTENT 



FINT 

ACTON 

INACHL 



DCLT 003 
DCLT 008 
DCLT 009 
DCLT 017 
DCLT 019 
DCLT 027 



DCLA 110 
OCLT 010 
DCLT 0C3 
DCLT 067 
DCLT 017 
DCLT 079 



036 
03 7 

03 8 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 

04 9 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 



DCLT Oil DCLT 015 



NEXTSEQ NEXTLABEL STATEMENT 



RDH V DA,8A 

RDH U OA, 8E 

RDH H DA, BC 

Hi=Hl*-K01 

BAL 

BAL 

RDH T DA,8C 

T0=0$K01 

SET MODE K=00 

BR 



CCOM 127 
CCCM 186 



CSWADR 
RESTRH 



DCHN 075 USECOM 



054 

056 

FINT 002 



052 
052 



ACTPCI 



NGCDZ 



027 



ACTCN 

INACHL 

INTRPT 

FINT 

FINT 



DCLH 007 ADROA 



068 


ACTPCI 


017 


ADR1 


071 


NOCDZ 



CL0AD=*E60, EC LEVEL=1282 11 

COMMENTS 

CCW ADDRESS 
COUNT 

STATUS 
RST INT* BIT 

STORE CSW SO=lFOR INT.RTN 
RESTORE CPU HI 
UNIT ADDRESS FOR INT. 

FIX CHANNEL ADDRESS 

GO TAKE INTERRUPT 
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* ********** *** ***** ** * *********** ******** 
SET SO SET THE RETURN FLAG 

SET MODE K=08 FILE MODE 

RDH G DA f 8E 
BR IF GO BIT0=1 
BR IF FFI6=0 
BR 

***************************************** 

BR IF FFI5=i 



BR IF FFI4=1 

RDH T DA, 88 

TG=0$K10 

STH T DA,8C 

T0^0$K01 

BR IF GO BITO=0 

T0 = 

G0=0$KQ1 

SET MODE K=3F 

SET MMSK K=71 

BR IF GO BIT7=0 

G0=G0*-K01 

BR 

G1=G1*-K08 

BR IF GS3=0 

GO=GO$K08 

RST GB K=04 

SET MODE K^07 

STH G DA, AC 

STH U DA, BE 

SET MODE K=00 

RDB Ti DA, AC 

Ti=Tl$K80 

STH T DA,BC 

SAVE1 BR 

********************************** 

* CROSS REFERENCE FOR CSECT DCLT * 
********************************** 



BR IF PCI LATCH IS ON 

RD UNIT IDENT HWD FROM IB 

SET TO TO TEST I/O INDICATOR 

TEMP STORE UNIT ADDRESS 

SET TO TO CHNL ADDRESS 

BR IF NOT ACTIVE 



SET GO FOR INTERRUPT 
SET CHNL MODE G ZONE 
SET PRIORITY HOLD 

BR IF NOT FROM INT 
RESET GO BIT7 
BR TO CSW STORE 
TURN OFF PCI IN OPFLG 

BR IF NO PARITY ERROR 

SET DATA CHECK 
RST INT. LATCH 

SET CHANNEL ZONE-CPU MODE 
STORE STATUS 
STORE COUNT 

GET CHAN STATUS 

SET PCI 

STORE STATUS WITH PCI 
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OCLT 041 
OCLT 047 
DCLT 52 
OCLT 054 
UCLT 056 
OCLT 068 
DCLT 071 



DCLC 058 
BSWI 093 
OCLI 054 
OCLT 050 
OCLT 051 
DCLT 065 
DCLT 069 



********************************** 

* CROSS REFERENCE FOR CSECT DCLT * 
********************************** 



DCLT 055 



DCOM — COMMON I/O ROUTINES 
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THESE COMMON ROUTINES ARE EMPLOYED BY THE I/O ROUTINES FOR 
THE NATIVE DEVICES — PRINTER, READER-PUNCH, AND PR-KB. 

ENTRIES 

PCIBR — USED TO TRY FOR A PRGGRAH-CONT ROLLED INTERRUPT. 
IF THE PCI FLAG IS OFF, THE MICROPROGRAM RETURNS 
TO THE LINK ADDRESS* IF THE PCI FLAG IS ON, 
THE PCI-ALGNE INDICATOR 8IT IS SET FOR THE 
INTERRUPT BUFFER. FROM THIS POINT, PCI IS 
HANDLED THE SAME AS THE NORMAL INTERRUPT* 

INTRPT — NORMAL INTERRUPT ENTRY, I.E.. WHEN CHANNEL-END 
AND/OR DEVICE-END STATUS IS READY. IF THE 
INTERRUPT IN I.B. BIT IS ON, THE DEVICE ALREADY 
HAS CONTROL OF THE I.B* OTHERWISE, THE ROUTINE 
MUST TEST TO SEE IF THE I.B. IS AVAILABLE. IF 
THE I.B. IS NOT AVAILABLE, THE INTERRUPT IS 
STACKED AND ANOTHER REQUEST WILL OCCUR WHEN THE 
I.B. IS AVAILABLE. 



CHANOK 
REDSTR — 



IF THE I.B. IS AVAILABLE, AN INTERRUPT IS 
INITIATED AS FOLLOWS. 

1. SET CHANNEL INTERRUPT LATCH, S7. 

2. SET I.B. BIT IN CHANNEL-STATUS REG. 

2. STORE UCW ADDRESS IN INTERRUPT BUFFER. 

4. STORE PCI-ALONE BIT IN I.B. IF THIS BIT WAS 

TURNED ON AT -PCIBR- ENTRY. 
AFTER THE INTERRUPT IS INITIATED, THE MICRO- 
PROGRAM RETURNS TO THE LINK ADDRESS. 



LSED TO UPDATE THE UCW. CHANNEL STATUS, 
FLAGS/OP, UNIT STATUS, AND COUNT ARE STORED 
IN THE UCW. IF COMMAND CHAINING, AND DEVICE- 
END IS SET, ENTRY IS TO -CHANOK- TO CLEAR 
THE UNIT STATUS REGISTER. 



ADDR 



WORD SEQUENCE NO. LABEL 







DCOM 


001 


T 






DC CM 


002 


* 






DCOM 


003 


* 






DCOM 


004 


* 






DCOM 


005 


* 


3106 


C140 


DCOM 


006 


PCIBR 


3108 


2683 


DCOM 


007 




310A 


F017 


DCOM 


008 


INTRPT 


3 IOC 


221E 


DCOM 


009 




3I0E 


C7B5 


DCOM 


010 




3110 


2010 


DCOM 


Oil 




3112 


02 IE 


OCOM 


012 




3114 


3413 


DCOM 


013 




3116 


76D2 


DCOM 


014 


ITSME 


3118 


1683 


DCOM 


015 




31 1A 


F727 


DCOM 


016 


RSTREQ 


31 1C 


E723 


OCGM 


017 




31 IE 


0D08 


DCOM 


018 




3120 


128E 


DCOM 


019 




3126 


E72D 


DCOM 


020 


RDTWi 


3128 


CB20 


DCOM 


021 




312A 


128E 


DCOM 


022 




3122 


CF20 


DCOM 


023 


PCH1 


3124 


128E 


DCOM 


024 





NEXTSEQ NEXTLABEL STATEMENT 
COMMON I/O ROUTINES 



COMMENTS 



THIS ROUTINE TRIES TO PUT THE NATIVE DEVICE INTO THE INTERRUPT 
BUFFER FOR PCI OR STATUS. 



BR IF NO PCI 
SET PCI ALONE 

BR IF SAME IN INT BUFFER 
BLOCK TRAPS 
BR IF IB FULL 
TAKE IT 

ALLOW TRAPS 
SET IB BIT 
STORE ADORESS IN IB 

RST REQUEST, BR IF RDR OR TW 
BR IF PCH 

RST PTR REQUEST 

BR IF TW 
RST RDR REQUEST 



035 


RETURN 


BR IF G14=0 
D0=0$K08 


014 


ITSME 


BR IF G07=l 
SET MMSK K=71 


029 


IBTAKN 


BR IF 8A BIT0=1 

SET S7 

RST MMSK K=71 

GO=GO$K0i 

STH D DA,BA 

D0=DO*-K08 


020 


RDTWI 


BR IF Di BIT3=i 


023 


PCH1 


BR IF 01 BIT 2=1 
RST PRA K=40 

RTN 


025 


TW1 


BR IF Dl BIT 2=1 

RST R K=02 

RTN 

RST P K=02 

RTN 



RST PCH REQUEST 



AODR 

31 2C 
312E 
3130 
3132 
3134 
3136 
3138 
313A 
313C 
313E 
3140 
3146 
3148 
314A 
3142 
3144 
3100 
3102 
3104 



2566 
2568 
256A 
256C 
256E 
2570 
2572 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



DCOM 
IX ON 
DCOM 
DOOM 
DCOM 
OCOM 
DCOM 
OCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 



OF 2 4 
C832 
1C83 
128E 
021E 
1683 
D541 
F747 
E743 
2D88 
128E 
E701 
2B30 
12 8E 
2F30 
128E 
C804 
2F04 
128E 



2E07 
7468 
7E68 
7060 
C573 
2AC7 
128E 



DCOM 
DCOM 
DCOM 
DCCM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
OCOM 
DCOM 
DCOM 
OCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 
DCOM 



025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 



006 
008 
014 
016 
020 
023 
025 
028 
029 
035 
036 
039 
041 
043 
048 
049 
054 



DPTR 067 
DPTQ 019 
DCOM 0C8 
ERRQ 036 
DCOM 016 
DCOM 017 
DCOM 020 
DCOM 026 
DCOM 010 
DCOM 006 
DCOM 032 
DCOM 033 
DCOM 036 
DCOM 041 
DPTQ 036 
DPTQ 020 
DCOM 052 



TW1 



TYREXT 
IBTAKN 



RETURN 
RDTW2 



PCH2 

TW2 

TWREXT 



CHANOK 
REOSTR 



RETUN 



CL0AD=*E6at EC LEVEL=1282ll 

COMMENTS 

RST SHARE MICRO FORCE 

RST END STAT 

SOMEONE ELSE IN I* RST MMSK 
RST PCI ALONE 
OONT QUE PCI CMNO CHAIN 
SET QUE AND REQ., R IF RDR OR TW 
BR IF PCH 
SET PTR REQUEST AND QUE 

BR IF TW 

SET RDR REQUEST AND QUE 

SET PCH REQUEST AND QUE 
SET 1052 MICRO FORCE 



THIS ROUTINE STORES THE CHNL SfATtS, FLAGS, UNIT STATUS AND 
THE COUNT OF THE NATIVE DEVICE INTO ITS UC W. 
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RST TA K=22 


028 


TYREXT 


BR IF P04=0 

P0=P0*-K08 

RTN 

RST MMSK K=71 

D0*D0«-K08 


035 


RETURN 


BR IF Gl.l*t 


036 


RDTW2 


BR IF Dl BIT3«1 


039 


PCH2 


BR IF Dl BIT2«l 
SET PR A K~48 

RTN 


041 


TW2 


BR IF Dl BIT 2*1 

SET R K*03 

RTN 

SET P K=03 

RTN 


043 


TWREXT 


BR IF P04=0 
SET TA K*20 
RTN 



H0=0 
STH G 



AS,D*2 



054 RETUN 



STH H AS, 0*2 

STH U AS ,0*0 STORE COUNT 

BR IF Gl BITO-l BR IF CDA 

TO-O RST TO 

RTN 
********************************** 

* CROSS REFERENCE FOR CSECT DCOM * 
********************************** 



DYPE 040 
DYPE 012 

ERRQ 050 



DCOM 031 



DYPE 153 
OPTS 072 



DYPE 085 



DYPE 227 ERRQ 046 



AD OR 


WORD 


SEQUENCE NO. 


LABEL 






OMCS 


001 


T 






DMCS 


002 


* 


2F84 


52A2 


DMCS 


003 


NOTLEN 


2F86 


6DD3 


DMCS 


004 




2F88 


DD16 


DMCS 


005 




2F 8A 


2FF5 


DMCS 


006 




2F 8C 


AFBO 


DMCS 


007 








DMCS 


008 


* 


2F78 


2E85 


DMCS 


009 


MCSNOF 


2F7A 


74E2 


DMCS 


010 


HCSRTN 


2F 7C 


7EF2 


DMCS 


Oil 




2F7E 


2F 10 


DMCS 


012 




2F80 


EBCF 


DMCS 


013 




2F82 


8612 


DMCS 


014 








DMCS 


015 


* 






OMCS 


016 


* 






DMCS 


017 


* 


2F8E 


2D13 


DMCS 


018 


LOAOOK 


2F90 


72A2 


DMCS 


019 




2F92 


2427 


DMCS 


020 




2F94 


25A3 


DMCS 


021 




2F96 


4F48 


DMCS 


022 


TRYLEN 


2F98 


5FC9 


DMCS 


023 




2F9A 


4826 


DMCS 


024 




2F9C 


69FB 


DMCS 


025 




2F9E 


F5A2 


DMCS 


026 




2FAQ 


281B 


DMCS 


027 




2FA2 


5B38 


DMCS 


028 


COMPAR 


2FA4 


5198 


DMCS 


029 




2FA6 


2C1B 


DMCS 


030 




2FA8 


6B11 


DMCS 


031 




2FAA 


C484 


DMCS 


032 




2FAC 


GCFD 


DMCS 


033 




2FAE 


C4A2 


DMCS 


034 




2F60 


49DF 


DMCS 


035 


SETHDW 


ZfBZ 


27FF 


DMCS 


036 




2FB4 


7D60 


DMCS 


03 7 




2F86 


52A2 


OMCS 


038 








OMCS 


039 


* 






DMCS 


040 


* 






DMCS 


041 


* 


2FB8 


2C75 


DMCS 


043 




2FBA 


27F7 


DMCS 


047 




2FBC 


77C8 


DMCS 


048 


CLEAR 


2FBE 


E83C 


DMCS 


049 




2FCO 


2105 


DMCS 


050 




2FC2 


7 ICO 


DMCS 


051 




2FC4 


B2C6 


DMCS 


052 








DMCS 


053 


* 






DMCS 


054 


* 






DMCS 


055 


* 


32 BC 


5D38 


DMCS 


056 


RDLOOP 


32BE 


3E43 


DMCS 


057 





NEXTSEQ NEXTLABEL STATEMENT 
MCS LOAD ROUTINE KREPPEL 



CL0AD=*E60, EC LEVEL=1282 1l 
COMMENTS 
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022 TRYLEN 

035 SETHDW 



018 LOADOK 
DPTC 024 CMDREJ 



028 COMPAR 



003 NOTLEN 
028 COMPAR 



048 CLEAR 
061 ST ZERO 



RDH V DA, AC 

P1=P1+P1 

BR IF PI BIT 1=0 

H1=0$KF0 

BR 

H0=0$K80 
STH G DA, BC 
STH H DA,BE 
SET PRB K=01 
BR IF HI BIT6=1 
BR 



P1=0$K01 

STH V DA, AC 

G0*0$K22 

G1=0$K0A 

RDB HI CS,G+1 

P0=H1 

I = V 

I1C=I1+H1 

BR IF S3=0 

I0=I0+K0 1 

RDB Tl V«-l 

ROB Ul 1^-1 

P0=P0*K0l 

Ti=TlaUl 

BR IF IHl 

2*P0n'KF0 

BR IF ZNZ 

PCCL=P1 

01=D1*KFF 

STB PI AS,D 

RDH V DA, AC 



P0=0$K70 

D1=Q$KFF 

STB Dl AS,P+1 

BR IF PO BIT6^0 

Ui=0$KO0 

STB Ul AS,P 

BR 



RDB PI V+l 
H0=H0$K04 



RESTORE DATA ADDRESS 

UPDATE PCCL CONSTANT 

BR IF CONSTANT NOT LENGTH 240 

SET CHAIN LENGTH TO 240 

GO SET PCCL FOR LENGTH 240 

SET NO FOLDING SWITCH 

SAVE G REG 

SAVE H REG 

SET DIAGNOSTIC MODE 4 

BR IF GATE LOAD WAS ON 

GATE LOAD WAS NOT ON RE J MCS CMD 

DETERMINE CHAIN LENGTH ROUTINE 

BUILD INITIAL PCCL CONSTANT 
SAVE INITIAL DATA ADDRESS 
BUILD ADDRESS OF THE 

TABLE OF CHAIN LENGTHS 
READ CHAIN LENGTH FROM TABLE 
SET COUNTER TO CHAIN LENGTH 
BUILD ADDRESS 

EQUAL TO 

DATA ADDRESS 

PLUS CHAIN LENGTH 
READ DATA BYTE 1 
READ DATA BYTE 2 
INCREMENT COUNTER 
COMPARE DATA BYTES 
BRANCH IF DATA BYTES NOT EQUAL 
TEST FOR LAST COMPARE 
GO BACK IF NOT LAST COMPARE 
SET HDWR LATCH TO CHAIN LENGTH 
SET D TO PCCL SAVE ADDRESS OF C7 
STORE HDWR BYTE FOR SYSTEM RESET 
RESTORE INITIAL DATA ADDRESS 

CLEAR MCS TABLE ROUTINE 

BUILD MCS XLATE TABLE ADDRESS 
BUILD CLEAR CHARACTER OF ff 
CLEAR TRANSLATE 

TABLE TO FF 
BUILD 00 CHARACTER 
STORE 00 IN POS 00 XLATE TABLE 
GO STORE 00 IN POS 40 XLATE TBL 

LOAD MCS TABLE ROUTINE 

READ CHAIN IMAGE BYTE 

TURN ON NEW CHARACTER SWITCH 



ADDR 


WORD 


SEQUENCE NO- 


LABEL 


NEXTSEQ 


J2C0 


2118 


OMCS 


058 






32C2 


71C0 


DMCS 


059 


STLOOP 




32C4 


CE4D 


DMCS 


060 




064 


32C6 


204D 


DMCS 


061 


STZERQ 




32C8 


2640 


DMCS 


062 






32CA 


F4C2 


DMCS 


063 




059 


32CC 


CBE7 


DMCS 


064 


NOFOLD 


081 


32CE 


CF67 


OMCS 


065 




081 


J2D0 


DA66 


OMCS 


066 




081 






DMCS 


067 


* 








OMCS 


068 


* 








OMCS 


069 


* 




32D2 


1E43 


DMCS 


070 






3204 


2515 


DMC S 


071 






32D6 


C167 


DMCS 


072 


ROUST 


081 


32D8 


4948 


OMCS 


073 






320A 


6901 


DMCS 


C74 






32 DC 


C4D6 


OMCS 


075 




072 


32DE 


F163 


DMCS 


076 




078 


3260 


6446 


OMCS 


077 






32E2 


4D40 


OMCS 


078 


AOOROK 




3264 


B2C2 


OMCS 


079 




059 






DMCS 


080 


* 




32E6 


51B9 


DMCS 


081 


CKLAST 




3268 


6BF1 


DMCS 


082 






326A 


C4BC 


OMCS 


083 




056 






DMCS 


084 


* 








DMC S 


085 


♦ 








OMCS 


006 


* 




32 EC 


5462 


DMCS 


C87 






32EE 


5EF2 


DMCS 


088 






32FO 


4642 


OMCS 


089 






32F2 


2105 


OMCS 


090 






32F4 


2E43 


DMCS 


091 






32F6 


802E 


DMCS 


092 




DPTR 054 






DMCS 


093 


* 








OMCS 


094 


A TABLE 


AQDR-220A 


220A 


1028 


OMCS 


095 


C 








DMCS 


096 


AEND 





NEXTLABEL STATEMENT 



NOFOLD 



STLOOP 
CKLAST 
CKLAST 
CKLAST 



CKLAST 



ROLIST 
ADOROK 



STLOOP 



ROLOGP 



CHEND 



U1=U1*K01 

STB Ui AS,P 

BR IF HO BIT0=1 

P1-PH-K40 

00= DO *K 40 

BR IF DYN BIT3=0 

BR IF PRO BIT4=l 

BR IF Hi BIT 0=1 

BR IF HO BIT5=0 



H0=H0*~K04 

G1=0$K10 

BR IF Gl BIT*=1 

ROB II OS,G+l 

il=IlnPl 

BR IF ZNZ 

BR IF Gl BIT7=1 

G= G-2 

ROB PI CS,G 

BR 

Tl=Ui 
Tl=TiQHl 

BR IF ZNZ 



ROH G CA, BC 
RON H DA, BE 
ROH D DC, 98 
Ul=0$K00 
H0=0$K04 
BR 



CL0AD=*E60, EC LEVEL=12821l 

COMMENTS 

INCREMENT PRINT POSITION COUNTER 
STORE PRINT POS NUMBER IN TABLE 
BR AROUNO FOLD ROUTINE IF ON 
PLCS 40 HEX TO ADDRESS FOR FOLD 
ADO 40 TO NUMBER OF FOLDS CTR 
STAY IN LOOP 4 TIMES 
BRANCH IF NOT OUALING 
BR AROUND OUAL RTN IF 240 CHAR 
BR IF NEW CHARACTER SWITCH OFF 

OUALING ROUTINE 

RESET NEW CHARACTER SWITCH 
SET REG TO OUALED PAIR LIST 
BR WHEN REG POINTS PAST LIST 
GET ONE OF THE DUALED CHARACTERS 
COMPARE TO CHAIN IMAGE CHARACTER 
BR IF NOT EQUAL 
BR IF MATCH WAS FIRST OF PAIR 
SET AOOR TO CHAR TO BE DUALEO 
GET TABLE AOOR OF DUALED CHAR 
GO STORE PRINT POSITION NUMBER 

IN DUAL CHARACTER POSITION 
TEST FOR 

LAST CHARACTER 
BRANCH IF NOT LAST CHARACTER 

END HOUSEKEEPING 

RESTORE G REG 
RESTORE H REG 

D=C0C8 1403 UCW AODRESS 

ZERO COUNT 

SET DEVICE END 

GO TO CHANNEL END ROUTINE 
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XCTL* 1028303C50784C5D6C4D7C707B7E f 

********************************** 

* CROSS REFERENCE FOR CSECf DMCS * 
********************************** 



OMCS 003 


OMCS 


032 




DMCS 009 


DPTC 


060 




DMCS 010 


DPI.C 


04 7 




DMCS 018 


OMCS 


013 




OMCS 022 


DMCS 


005 




DMCS 028 


OMCS 


026 


DMCS 034 


OMCS 035 


OMCS 


0C7 




OMCS 048 


OMCS 


049 




DMCS 056 


OMCS 


083 




DMCS 059 


DMCS 


063 


OMCS 079 


OMCS 061 


DMCS 


052 
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********************************** 

* CROSS REFERENCE FOR CSECT DMCS * 
********************************** 



DMCS 064 DMCS 060 

DMCS 072 DMCS 075 

DMCS 078 DMCS 076 

DMCS 081 DMCS 064 DMCS 065 DMCS 066 DMCS 072 
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DPTC DESCRIPTIVE TEXT 



ENTRY POINTS 



NOQP - ENTRY IS MADE TO THIS LABEL TO SET CHANNEL 
END AND DEVICE END FOR ANY OF THE NO-OP 
CQMMANOS ISSUED FOR THE PRINTER OR READER- 
PUNCH. 



CMDREJ - 



COMHI X - 



WHEN A LOAD MCS AND FOLD, OR A LOAD MCS 
AND NO FOLD COMMAND, IS NOT PRECEEDED BY A 
GATE LOAD COMMAND, ENTRY IS MADE TO THIS 
LABEL TO REJECT THE COMMAND. 

ENTRY IS MAOE TO THIS BRANCH SET FROM THE 
-OPTS- ROUTINE TO DECODE THE PRINTER 

COMMAND. 



ADDR 



WORD SEQUENCE NO. 



LABEL 



060C 
060E 
0610 

0604 
0606 
0608 
060A 

0616 
06 18 
06 1A 

061C 
061E 
0612 
0614 



lAOO 
1A02 
IA04 
IA06 
IA08 
1A0A 
iAOC 
1A0E 
1A10 



F2I3 
3F23 

861C 

EBG9 
F213 

1F43 

861C 

EBiB 
F213 
3F43 

2EC3 

8D58 
3F85 
9D3A 



C82E 
9 835 
8612 
8612 
8612 
8612 
8612 
9042 
C80C 



DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
OPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
OPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 



001 
002 
003 
004 
006 
007 
008 
009 
010 
Oil 
012 
U13 
014 
015 
016 
017 
018 
020 
021 
022 
024 
025 
026 
02 7 
028 

02 9 

03 
031 
032 
033 
034 
035 
036 
037 



NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

1403 COMMAND DECODE AND CHECK READ 



GATELD 

ADATCK 
FIRST 

BDATCK 
ISFIRS 
NOOP 
CMDREJ 



CCMHI 
COMHI 
COMHI 
COMHI 
COMHI 
COMHI 
COMHI 
CCMHI 
COMHI 




1 
2 
3 

4 
5 
6 
7 

8 



GATE LOAD COMMAND 

024 CMDREJ BR IF DO BIT 

Hl=Hl$K02 

021 NOOP BR 

ALLOW DATA CHECK COMMAND 

013 FIRST BR IF H16= 1 

024 CMOREJ BR IF 007*1 
H1=H1*-K04 

021 NOOP 6R 
BLOCK DATA CHECK COMMAND 



018 
024 



ISFIRS 

CMDREJ 



NO-OP COMMAND 



H0=0$K0C 
BR 

HI-HUK80 
BR 
*********** 

♦**1403 COMMAND DECODE ♦♦♦ 

*********** 



DPTR 080 IMMEOI 



OPTS 064 ISLCHK 



7=1**BR IF LAST COMMAND CHAIND 
♦♦SET GATE LOAD TAG 
♦♦BR TO NO-OP 

BR IF GATE LOAD IS ON 
BR IF NOT FIRST IN CHAIN 

RST BLOCK DATA CHK 
GO UPDATE SENSE BYTE 

BR IF H16=l BR IF GATE LOAD IS ON 

BR IF 007=1 BR IF NOT FIRST IN CHAIN 

Hl=Hl$K04 SET BLOCK DATA CHECK 

SET CH END, DE^J £N0 

SET COMMMAND RE J 
♦♦BR TO INITIAL SELCTN CHK 
****************************** 

****************************** 



065 
083 
024 
024 
024 
024 
024 
067 
035 



COMLOS 

COMLOB N 

CMDREJ 

CMOREJ 

CMDREJ 

CMDREJ 

CMDREJ 

DCCM1 

COMHI 6 



BR IF P04=0 

N^PO BITS 567 

BR 

BR 

BR 

BR 

BR 

BR 

BR IF P04=0 



INVALID 
COMMAND 
GO TO 
COMMAND 
REJECT 

SEPERATE LOW INVALID 



AuCR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 



CL0AD=*E60, EC LEVEL = 1282ll 
COMMENTS 



PAGE 189 



1A12 
1A14 
1A16 
1A18 

1AIA 
LAIC 
1A1E 
1A20 
1A22 
1A24 
IA26 
LA28 
1A2A 
iA2C 

LA2E 

1042 
1044 
1J46 
104A 
104C 
1U4E 
1048 

LAAO 
1AA2 
UA4 
1AA6 
1AA8 
1AAA 
IAAC 
1AAE 
1AC0 
1AC2 
1AC4 
1AC6 
1AC8 
IACA 
1ACC 
1ACE 



00C6 



7u00 
7ul6 
702C 
7042 



9835 
9835 
9835 
9835 

9835 
C81A 
0C3B 
F0A4 
AF7A 
OCBB 
FC8C 
FC2D 
86CC 
AF7 8 

9855 

CC3B 
FCCA 
8616 
GCBB 
FOCd 
66C4 
8612 

6612 
8C0C 
8612 
8D54 
8612 
8612 
8612 
6612 
6612 
8C0C 
8612 
661C 
6F66 
8612 
6612 
8612 



0004 



0025 
it IF 
1800 
2627 



OPTC 
DPTC 
DPTC 
OPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
OPTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 



038 
03 9 
040 
041 
042 
043 
C44 
045 
047 
051 
52 
053 
055 
060 
064 
065 
066 
067 
068 
070 
074 
075 
077 
081 
082 
C83 
084 
085 
086 
087 
C88 
089 
090 
091 
092 
093 
094 
095 
096 
09 7 
098 
099 
100 
101 
102 
103 
104 
105 
107 
111 
112 
113 
114 



COMHI 
COMHI 
COMHI 
COMHI 
COMHI 
COMHI 
COMHI 



BCHECK 



LDUCB 



CGMLOS 



DC0M1 



CHECAL 



BADCGM 
* 
COMLOB 
COMLOB 
COMLOB 
COMLOB 
COMLOB 
COMLOB 
COMLOB 
COMLOB 
LOBRS 
LOBRS 
LOBRS 
LOBRS 
LOBRS 
LOBRS 
LOBRS 
LOBRS 

* 

A TABLE 
HAUX 

AEND 

ATABLE 

C 

C 

c 
c 



083 
083 
083 
083 
083 
042 

051 
OMCS 010 



COMLOB N 
COMLOB N 
COMLOB N 
COMLOB N 
COMLOB N 
COMHI D 

BCHECK 
MCSRTN 



035 COMHI 6 
060 LDUCB 
007 GATELD 
DMCS 009 MCSNOF 

COMMAND DECODE 
091 LOBRS N 

COMMAND DECODE 

074 CHECAL 
016 8DATCK 



081 
Oil 
024 
COMMA 
024 

DPTR 006 
024 

DPTR 077 
024 
024 
024 
024 
024 

DPTR 006 
024 
021 

DPTS 083 
024 
024 
024 



8ADCCM 
ADATCK 
CMOREJ 
ND DECODE 
CMDREJ 
WRITE 
CMDREJ 
CARCTL 
CMOREJ 
CMDREJ 
CMDREJ 
CMDREJ 
CMDREJ 
WRITE 
CMDREJ 
NOOP 
SENSE1 
CMOREJ 
CMDREJ 
CMDREJ 



N = P0 

N=P0 

N=PO 

N=PO 

N = PO 

BR I 

Z-=P0 

BR I 

BR 

Z=P0 

BR I 

BR I 

BR 

BR 

01 TH 
N^PO 

,73 
Z = P0 
BR I 
BR 

Z = PQ 
BR I 
BR 
BR 



BITS567 
8ITS567 
8ITS567 

BITS567 
BITS567 

F P04=0 
□ K03 

F LZNZ 

OKOB 
F LZNZ 
F P03=l 



RU OF 

BITS567 
AND 76 

□ K03 
F LZNZ 

□ KOB 
F LZNZ 



**************** 



BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 

* 
*** 

* 



LOOK 

FOR UCB F3 f FB 
BR TO LOAD UCB FOLD 

BR IF NOT F3 OR FB 
COMM IS XB 
CJMM IS LOAD *EB* 
**FB** GO LOAD NO FOLD 



BLOCK DATA CHECK COMM 



****************** 
****************** 

** PRINT CHARACTER 



ALLOW DATA CHECK 
REJECT 

INVALID 

WRITE WITH VALID MOD 

INVALID 

CARRIAGE CTRL 

INVALID 

INVALID 

INVALID 

INVALID 

INVALID 

WRITE WITH VALID MOD 

INVALID 

NO OP 

SENSE 

INVALID 

INVALID 

INVALID 
************************ 
******************************* 

CTRL LENGTH *** 



ADOR=00C6 



1403 
ADDR=7000 



TRANSLATE TABLE IN AUX STORAGE ************** 

XAUX«002 5262728292A232C2D2E2F3018 2E0016191A1BIC1D« 
XAUX» IE 1F2021 2223243000 C02 20D0E0F 101 112 13141 51 61 7 • 
XAUX* 180017000A01020 30405060708090AOBOCOCOB00002 5' 
XAUX» 262728292A2B2C2D2E2F30182E0016191A1B1C1D1E1F* 



ADDR 



WORO SEQUENCE NO, LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD*«E*Qy EC LEVEL* 1282 11 
COMMENTS 
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f()5fc 


2021 


DPTC 


115 


C 


706fc 


170 


DP IC 


116 


c 


f084 


2829 


DPTC 


1 1 7 


C 


7u9A 


2223 


DPTC 


118 


C 


70 BO 


OAOl 


DPTC 


119 


C 


?0C6 


2A2B 


OP TC 


120 


C 


700C 


24 30 


DPTC 


121 


C 


70F2 


0203 


DPTC 


122 


c 






DPTC 


123 


A END 



DPTC 
OPTC 
OPTC 
DPTC 
OPTC 
DPTC 
OPTC 

DPTC 
DPTC 
DPTC 
DPTC 
DPTC 
OHTC 
DPTC 
DPTC 
DPTC 
DPTC 
DPTC 



007 
Oil 
013 
016 
018 
021 
024 

029 
035 
042 
051 
060 
06 5 
067 
074 
081 
083 
091 



DPTC 055 

DPTC 077 

DPTC Oil 

DPTC 70 

DPTC 016 

DPTC 0C9 

DMCS 014 

DPTC 087 

OPTS 057 

DPTC 037 

DPTC 043 

DPTC 045 

DPTC 053 

DPTC 029 

DPTC 036 

DPTC 06 8 

DPTC 075 

DPTC 030 

DPTC 065 



XAUX* 202122232430000022 CDOEOF 101 11213141 51 61 71 800* 
XAUX» 17000AOi0203040506C708090AOBOCOC 080016252627* 
XAUX» 28 29 2A2B2C2D2£2?3018 2E0'02Z191AiaiClDl-ElF202r* 
XAUX' 2223243OO0OGOOODOE0Fl0ill21314l5161718001700 f 
XAUX« OA0102030405060 7G8C90A080COCOB00162526272829« 
XAUX«2A282C2D2E2F30182E0022191A1B1CTD1E1F2021222 3* 
X AUX f 24300000000D0E0F 10 1 1 12131 41 51 61 71 80017G00AG 1 « 
XAUX«020304050607C8090AOBOCOCOaOO t 

********************************** 
* CROSS REFERENCE FOR CSECT DPTC * 

********************************:** 



DPTC 014 
DPTC 007 
DPTC 088 

DPTC 052 



DPTC 094 
DPTC 012 
DPTC 089 



tRDR 087 
DPTC 017 
DPTC 090 



DPTC 031 
DPTC 091 



DPTC 032 
DPTC 093 



DPTC 033 
DPTC 096 



DPTC 034 
DPTC 097 



DPTC 035 
DPTC 098 



DPTC 081 DPTC 083 DPTC 085 



DPTC 038 DPTC 039 DPTC 040 DPTC 041 DPTC 042 



ENTRY POINTS 
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DPTQ DESCRIPTIVE TEXT 



PTRREQ - ENTRY IS MADE AT THIS LABLE FROM THE -BSWI- 
ROUTINE. BIT 7 OF THE EXTERNAL IPRS) HAD 
BEEN TESTEO AND FOUND TO BE ON. THIS 
INDICATES THAT A PRINT REQUEST HAS BEEN 
GENERATED. 

TAKE IN - ENTRY IS MADE HERE TO ATTEMPT TO STORE THE 
UCW ADDRESS OF THE NATIVE DEVICE INTO THE 
INTERRUPT BUFFER* 



STINST - ENTRY HERE IS TO STORE CHANNEL STATUS, FLAGS, 
UNIT STATUS, AND COUNT INTO THE UCW. 

CHAIOK - WHEN COMMAND CHAINING IS IN EFFECT, THIS 
ENTRY IS USED TO ZERO UNIT STATUS, STORE 
UPDATED UCW. 



ADDR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



1D6A 
IU6C 
1D6E 
1D70 
ID 72 
1D74 
1D76 
1D78 
1D7A 
1D7C 
1D4E 
1D50 
1D52 
1D54 
1D56 
1D48 
104A 
1D4C 
1D58 
1D5A 
1D5C 
1D5E 
1060 
1062 
1D64 
1066 
1D68 
1D44 



4642 
A072 
0149 
C44F 
CAF7 
3423 
1F45 
3485 
2E43 
9D52 
CED9 
DA74 
B10A 
A568 
AAA2 
C474 
CED9 
9D60 
B14C 
OECi 
FGE1 
1545 
D565 
9D52 
DA45 
2E07 
9D54 
A566 



DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPIQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 
DPTQ 



001 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
019 
020 
021 
023 
024 
02 5 
026 
027 
028 
029 
030 
031 
032 
G33 
034 
036 



PTRREQ 



IFCHEK 
CLEAR 



DEVEN1 

TAKE1N 
STINST 

SECCHK 
CH12 

CHAINC 
TESTDV 

CHAIOK 



***** 

***** 

INTE 

ERRQ 080 
023 
016 
012 



********** 
********** 

RRUPT REQU 

RDCCNT 
SECCHK 
DEVEN1 
CLEAR 



1403 INTERRUPT REQUEST ROUTINE 
***************************************************** 
***************************************************** 
EST ROUTINE MODE IS 18 FROM TYPE 



ROH D DC, 98 



D^COCB 1403 UCW ADDRESS 



019 

026 

Oil 

OCOM 008 

DCOM 049 

BSWI 066 

Oil 

026 

30 

DPTT 071 



032 

019 
036 

020 
OCOM 048 



TAKEIN 

CHI 2 

IFCHEK 

INTRPT 

REDSTR 

RESTRH 

IFCHEK 

CH12 

CHAINC 

SENCHK 



30 CHAINC 



TESTDV 
TAKEIN 
CHAIOK 

STINST 

CHANQK 



BAL 



** GO GET CHAN., UNIT STATUS IN G,H. CT IN U 



BR IF ACTIVE 
BR IF SECONDARY ON 
BR IF INIT READY ON 
SET INTERFACE CHECK 
♦♦RESET INTERVENTION REQD 
SET SECONDARY ON 
SET DEVICE END 

BR IF EXT DEV END 

BR IF NO Ot STAT 
** GO TRY FOR NORMAL INTERRUPT — NOT PCI 
** GO UPDATE UCW G , H-CHAN*STAT,FLAGS UNITSTAT 

RST MODE-GO BACK TO NAT REQ 

BR IF NO SECONDARY 

BR IF EXT DE 



QR IF G15=1 

BR IF G00=1 

BR IF PRS4=1 

G0=G0$K02 

H1=H1*-K40 

G0=G0$K80 

H0=0$K04 

BR 

BR IF PRSO^i 

BR IF H05=0 

BAL 

BAL 

BR 

BR IF G00=0 

BR IF PRS0=1 

BR 



GO CHECK SENSE 
LOOK FOR UNIT CHECK 

OR UNIT EXCEPTION 
RST CHAINING IF ERROR 
BR IF CHAIN 



BAL 

Z=HO*-KQC 

BR IF LZ=0 

G1=G1*~K40 

BR IF Gll=l 

BR 

BR IF H05=l BR IF DE 

H0=0 CLEAR STATUS 

BR ** STORE UCW - GO BACK TO INRU 

BAL ** GO UPDATE UCW CHAN . STAT f FLAGS UNIT STAT 
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ADOK WORD SEQUENCE NLU LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

ID46 93CA OPTQ 037 DCLB 039 CHAIN BR 

********************************** 

* CROSS REFERENCE FOR CSECT OPTQ * 
********************************** 



DP TQ 006 


BSWI 


065 
















DPTQ Oil 


DPTQ 


017 


DPTQ 


023 












OPTQ 012 


OP TQ 


010 
















OPTQ 016 


DPTQ 


0C9 
















DPTQ 019 


B WRP 


086 


DCLR 


039 


DPTQ 015 


DPTQ 031 


DPTR 072 


OPTS 069 


ERRQ 063 


DPTQ 020 


DPTQ 


034 


DPTR 


073 


ERDR 073 


EXFR 142 








DPTQ 023 


DPTQ 


0C8 
















OPTQ 026 


DPTQ 


016 


DPTQ 


024 












DPTQ 030 


DPTQ 


025 


OPTQ 


02 8 












DPTQ 032 


DPTQ 


030 
















DPTQ 036 


DPTQ 


032 


DPTR 


043 


DPTR 071 


ERRQ 038 









ENIRY POINTS 



DPTR DESCRIPTIVE TEXT 
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WRITE - 



WXFER3 - 



AFTER A 1403 WRITE COMMAND HAS BEEN DECODED, 
ENTRY IS MADE TO THIS LABEL FROM THE -DPTC- 
ROUTINE. CARRIAGE DATA IS LOADED, AND THE 
PRINT LINE BUFFER IS LOADED IN SUB-SCAN 
SEQUENCE. POSITIONS OF THE PRINT LINE BUFFER 
FROM WHICH NO PRINTING IS DESIRED ARE SET TO 
ZERO* WHEN THE PLB COUNT AND THE UCW COUNT 
BOTH REACH ZERO, CHANNEL END IS SET. 



ENTRY IS MADE HERE FROM THE -DPTS- 
WHEN DATA CHAINING IS IN EFFECT. 



ROUTINE 



END3K - THIS IS THE NORMAL ENTRY FOR SETTING CHANNEL 
END FOR A SENSE COMMAND. ENTER PROM THE 
-OPTS- ROUTINE. 

CCBR - ENTRY IS MADE HERE FROM THE -EXFR- ROUTINE 
TO ATTEMPT A CHANNEL END INTERRUPT 

CARCTL - WHEN A CARRIAGE CGNTROL OPERATION IS DECODED 
IN THE 1403 COMMAND DECODE ROUTINE -DPTC-, 
ENTRY IS MADE HERE TO SET THE CARRIAGE 
CONTROL REGISTER AND SET CHANNFL END. 



CHEND - ENTRY IS MADE AT THIS LABEL FROM THE -DMCS- 
ROUTINE TO SET CHANNEL END AT THE COMPLETION 
OF AN MCS LOAD OPERATION. 

INCLEN - WHEN A SENSE COMMAND IS ISSUED TG THE 

PRINTER AND DATA CHAINING HAD BEEN SPECIFIED, 
ENTRY IS MADE AT THIS LABEL FRCM THE -DPTS- 
ROUTINE TO TEST THE SLI FLAG AND TO SET 
CHANNEL END. 



IMMEDI - A 1403 NO-OP COMMAND FROM -DPTC-, OR A 

READER COMMAND IMMEDIATE FROM -EXFR-, ENTER 
AT THIS LABEL TO SET THE SECONDARY BIT AND 
CHANNEL END. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXT LABEL STATEMENT 



COMMENTS 







DPTR 


001 


T 






DPTR 


003 


* 






DPTR 


004 


* 






DPTR 


00b 


* 


OCDC 


EB60 


DPTR 


006 


WRITE 


OCDE 


2D20 


DPTR 


007 




OCEO 


4DCF 


DPTR 


008 


GLOAD 


JC62 


2813 


DPTR 


009 


RWBAL 


0CE4 


2965 


DPTR 


010 




0CE6 


294B 


DPTR 


Oil 




UCE8 


2A25 


DPTR 


012 




OCEA 


2ACB 


DPTR 


013 




OCEC 


2C75 


DPTR 


015 




OCEE 


5D38 


DPTR 


019 


WXFER1 


JLFO 


5BC0 


OPTR 


020 




0CF2 


4F8F 


DPTR 


021 




0CF4 


2D04 


DPTR 


022 




0CF6 


OBFF 


DPTR 


023 




0CF8 


C4FC 


DPTR 


024 




OCFA 


3F83 


DPTR 


025 




OCFC 


4BBF 


DPTR 


026 


WXFER2 



1403 WRIT 

******* ********** 4s********* 

♦ ♦♦ WRI 
*************************** 



008 GLCAD 



026 WXFER2 



BR IF Hi6= 

SET PR A K = 

PRC^PO 

I0=0$K01 

I1=0$K80 

Il=Il+K04 

T0=0$K20 

T0=T0+K0C 

P0=0$K70 

ROB PI V+l 

RDB Tl AS, 

PR=IO 

SET PRA K= 

Z=TlaKFF 

BR IF ZNZ 

H1=H1$K08 

PRO=T 1 



E-CHANNEL END, AND CARRIAGE CTRL ROUTINE 
***************************************** 

TE COMMANDS ♦ ♦♦ 
***************************************** 

BR IF NOT GATE LOAD 

02 BLOCK TWO HOME PULSES 

LOAD CARRIAGE DATA 
SET PL8AR COUNT 01 SET DE 

♦♦SET PLB COUNT 84 DEC 132 

♦ ♦SET PLEAR CONST 2C DEC 44 

PLB TABLE ADDR FOR NOT 24K 

♦♦READ CHAR FROM DATA ADDR 
P+0 ♦♦READ CHAR FROM TABLE 

♦♦LOAD PLBAR 
20 SET READ CONTROL 



♦♦BRANCH IF CHAR NOT FF 
♦ ♦SET DATA CHECK 
♦♦LOAD PLB 



ADDR 

OCFE 
00 00 
0002 
00 04 
0006 
0008 
OOOA 
00 OC 
uOOE 
0010 
0012 
0014 
00 16 
0018 
00 1A 
ODIC 
0D6A 
001E 
0020 
0022 
0024 
0026 
0028 
0D2A 
002C 



002E 

0030 
0032 
0034 
0D36 
0038 
003A 
00 3C 
00 3E 
0040 
0042 
0044 
0046 
0048 
004 A 
004C 
004E 
0050 
0052 



0054 
0056 
0058 
0D5A 
005C 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60t EC LEVEL=128211 
COMMENTS 
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5CC6 
C488 
29FF 
C49F 
82E4 
8CEE 
C56B 
29FF 
C4AI 
344 5 
82E4 
4F8F 
2004 
2B05 
4BBF 
8D0C 
9D44 
3445 
EAA8 
3E23 
3F 15 
1545 
0B2C 
1F83 
3002 



1F23 
0440 
C538 
40C6 
C4C0 
E53E 
1445 
8040 
1545 
3E83 
3485 
D550 
B106 
1E83 
DA52 
9258 
9044 
9D52 
9054 



4DCF 
2D02 
C55C 
15E5 
3485 



DPTR 
OPTR 
OPTR 
DPTR 
DPTR 
DPTR 
DPTR 
OPTR 
OPTR 
OPTR 
OPTR 
DPTR 
OP TR 
OPTR 
OPTR 
OPTR 
DPTR 
DPTR 
OPTR 
DPTR 
OPTR 
DPTR 
OP TR 
DPTR 
DPTR 
DPTR 
OPTR 
OPTR 
OPTR 
OPTR 
OPTR 
OPTR 
OPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DP TR 
OP TR 
DPTR 
DPTR 
DP TR 
DPTR 
DP TR 
OP TR 
OPTR 
OPTR 
OPTR 
OPTR 
DPTR 
DPTR 
OP TR 



027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
03 7 

03 8 
039 
040 
041 
042 
043 
044 
045 
046 

04 7 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
07 3 
075 
076 
077 
078 
80 
081 
082 



WXFER3 



UCNTOW 
WXFER4 



XFRBL 



GOCHN 
WRGLEN 
XFR END 



NPCHK1 
CHKEND 

CHEND 
INCLEN 



NOSLI 

EiMOOK 

CCBR 
CMDCHN 



STUCW3 

NCHAIN 



CAROL 

1MME0I 
■OKCNAI 



033 UCNTOW 



044 
093 
019 

043 



WRGLEN 
CNT89 
WXFER1 
GOCHN 



U=U-1 
BR IF 1=0 
11=I1+KFF 
BR IF Z=^0 

BAL 

BR 

BR IF Gl BITO^i**BR IF DATA CHAIN FLAG 



**BR IF UCW COUNT 
**PLB COUNT MINUS 1 
**BR IF PLB COUNT 

GO ADJUST PLBAR ADDRESS 
**BR TO NEXT BYTE 



045 XFRENO 



093 CNT89 



034 
DPTQ 036 



WXFER4 
CHAIOK 



049 NPCHK1 



Il=Il+KFF 

BR IF Z=0 

G0=G0$K40 

BAL 

PR=IO 

SET PR A K-=20 

T1=0$K00 

PRG=T 1 

BR 

BR 

G0=G0$K40 

BR IF PRS BIT6=0 

H0=H0$K02 

H1 = H1SK10 

G1=G1*-K40 



**PLB COUNT MINUS 1 

**BR IF PLB COUNT=0 

**SET INCORRECT LENGTH 

GO ADJUST PLBAR ADDRESS 

**LOAD PLBAR 

SET READ CONTROL 
SET PLB CHAR TO 00 

**LOADPLB 

**BR TO NEXT BYTE 



**SET INCORRECT LENGTH 

BR IF NO PARITY CHECK 
**SET UNIT CHECK 
**SET EQUIP CHECK 
**RES£T COMMAND CHAIN FLAG 



051 CHKEND BR IF HI 8IT5^0**BR IF NO BLOCK DATA CHECK 

H1=H1*-KG8 **RESET DATA CHECK 

SET PRA K = 9Q SET PRINT GATE AND BUSY 

**************************************************** **************** 
CHANNEL END ROUTINE 

HUH1*-K02 
064 ENDCK BR IF GO BIT1=0**BR 

060 INCLEN BR IF GiO^O 

U=U 
BR IF ZNZ 



RST GATE LOAD 
IF NO INCORRECT LENGTH 
BR IF NO OATA CHAIN 



064 
063 



ENDCK 
NOSLI 



064 ENDOK 



072 

DC OM 006 

073 

CCGM 066 
DPTQ 036 
DPTQ 019 

DPTQ 020 



STUCW3 
PC I BR 

NCHAIN 
LRSTRB 
CHAIOK 
TAKEIN 
STINST 



BR IF CCK COUNT NOT ZERO 
BR IF Gl BIT2^0**BR IFNC SLI FLAG 
G0=GO*-K40 **RESET INCORRECT LENGTH 

BR 

G1=G1*~K40 **RESET COMMAND CHAIN FLAG 

H0=H0SK08 **SET CHANNEL END 

G0=G0$K80 **SET SECONDARY BIT 

BR IF Gil=0 ** BR IF NO CHAIN — TRY FOR CHAN^ENO INT 
BAL **CHAIN IS ON f GO CHECK PCI FLAG, TRY FOR PCI INT 



H0^H0*-K08 

BR IF H05-0 

BAL 

BR 

BR 

BR ** 



RST CH. END -FOR CHAINING 

BR IF NO PEV END YET 
**BR Si LINK TO RESTORE LS 

BR TO INTERRUPT ROUTINE 



******************************************************* ************* 

CARRIAGE CONTROL COMMAND 

PRC^PO **LOAC CARRIAGE OATA 

SET PRA K*10 SET PRINT BUSY LATCH 

082 OKCHAI BR IF G10^=0 BR IF NOT CHAIN OATA 

G1=G1*-KE0 RST CC f CO f SLI 

G0=G0$K80 SET SECONDARY BIT 



AUDft 



WORD SEQUENCE NO* LABEL 



NEXTSEQ 



NEXTLA8EL STATEMENT 



OD5E 


3E8 3 


DPTR 


083 




JD6Q 


C547 


DPTR 


084 




OD62 


F251 


DPTR 


085 




0064 


0A68 


DPTR 


086 




0066 


1465 


OPTR 


087 




0068 


9D3C 


DPTR 


088 


NOTNOP 






DPTR 


090 


♦ 






DPTR 


091 


* 






OPTR 


092 


* 


02E4 


2DA5 


OPTR 


093 


CNT89 


02E6 


3D93 


DPTR 


094 




02E8 


2BA5 


OP TR 


095 




02EA 


3B73 


DPTR 


96 




02EC 


6B83 


DPTR 


097 




02EE 


F4F5 


OPTR 


098 




02F0 


68A3 


DPTR 


099 




02F2 


128E 


OPTR 


100 




02 F4 


68D3 


OPTR 


101 


GREA89 


02F6 


128E 


DPTR 


102 








DPTR 


103 


* 



06 7 CMOCHN 
072 STUCW3 

088 NOTNOP 

DPTS 066 PCENTR 
************** 

************** 
************** 



101 GREA89 



************** 
******* 

* CROSS 
******* 



H0=H0$K08 * 

BR IF Gl BIT 1=1* 

BR IF DO BIT 7=1* 

8R IF H05=0 

G0=G0*-K80 

BR 
******************* 
******************* 
******************* 

P1=0$KA0 

P1=P1$K09 

T1=0$KA0 

T1=T1$K07 

T1=T1+I0 

BR IF AO=i 

I0=I0+T0 

RTN 

IOMO+Pl 

RTN 
******************* 
******************* 

REFERENCE FOR CSEC 
******************* 



CL0AD=*E60, EC LEVEL=128211 

COMMENTS 

*SET CHANNEL END 

*BR IF THIS COMMAND CHAi ND 

*BR IF LAST COMMAND CHAIND 

BR IF NO Dfc 

RST SECONDARY BIT 
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*********************************** 


*********************************** 


*********************************** 


SET 


UP 


CONSTANT OF 169 


PUT 


CONSTANT OF 




167 IN Tl 


ADD 


167 TO PLBAR AND 


BP 


: IF PLBAR=89 OR GREATER 


NOT 


89 YET ADD 44 


RETURN TO READ OR WRITE 


ADD 


169 TO PLBAR 


RETURN TO READ OR WRITE 


*********************************** 


:******** 




T DPTR * 




:******** 





OPTR 


006 


OPTC 


084 


DPTC 


092 


DPTR 


008 


DPTR 


0C6 






DPTR 


019 


DPTR 


032 






OPTR 


026 


DPTR 


024 






OPTR 


029 


DPTS 


063 






DPTR 


033 


DPTR 


028 






DPTR 


034 


DPTR 


042 






DPTR 


043 


DPTR 


033 






DPTR 


044 


DPTR 


030 






OPTR 


045 


DPTR 


035 






DPTR 


049 


DPTR 


045 






OPTR 


051 


DP IR 


049 






OPTR 


054 


DMCS 


0<52 






DPTR 


060 


OPTR 


056 


DPTS 


094 


OPTR 


063 


DPTR 


060 






OPTR 


064 


DPTR 


055 


DPTR 


058 


OPTR 


066 


EXFR 


144 






OPTR 


067 


DPTR 


084 






DPTR 


072 


DPTR 


066 


DPTR 


085 


OPTR 


073 


DPTR 


069 






DPTR 


077 


OPTC 


C86 






OPTR 


080 


OPTC 


022 


EXFR 


131 


OPTR 


082 


DPTR 


080 






OPTR 


088 


DPTR 


086 






OPTR 


093 


DPTR 


031 


DPTR 


037 


OPTR 


101 


DPTR 


098 







DPTR 062 DPTS 095 
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OPTS DESCRIPTIVE TEXT 



ENTRY POINTS 

PRSIO - ENTRY TO THIS LABEL IS MADE FRCM THE -DCLB- 
ROUTINE* THE CCW HAS BEEN FETCHED AND A 
PRINTER START I/O IS DETECTED. 

ISLCHK - A 1403 COMMAND REJECT ENTERS AT THIS LABEL 
FROM THE -DPTC- ROUTINE TO PERFORM AN 
INITIAL SELECTION CHECK* 

PCENTR - IF A OEVICE END HAS NOT OCCURRED FOR A 

CARRIAGE OPERATION, ENTRY IS MADE TO THIS 
LABEL FROM THE -DPTR- ROUTINE TO STORE 
CHANNEL STATUS» UNIT STATUSt AND FLAGS IN 
THE UCfc. 



PCENTR CONTINUED 

ENTRY MAY ALSO BE MADE TO THIS LABEL FROM 
THE -ERDR- ROUTINE TO STORE CHANNEL STATUS, 
UNIT STATUS, AND FLAGS IN THE UCW WHEN A 
READER OR PUNCH COMMAND REJECT IS DETECTED, 

NOPCIF - ENTRY IS MADE AT THIS LABEL FROM THE -DYPE- 
ROUTINE TO HANDLE STATUS FOR A PR-KB NO-OP 
OR NOT READY CONDITION* 

SENSE - ENTRY IS MADE AT THIS LABEL FROM THE -DYPE- 
ROUTINE TO HANDLE A SENSE COMMAND FOR THE 

PR-KB, 



ADDR 



WORD SEQUENCE NO, LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



DPTS 


001 


T 


OPTS 


003 


* 


DPTS 


004 


* 


OPTS 


003 


* 


DPTS 


006 


♦ 


DPTS 


007 


♦ 


DPTS 


008 


* 


DPTS 


009 


* 


DPTS 


010 


♦ 


DPTS 


on 


* 


DPTS 


012 


* 


DPTS 


013 


* 


DPTS 


014 


♦ 


DPTS 


015 


* 


DPTS 


016 


* 


DPTS 


017 


* 


DPJS 


018 


* 


DPTS 


019 


* 


DPTS 


020 


* 


DPTS 


021 


* 


DPTS 


022 


* 


DPTS 


023 


♦ 


DPTS 


024 


* 


DPTS 


025 


* 


DPTS 


026 


* 


DPTS 


027 


♦ 


DPTS 


02 8 


* 


DPIS 


029 


* 


DPTS 


030 


♦ 



1403 PRINTER START I/O AND SENSE 
1403 START 10 ACTIVE SECONDARY 

COUNT U 

DATA ADDRESS V 

COMMAND BYTE GO 

FLAGS AND OP Gl 

CHANNEL STATLS HO 

UCW ADDRESS D 0XC8 

UCW STATUS BYTE OXCA 

UCW SENSE BYTE OXCB 



**************************************** 

NATIVE 1403 UCW FORMAT 

* * *** ***** * *** *** ** * ****** * ****** ******** 

CA CC CE 



ca 

* 



* * * * * * 

* CHANNEL* CHANNEL* UNIT * UNIT * RESIDUAL * 

* STATUS* FLAGS * STATUS * SENSE * COUNT * 

* * * * * * 



* 

NEXT CCW * 

ADDRESS * 

* 
* 



CH STAT-C8 


CHANNEL FLAGS-C9 


UNIT STAT-CA 


UNIT SENSE-CB 


O-SEC 


O-CHAIN DATA 


Q- 


0-COMM REJ 


1-INC LENGTH 


1-COMM CHAIN 


1- 


1-fNTERV REQ 


2-PROG CHECK 


2-SLI 


2- 


2- 



AUOK 



WORD SEQUENCE NO* LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0A0=*E60» EC LEVEL = 1282 11 
COMMENTS 
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OPTS 


031 


* 






OPTS 


032 


* 






DPTS 


033 


* 






OPTS 


034 


♦ 






OPTS 


035 


* 






DPTS 


036 


♦ 






DPTS 


037 


* 






DPTS 


038 


* 






DPTS 


039 


* 






DPTS 


040 


* 






DPTS 


041 


* 


LCFC 


2482 


OPTS 


042 


PRSIO 


LCFE 


5449 


OPTS 


043 




1000 


C4B7 


OPTS 


044 




1D02 


80C4 


OPTS 


045 




1D04 


54C9 


OPTS 


046 




1006 


A078 


OPTS 


047 




1D08 


0C4B 


DPTS 


048 




1D0A 


C497 


DPTS 


049 




iQOC 


0C3B 


OPTS 


050 




1D0E 


C4S7 


DPTS 


051 




1D10 


1000 


OPTS 


052 




1012 


1FF5 


DPTS 


053 




10 14 


1F93 


DPTS 


054 




1016 


2E05 


OPTS 


055 


READY 


1018 


DE9C 


OPTS 


056 




IDiA 


BC05 


OPTS 


057 




10 1C 


3F45 


DPTS 


058 


NOTRDY 


1U1E 


CC4B 


OPTS 


059 




1020 


C4BA 


DPTS 


060 




1022 


8F68 


DPTS 


061 




10 36 


5460 


DPTS 


062 


CHDATA 


1038 


80C2 


DPIS 


063 




1D3A 


2E23 


DPTS 


064 


I SLCHK 


103C 


1547 


DPTS 


066 


PCENTR 


103E 


F224 


DPTS 


067 




1040 


3543 


DPTS 


068 




1042 


9052 


DPIS 


069 




1024 


5E29 


DPTS 


070 


NOTINT 


1026 


2EC7 


DPTS 


071 




1028 


A568 


DPTS 


072 




102A 


52E9 


OPTS 


073 




102C 


C131 


OPTS 


074 




102E 


1485 


OPTS 


075 




1030 


54F9 


DPTS 


077 


NOPCIF 


1032 


9258 


DPIS 


078 




1034 


A030 


DPTS 


079 








DPTS 


080 


♦ 






DPTS 


081 


* 






DPTS 


082 


* 


0F66 


1F45 


DPTS 


083 


SENSE1 


0F68 


F573 


DPIS 


084 


SENSE 


0F6A 


5F89 


DPTS 


085 





3-PRGT CHECK 
4-CH DATA CHK 
5-CH CTRL CHK 
6-lNTFCE CHK 



3-SKIP 
4-PCI 
5-ACTIVE 
6-INPUT 



7-INT IN BUFFER 7-OUTPUT 



3-BUSY 
4-CH END 
5-DEV END 
6-UNIT CHK 
7-UNIT EXEC 



3-EQUIP CHK 
4-DATA CHK 
5-BLOK DAT CHK 
6-GATE LOAD 
7-CHAN 9 



062 CHDATA 

CCOM 058 LSAVEB 

ERRQ 083 ROCHST 

055 READY 

055 READY 



058 NOTRDY 
DPTC 029 COMHI N 



064 ISLCHK 
084 SENSE 

DPTR 029 WXFER3 



070 NOTINT 

DPTQ 019 TAKEIN 

DC CM 049 REDSTR 

077 NOPCIF 



CCCM 066 LRSTRB 
CCOM 135 STATUS 

SENSE COMMAND 



089 SNSRTN 



**************************************** 

START I/O ACTIVE-0 SECCNDARY-0 
***************************************** 



SET MODE K=18 

G0=G0 

BR IF Z=0 

BAL 

PO=GO 

BAL ♦♦ GO 

Z=P0aK04 

BR IF Z=0 

Z=P0aK03 

BR IF Z=0 

RST PRA K=80 

H1=H1*-KF0 

H1=H1*-K09 

H0=0$K00 

BR IF PRS BIT 

N=POH 

Hl=Hl$K40 

Z=P0nK04 

BR IF ZNZ 

BR 

RDH G AS, D+0 

BR 

H0=G$K02 

G1=G1*-K44 

BR IF DO B1T7 

G1=G1SK04 

BR 

VO=HO 

H0=0 

BAL 

H0 = V0 

BR IF G14=1 

G0=G0*-K80 

Hl=G0 

BAL 

BR 

************ 



♦♦SET 1403 MODE 

**BR IF DATA CHAIN 
**BR £ LINK TO LS SAVE 

MOVE COMMAND TO P 
GET CHAN. AND UNIT STATUS IN G»H 
LOOK FOR SENSE 
BR IF SENSE 
LOOK FOR NO-OP 
BR IF NO-OP 
RSI EXT SENSE LATCH 
♦♦CLEAR UNIT SENSE 

♦♦REGEN BLOCK DATA CHECK AND GA-LOAD 
♦♦CLEAR UNIT STATUS 
1=0 BR IF NOT READY 

♦♦SET INTERVENTION REQUIRED 

♦♦BR IF NO SENSE COMMAND 

GET CHANEL STATS AND FLAGS 

CLEAR UNIT STATUS* SET UC 
♦♦RESET COMMAND CHAIN FLAG 
=0 ♦♦ LAST COMM NOT CHAINED 

TURN ON ACTIVE IF CHAINED 
♦♦GO TO IMMED INTERRUPT 

SAVE UNIT STATUS 

NO UNIT STATUS IN UCW 
♦♦ STORE CH.ST, FLAGS AND UNIT ST* I N UCW 

RESTORE UNIT STATUS 

BR IF PCI FLAG I S ON 

RST SECONDARY BIT 
♦♦MOVE CHANNEL STATUS 

GET P AND I 
♦♦BR TO STORE CSW HW#3 
***************************** 



***************************************** 
Hi = Hl^-K40 RST INTERVENTION REQ. 

BR IF G13=l BR IF SKIP FLAG ON 

T1=H1 ♦♦MOVE SENSE BYTE 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=»E60, EC LE VEL-12'82 11 

COMMENTS 
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0F6C 


E271 


OPTS 086 






088 


OVER 


GF6E 


1B63 


OPTS 087 










OF 70 


7B38 


OPTS 088 


OVER 








0F72 


2E43 


OPTS 089 


SNSRTN 








0F74 


5006 


OPTS 090 










0FT6 


C57B 


OPTS 091 






093 


FORGET 


0F78 


C4FF 


OPTS 092 






095 


SNSENO 


0F7A 


3443 


OPTS 093 


FORGET 








0F7C 


8038 


OPTS 094 




OPTR 


060 


INCLEN 


0F7E 


8040 


OPTS 095 


SNSENO 


DPTR 


064 


ENDCK 



BR IF 006= i 
Ti=Tl*-K06 

STB T'l V + l 
H0=0$K04 

8R IF GL0=1 
BR IF Z=0 

G0=G0$K40 

BR 

BR 

********************************** 

* CROSS REFERENCE FOR CSECT OPTS * 
********************************** 



SKIP NXT WORD IF 2540 SHARE 
♦♦STRIP SENSE BYTE 
♦♦STORE SENSE BYTE 

CLEAR UNIT STATUS, SET Dfc 
♦♦UCW COUNT MINUS I 

BR IF OATA CHAIN-SET WLR BIT 
♦♦BR IF UCW COUNT 
♦♦SET INCORRECT LENGTH 
♦♦BR TO CHECK SLI FLAG 



OPTS 


042 


DCLB 


2C9 






OPTS 


055 


OPTS 


049 


OPTS 


051 


OPTS 


058 


DPTS 


056 






OPTS 


062 


OPTS 


044 






OPTS 


064 


OPTC 


025 


DPTS 


060 


OPTS 


066 


DP IR 


088 


EROR 


145 


OPTS 


070 


OPTS 


06 7 






OPTS 


077 


OPTS 


074 


OYPE 


150 


OPTS 


083 


OPTC 


095 






OPTS 


C84 


OP IS 


oei 


OYPE 


166 


OPTS 


088 


DPTS 


086 






OPTS 


089 


OPTS 


0€4 






op r s 


093 


OPTS 


OSl 






JPTS 


095 


OPTS 


0S2 







ENTRY POINTS 



DPTT DESCRIPTIVE TEXT 
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TESTOO - AFTER A TEST I/O OR A START I/O HAS BEEN 
DECODED IN THE -DCLA- ROUTINE, ENTRY IS 
MADE AT THIS LABEL TO TEST THE ACTIVE 
AND SECONDARY BITS TO DETERMINE FURTHER 
OPERATION. 

UCENT - WHEN A NOT READY CONDITION IS DETECTED 

FOR THE PRINTER, READER-PUNCH, QR PR-KB, 
ENTRY IS MADE AT THIS LABEL TO SET UNIT 
CHECK AND ZERO OUT THE CHANNEL STATUS. 

RESTES - THE 2540 REQUEST AND TEST I/O ROUTINE 
-ERRQ-, OR THE 1052 REQUEST ROUTINE 
-DYPE-, ENTER AT THIS LABEL TO CLEAR A 
CHANNEL ENO OR A CHANNEL END-DEVICE END 
CONDITION* 



SHARE 



DEVE 



SENCHK - 



RESINB - 



ENTRY IS MADE AT TH 
OR -DYPE-. DEVICE 
IF DE ON - 



IF DE OFF - 

ENTRY IS MADE AT TH 
BECAUSE THE SECONDA 
ATTENTION BIT IS ON 
SELECTION FOR START 
RESET INTERRUPT IF 
IN CSW. 

THE 1403 INTERRUPT 
ENTERS AT THIS LABE 
SENSE DATA. 
THE CHANNEL INTER 
ENTERS AT THIS LABE 
SECONDARY BI T, AND 
TO STORE STATUS. 



IS LABEL 
END IS T 
IF INTER 
INITIATE 
INTERRUP 
STORE ST 
STATUS W 
IS STORE 
IS LABEL 
RY BIT I 
DURING 
I/O OR 
ON, AND 



FROM -ERRQ-, 
ESTED- 

RUPT HAS BEEN 
D, RESET 
T LATCH, AND 
ATUS IN CSW. 
ITH BUSY SET 
D IN THE CSW. 

FROM -DYPF- 
S ON AND THE 
INITIAL 
TEST I/O, 
STORE STATUS 



REQUEST ROUTINE -DPTQ- 
L TO CHECK THE PRINT 

RUPT ROUTINE -DCHN- 
L TO RESET INTERRUPT, 
S7. RETURN TO -DCHN- 



ADOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 



0948 
094A 
U94C 
09 4£ 
09 50 
0952 
0954 
0956 
0958 



095A 
095C 
095E 
0960 

0962 



2482 
A078 
015B 
C421 
DED4 
B362 
2E23 
2F07 
AC1E 



0DG8 
5FB9 
E401 
AA03 
AC74 



DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 
DPTT 



001 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
013 
014 
015 
016 
017 
018 
02 
021 
023 
024 
02 5 



T 

* 
.* 



TESTOO 



UCENT 



* 
* 



TESTli 



RESTES 



1403 TEST I/O START I/O WITH SEC. ON 

******* ******* ******************************************* *********** 

TEST I/O ACTIVEX SECONDARY^ 
******************************************************************** 

SET MODE K=18 SET 1403 MODE 

BAL ** GO GET CHAN. AND UNIT STATUS IN G,H 

BR IF G15=l BR IF ACTIVE TEOT 100 

8R IF GOO^l BR ON SEC TO START OR TEST NO A 

BR IF PRS1=0 BR IF NOT READY 

BR ** GO TO COMM MODE RST,CC SET 
HO*0$K02 SET UNIT CHECK IN STA 

Hl=0 ZERO OUT CHANNEL STATUS 

BR ** STORE O f S IN CSW WITH NEW STATUS 
****************************************************************** 

TEST I/O ACTIVE*! SECONDARY^ 
****************************************************************** 

RST PRA K=40 RST PRINT REQUEST 

Ti = Hl SAVE SENSE BYTE 

BR IF G02=i BR IF PROGRAM ERROR 

N BR IF HO=NZ BR IF NO STATUS 

BR GO SET BUSY 



ERRQ 


083 


RDCHST 




020 


TESTU 




046 


STTE01 




013 


UCENT 


CCOM 


154 


CCOB 


CCOM 


123 


STATOS 



026 

026 

CCOM 161 



PROGF 
PROGF 
CC2B 



A DDK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLA8EL STATEMENT 


0900 


154B 


DPTT 


026 


PKOGF 






Gl=GlaK04 


0902 


B31E 


DPTT 


02 7 




088 


RST I NT 


BAL 


09 04 


DAOF 


OPTT 


028 




033 


ZSECON 


BR IF HO 5=1 


0906 


CAOE 


OPTT 


02 9 




033 


ZSECCN 


BR IF H04=0 


0908 


E40F 


OPTT 


030 




033 


ZSECCN 


BR IF GO 2=1 


090A 


2C85 


OPTT 


031 








U0=0$K80 


09 OC 


8910 


DPTT 


032 




034 


UCWSTR 


BR 


090£ 


2007 


DPTT 


033 


ZSECQN 






U0=0 


0910 


7068 


DPTT 


034 


UCWSTR 






STH U AS, 0+2 


09 12 


CI 16 


OPTT 


035 




037 


DQNTCH 


BR IF G14=0 


0914 


3485 


DPTT 


036 








G0=G0$K80 


0916 


54F9 


DPTT 


037 


OONTCH 






H1=G0 


0918 


7A68 


OPTT 


038 








STH T AStD*2 


091 A 


5068 


DPTT 


039 








RDH U AS/D+2 


09 IC 


5260 


DPTT 


040 








RDH V ASt 0*0 


0916 


AOOE 


DP T I 


041 


CALLH 


CCOM 110 


FULCSW 


BR ** STORE CSW RST 






DPTT 


042 


* 


************************************* 






DPTT 


043 


♦ 


TEST 


OR START 


I/O ACTIVE=0 SECONDARY^ 






DPTT 


044 


* 


************************************* 


O920 


5E29 


DPTT 


046 


STTEOi 






V0 = H0 


0^22 


CEB1 


DPTT 


047 




056 


EXTDE 


BR IF PRSO=l 


0924 


DA39 


DPTT 


049 


SHARE 


061 


DEVE 


BR IF HO BIT 5= I 


0926 


2E15 


DPTT 


050 








H0=0$K10 


0928 


54F9 


DPTT 


051 








H1=G0 


092A 


1F65 


DPTT 


052 








H1=H1*-K80 


092C 


F246 


DPTT 


053 




068 


DELIC 


BR IF D07=0 


0926 


A01E 


DPTT 


054 


GOSTOR 


CCOM 123 


STATOS 


BR 


0930 


B14C 


DPTT 


056 


EXTDE 


071 


SENCHK 


BAL 


09 32 


5F39 


DPTT 


057 








Vl=Hl 


0934 


6664 


DPTT 


058 








D=D+2 


0936 


726A 


DPTT 


05 9 








STH V AS,D-2 


0938 


B31E 


DPTT 


061 


DEVE 


088 


RSTINT 


BAL ** GO RST S7 f IN 


093A 


7460 


DPTT 


062 








STH G ASt 0*0 


093C 


54F9 


DPTT 


063 








Hl=GO 


093E 


£243 


DPTT 


064 




066 


NOTPTR 


BR IF 006=1 


0940 


0D08 


DPTT 


065 








RST PRA K=40 


0942 


F22F 


DPTT 


066 


NQTPTR 


054 


GOSTOR 


BR IF 007=1 


0944 


3615 


DPTT 


067 








H0=H0$K10 


0946 


A030 


DPTT 


068 


DELIC 


CCOM 135 


STATUS 


BR 






DPTT 


069 


* 






******************* 


314C 


FEDO 


DPTT 


71 


SENCHK 


073 


CHAN9 


BR IF PRS3=0 


314E 


3E13 


OPT! 


072 








H0=H0$K0i 


3150 


EE06 


DPTT 


073 


CHAN9 


076 


CATACH 


8R IF PRS2=0 


3152 


3E23 


DPTT 


074 








H0=H0$K0 2 


3154 


3F13 


DPTT 


075 








H1=H1$K01 


3156 


CB5A 


DPTT 


076 


OATACH 


078 


HAMMER 


BR IF H14=0 


3158 


3E23 


DPTT 


077 








HO=HO$K0 2 


315A 


5E3F 


DPTT 


078 


HAMMER 






V1=PRS 


3 I 5C 


1393 


DPTT 


G79 








V1=V1*-K09 


3156 


FCE5 


DPTT 


080 




083 


SETDE 


BR IF LZ=0 


3160 


3623 


DPTT 


081 








HG=H0$K02 


U62 


3F15 


DPTT 


082 








HL=H1$K10 


3164 


3E43 


DPTT 


083 


SETDE 






H0=H0$K04 



CLQAD=*E60, EC LEVEL=1282 11 
COMMENTS 

RESET ACTIVE BIT 

GO RST S7 f INT BUFF BIT,S£C. 

BR IF OE 

BR IF NO CHENO OR NO OEV.END 

BR IF PRGRAM CHK-DONT SET SEC 

STORE SEC FOR CHE ALONE-UCW 

DE,CHE STAT-CLEAR CH STAT IN UCW 

UPDATE UCW CH STAT AND FLAGS 

BR IF NO PCI FLAG 

SET PCI IN CHAN STAT 

MOVE CHANNEL STATUS 

D=COCC 

UCW CGUNT=U 

CCK ADORE SS=V 
MODE, SET CC1 
***************************** 

= 1 

***************************** 

MOVE UNIT STATUS 

BR IF EXT OE 

BR IF DE. 

SET BUSY 

MOVE CHANNEL STATUS 

RST SECONDARY 

BR IF START-STORE STATUS ONLY 

THIS IS TEST STORE STAT AND 0,S 

GO CHECK SENSE 

PUT UPDATED SENSE IN VI 

UPDATE UCW ADD TO STATUS-CA 

STORE UNIT STAT 
T BUFF. BIT AND SEC. BIT 

UCW CH STATUS 

MOVE CH STATUS 

BR IF NOT PRINTER 

RST PRINTER REQUEST 

BR IF TEST I/O 

SET BUSY 

STORE STATUS 
********************** 

BR IF NO CHANNEL 12 

SET UNIT EXCEPTION 

BR IF NO CHANNEL 9 

SET UNIT CHECK 

SET CHANNEL 9 IN SENSE 

BR IF NO DATA CHECK 

SET UNIT CHECK 

MOVE SENSE 

LOOK FOR PARITY OR HAMMER CHECK 

BR IF NO ERROR 

SET UNIT CHECK 

SET EQUIPMENT CHK IN SENSE 

SET DEVICE END 
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AOOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 



CLOAD=*E60 f EC LEVELM282 11 
COMMENTS 
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3166 


CDOA 


0P1T 


084 




3168 


128E 


DPTT 


085 








DPTT 


087 


* 


331E 


FC24 


DPTT 


088 


RSTINT 


3320 


1413 


DPTT 


089 


RESINB 


33 22 


0010 


OPTT 


090 




3324 


4 046 


DPIT 


091 


DEVENO 


33 26 


1485 


DPTT 


092 




3328 


128E 


OPTT 


093 








OPTT 


094 


* 



RST PRA K=50 RST BUSY AND REQUEST 

RTN GO BACK TO TEST I/O OR 

* ** ******** ****************************** 

091 OEVEND BR IF G07=0 BR IF NO INT IN BUFF 

G0=G0*-K01 RESET INT INDICATOR 

RST S7 RESET INT LATCH 

U=G MOVE CHAN STAT+FLAGS 

G0=G0*-K80 RST SEC FOR C SW STORE 

RTN 
********************************** 
********************************** 

* CROSS REFERENCE FOR CSECT OPTT * 
********************************** 



REQ 



DPTT 


006 


DCLA 


303 






DPTT 


013 


OPTT 


010 


DYPE 


203 ERRQ 014 


DPTT 


020 


DPTT 


0C8 






DPTT 


023 


DYPE 


2 04 


ERRQ 


052 


DPTT 


026 


DPTT 


023 


DPTT 


024 


DPTT 


033 


DPTT 


028 


DPTT 


029 OPTT 030 


DPTT 


034 


DPTT 


032 






DPTT 


037 


DPTT 


035 






DPTT 


046 


DPTT 


0C9 






DPTT 


049 


OYPE 


2C7 


ERRQ 


053 


DPTT 


054 


DPTT 


066 






DPTT 


056 


DPTT 


047 






DPTT 


061 


DPTT 


049 


OYPE 


208 


DPTT 


066 


OPTT 


064 






DPTT 


068 


OPTT 


053 






DPTT 


071 


OPTQ 


026 


OPTT 


056 


DPTT 


073 


OPTT 


071 






DPTT 


076 


OPTT 


073 






DPTT 


078 


DPTT 


076 






DPTT 


083 


DPTT 


oeo 






DPTT 


088 


DPTT 


027 


OPTT 


061 


DPTT 


C89 


OCHN 


045 






DPTT 


091 


DPTT 


088 
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DYPE DESCRIPTIVE TEXT 



ADDITIONAL INFORMATION REFERENCE 

2025 PROCESSING UNIT, F.E. THEORY OF OPERATION MANUAL 



AUX STORAGE 

ADORESS 0XF7 

*********** 

* * 

* SENSE * 

* BYTE *' 

* * 
*********** 

L.S. REG- Pi 



10 52 UCW 

0XF8 0XF9 OXFA OXFB OXFC OXFD OXFE OXFF 

****************************************************************************************** 

* * * DATA ADDRESS * * * 

* CHANNEL * FLAGS ************************ COUNT FIELD * NEXT CCW ADDRESS * 

* STATUS * AND OP * UNIT * * * * 

* * * STATUS * * * * 
****************************************************************************************** 

GO Gi HO STATUS ADDRESS U0-U1 

V0-V1 DATA 



SENSE BYTE 



CHANNEL STATUS 



FLAGS AND OP 



UNIT STATUS 



O^COMMAND REJECT 
^INTERVENTION REQUIRED 
2= DOES NOT APPLY 
3= EQUIPMENT CHECK 
4*D0ES NOT APPLY 
5=D0ES NOT APPLY 
6= DOES NOT APPLY 
7=D0ES NOT APPLY 



O^SECONDARY SIT 
1=INC0RRECT LENGTH 
2=PR0GRAM CHECK 
3*PR0T£CTIGN CHECK 
4^0 COUNT BIT 
5*CHAN CONTROL CHECK 
6=INT£RFACE CHECK 
7=PR-KB INTERRUPT IN 
INTERRUPT BUFFER 



0=CHAIN DATA ICDJ FLAG 
1=CHAIN COMMAND ICC) FLAG 
2=SUPPRESS LENGTH INDICATION i SLIJ FLAG 
3=SKIP FLAG 

4=PR0GRAM CONTROLLED INTERRUPT (PCI) FLAG 
5=ACTIVE BIT 
-7=QP — 01=WRITE 

10=READ OR SENSE 

ll=WRIT£ WITH ACR 



O^ATTENTION 
l^DOES NOT APPLY 
2=DQES NOT APPLY 
3=BUSY 

4=CHANNEL-END 
5=DEVICE-END 
6=UNIT-CHECK 
7^=UNI T EXCEPTION 



DYPE ENTRY POINTS 



NOT READY TO READY 

LOGOUT 

ALTER/ DISPLAY 



TWRREQ — FRGM -8SWI- TO HANDLE A SHARE REQUEST FOR ONE 
OF THE FOLLOWING. 

1. ATTENTION * 5. 

2. REAO SHARE REQUEST 6. 
3- WRITE SHARE REQUEST 7. 
4. INTERRUPT STKD REQ 

THE FOLLOWING BITS ARE TESTED AS NECESSARY TO 
DETERMINE THE STATUS OF THE CURRENT OPERATION. 
Gl BIT 5 — ACTIVE BIT 
GO BIT — SECONDARY BIT 
PO BIT 4 — ENDING STATUS BIT 



GOCAL — FROM 2540 ROUTINE TO SHARE WORD THAT MOVES 
SENSE REG. AFTER THE WORD IS EXECUTED, THE 
-DYPE- ROUTINE BRANCHES TO -OPTS- TO DO THE 
SENSE OPERATION FOR EITHER THE 1052 OR 2540. 

TWSEC7 -.- FROM I/O INSTRUCTIONS ROUTINE -DCLA- FOR THE 

FOLLOWING CONDITIONS. 

START I/O -- ACT BIT=0, SEC BIT=i 

TEST I/O — ACT BIT-l, SEC BIT=i, CC FLAG=0 

TEST I/O — ACT BIT=0 

OUTSTANDING STATUS IS STORED IN THE CSW. 



NOATEN ~ FROM WRAP TRAP ROUTINE* 
TRV FOR AN INTERRUPT. 



THIS ENTRY IS USED TO 



TW0FF7 — START I/O ENTRY. CCW FETCH HAS JUST BEEN 

COMPLETED IN -DCLB- . READY IS TESTED, THEN 
THE ROUTINE INITIALIZES FOR THE CURRENT COMMAND. 



HLTTW — HALT I/O ENTRY FROM I/O INSTRUCTIONS ROUTINE, 
-DCLA- . THE ACTIVE AND SECONDARY BITS ARE 
TESTED TO DETERMINE THE NECESSARY ACTION AND 
CONDITION CODE SETTING. 

STTRSL « TRANSLATE SUBROUTINE ENTRY. TRANSLATES 

KEYBOARD CODE CHARACTERS TO EBCDIC. USED BY 
ALTER /DISPLAY ROUTINE, AS WELL AS DURING A 
READ REQUEST CYCLE. 



AD OR 


WORD 


SEQUENCE NO* 


LABEL 


NEXT! 


SEQ 


NEXTLABEL STATEMENT 






OYPE 


001 


T 




1052 REQUEST ROUTINES 


1FIO 


FF8F 


OYPE 


002 


TWRREQ 




020 


A OP ACT 


BR IF TU3=1 


IF12 


FA80 


OYPE 


003 






021 


LOGREQ 


BR IF TT7=1 


1F14 


80C4 


OYPE 


004 




CCGM 


058 


LSAVEB 


BAL 


1F16 


9C28 


OYPE 


005 






168 


GETUCW 


BAL 


1F18 


C832 


OYPE 


006 






022 


NOBUFR 


BR IF P04=0 


1F1A 


CEAO 


OYPE 


00 7 


AFTER 




010 


NOATEN 


BR IF TTO=0 


1F1C 


3E85 


OYPE 


008 


ATTEN 








H0=H0$K80 


IF IE 


GF10 


DYPE 


009 










RST TA K=01 


1F20 


IF 2.8 


OYPE 


010 


NOATEN 








RST TA K=C2 


1F22 


3C83 


OYPE 


Oil 










P0=P0$K08 


1F24 


B10A 


DYPE 


012 




DCGM 


008 


INTRPT 


BAL 


IP26 


CEAA 


OYPE 


013 






015 


QATNO 


BR IF TT0=0 


1F28 


2FG4 


DYPE 


014 










SET TA K=20 


1F2A 


9A90 


OYPE 
OYPE 


015 
016 


QATNO 

* 




180 


PUTUCS 


BAL 


1F2C 


FEB1 


OYPE 


017 






019 


ADPREO 


BR IF TT3^=l 


1F2E 


AAA2 


OYPE 


018 




BSWI 


066 


RESTRH 


BR 


IF30 


96 1C 


OYPE 


019 


ADPREQ 


ALOP 


022 


START 


BR 


1FOE 


A6B8 


DYPE 


020 


ADPACT 


ALDP 


216 


RTTYP 


BR 


iFOC 


937A 


OYPE 


021 


LOGREQ 


BMCK 


047 


LOGOUT 


BR 


1F32 


D149 


DYPE 


022 


NOBUFR 




034 


ACl 


BR IF G15=l 


1F34 


CE39 


DYPE 


02 3 






025 


QATYES 


BR IF H00=1 


1F36 


2643 


DYPE 


024 










H0=O$K04 


1F38 


C421 


DYPE 


02 5 


QAIYES 




010 


NOATEN 


BR IF G00=i 






DYPE 


026 


* 




ACTIVE 


SECONDARY 


1F3A 


2485 


DYPE 


02 7 










G0=0$K80 


1F3C 


DEA1 


DYPE 


02 8 






010 


NOATEN 


BR IF TTl=l 


1F3E 


2ECT 


DYPE 


02 9 










H0=0 


1F40 


CE9D 


OYPE 


030 






008 


ATTEN 


BR IF TTO^l 


1F42 


FEBl 


OYPE 


031 






019 


ADPREQ 


BR IF TT3=i 


1F44 


3423 


DYPE 


032 










G0=G0$K0 2 


IF46 


9F20 


OYPE 


033 






010 


NOATEN 


BR 


IF 48 


C47D 


OYPE 


034 


AC! 




062 


OSNS 


BR IF G0O=l 






OYPE 


035 


♦ 




ACTIVE 1 


SECONDARY 


1F4A 


2EC7 


DYPE 


036 










H0=0 


1F4C 


EED2 


OYPE 


037 






040 


SINTVN 


BR IF TT2=0 


IF 46 


3045 


DYPE 


038 










P1=P1SK40 


IF50 


BOCC 


DYPE 


039 


DOCRLF 




071 


CRLF 


BR 


1F52 


8106 


DYPE 


040 


SINTVN 


OCOM 


006 


PC I BR 


BAL 


IF 54 


DF8A 


OYPE 


041 






066 


READOT 


BR IF TU1=0 






DYPE 


042 


* 




WRITE 


OPERATION 


1F56 


C06B 


OYPE 


043 






053 


WROBIT 


BR IF G04=l 


1F58 


5F38 


DYPE 


044 










ROB HI V*l 


IF5A 


*FFF 


OYPE 


045 










TE=H1 


1F5C 


OF 20 


DYPE 


046 










RST TA K=02 


1F5E 


5006 


DYPE 


047 


WCOMOT 








U=U-1 


IF 60 


C4E6 


DYPE 


048 






051 


MORE 


BR IF ZNZ 


1F62 


C5C5 


DYPE 


049 






067 


CHAIN! 


BR IF G10=l 


IF64 


3483 


DYPE 


050 










G0=G0$K0 8 


1F66 


9A92 


OYPE 


051 


MORE 




181 


PUT UCW 


BAL 


1F68 


AAA2 


OYPE 


052 




BSWI 


066 


RESTRH 


BR 


IF6A 


1483 


OYPE 


053 


WROBIT 








G0=G0*-KQ8 



CL0AD=*E60, EC LEVEL=1282 11 

COMMENTS 



BR IF ALTER-DI SPLAY ACTIVE 

BR IF LOGOUT REQUEST 

GO SAVE P AND I 

GET UCW AND SET PR-KB MODE 

BR IF NOT END STATUS 

BR IF ATTENTION LATCH IS OFF 

SET ATTEN IN UNIT STATUS REG 

RESET ATTEN LATCH 

RST READ, WRITE, AND SHARE REQ 

TURN ON END STATUS PRESENT 

TRV FOR NORMAL INTRPT I NOT PCI) 

BR IF ATTENTION LATCH NOT SET 

SET MICROFORCE LATCH 

MOVE IN NEW UNIT STATUS REG 

STORE UCW 
BR IF ALTER-DI SPLAY LATCH ON 
RETURN FROM REQUEST 
GO TO ALTER-DI SPLAY START 
ALDP REQUEST, GO TYPE CHAR 
GO HANDLE LOGOUT REQUEST 
BR IF ACTIVE BIT ON 
BR IF ATTN BIT IN U-STATUS REG 
SET DEVICE END IN U-STATUS REG 
BR IF SECONDARY BIT ON 

RST CH STATUS REG, SET SEC BIT 

BR IF NOT-READY TO READY 

CLEAR UNIT STATUS REG 

BR IF ATTENTION LATCH SET 

BR IF ALTER-OI SPLAY LATCH ON 

SET INTERFACE CHECK 

BR IF SECONDARY BIT ON 

CLEAR UNIT STATUS REG 

BR NOT INTERVENTION REQUIRED 

SET INTVN REQ IN SENSE REG 

IF PCI, TRY FOR PCI INTERRUPT 
BR IF READ OPERATION 

BR IF 0-COUNT BIT SET 

READ CHAR AT DATA ADDRESS 

SEND CHAR TO TE DATA REG 

ISSUE SHARE RESET 

DECREMENT COUNT 

BR IF COUNT = 

BR IF CD FLAG 

SET COUNT BIT 

STORE UCW EXCEPT UNIT STATUS 

RETURN FROM REQUEST 

RESET COUNT BIT 
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AODK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


IF6C 


E573 


DYPE 


054 


A DIM 


057 


SLION 


BR IF G12^i 


1F6E 


3445 


DYPE 


055 








G0=G0$K40 


1F70 


15C5 


DYPE 


056 








G1=G1*-KC0 


IF72 


E151 


DYPE 


057 


SLIQN 


039 


DOCRLF 


8R IF G16=i 


if 74 


5009 


DYPE 


058 








Pl=Pl 


1F76 


C4F0 


DYPE 


059 




062 


OSNS 


BR IF Z=0 


1F78 


15C5 


DYPE 


060 








Gl=Gl*-KCO 


1F7A 


3E23 


DYPE 


061 








H0=H0$K02 


1F7C 


0505 


DYPE 


062 


OSNS 


067 


CHAIN1 


BR IF Gll=l 


1F7E 


3EC3 


DYPE 


063 








HO-HOSKOC 


IF 80 


3485 


DYPE 


064 


QFLIP 






G0=G0$K80 


IF82 


9F20 


DYPE 


065 




010 


NOATEN 


BR 


iFOA 


A2CA 


DYPE 


066 


READOT 


089 


READ 


BR 


IF 04 


1485 


DYPE 


067 


CHAINi 






G0=G0*-K80 


1F06 


9A90 


DYPE 
DYPE 


068 
069 


♦ 


180 


PUTUCS 


BAL 


1F08 


A49E 


DYPE 


070 




154 


KKKKKK 


BR 


30 CC 


2F53 


DYPE 


071 


CRLF 






Hi=0$K05 


30CE 


3F15 


DYPE 


072 








Hl=Hi$K10 


3000 


IFOG 


DYPE 


073 








RST TA K=80 


3002 


2F08 


DYPE 


074 








SET TA K=40 


3004 


4FFF 


DYPE 


075 








TE^Hl 


3006 


GF20 


DYPE 


076 








RST TA K=02 


3008 


3485 


DYPE 


077 








G0=G0$K80 


30DA 


1483 


DYPE 


078 








G0=G0*-K08 


30DC 


5DD9 


DYPE 


079 








Pi=Pl 


30 DE 


C4E5 


DYPE 


080 




083 


OKDE 


BR IF Z=0 


30E0 


3E23 


DYPE 


081 








H0=H0$K02 


30E2 


15C5 


DYPE 


082 








G1=G1*-KC0 


30E4 


D56B 


DYPE 


083 


OKDE 


086 


EXITA 


BR IF Gli^l 


30E6 


3E83 


DYPE 


084 








H0=H0$K08 


30E8 


BLOA 


DYPE 


085 




DCOM 008 


INTRPT 


BAL 


30EA 


9A90 


DYPE 


086 


EXITA 


180 


PUTUCS 


BAL 


30 EC 


AAA2 


DYPE 


087 




BSWI 066 


RESTRH 


BR 






DYPE 


088 


* 


READ 


OPERATION 




■22CA 


5AFF 


DYPE 


089 


READ 






H1=TI 


22CC 


1FC5 


DYPE 


090 








H1=H1*-KC0 


22 CE 


DAE9 


DYPE 


091 




102 


ALTCOD 


BR IF TT5=1 


22D0 


CA04 


DYPE 


092 




094 


ARNSET 


BR IF TT4*0 


2202 


2D15 


DYPE 


093 


SETEQP 






P1=0$K10 


2204 


C065 


DYPE 


094 


ARNSET 


ill 


EXITS 


BR IF G04*l 


2206 


48C6 


DYPE 


095 








I*U 


2208 


B17A 


DYPE 


096 




231 


STTRSL 


BAL 


22DA 


4C86 


DYPE 


097 








U=I 


22DC 


42CF 


DYPE 


098 








STPO=PO 


220E 


F563 


DYPE 


099 




101 


SKIP 


BR IF G13=l 


22E0 


7F38 


DYPE 


100 








STB HI V*l 


22E2 


9F5E 


DYPE 


101 


SKIP 


047 


WCCMOT 


BR 


22E8 


CF5B 


DYPE 


102 


ALTCOO 






Z-H1DK05 


22EA 


C4F5 


DYPE 


103 




108 


RQNOF 


BR IF Z=0 


22EC 


OFAB 


DYPE 


104 








Z-HlaKOA 


22EE 


C402 


DYPE 


105 




093 


SETECP 


BR IF ZNZ 


22F0 


2EI3 


DYPE 


106 








H0*0-$K01 



CL0AD=*E60, EC LEVEL=1282 1i 
COMMENTS 

BR IF SLI FLAG ON 

SET WLR 

BREAK CHAIN {RESET CCtCD FLAGSI 

BR IF WRITE ACR OR READ OP 

BR IF SENSE REG IS ZERO 

RESET CC. CD FLAGS 

SET UNIT CHECK 

BR IF CC FLAG 

SET CHANNEL END, DEVICE END 

SET SECONDARY BIT 



RESET SECONDARY BIT 

MOVE IN NEW UNIT STATUS REG 

STORE UCW 
GO RESTORE P f I f THEN CHAIN 
SET UP 

NEW LINE CHARACTER 
RESET READ LATCH 
SET WRITE LATCH 
SEND NL CHAR TO TE DATA REG 
ISSUE SHARE RESET 
SET SECONDARY BI T 
RESET 0-COUNT BIT 

BR IF SENSE REG IS ZERO 

SET UNIT CHECK 

RESET CC* CD FLAGS 

BR IF CC FLAG 

SET CHANNEL END 

TRY FOR NORMAL INTRP <NOT PCI I 

GET NEW UNIT STATUS, STORE UCW 

RETURN FROM REQUEST 

GET KB CHAR FROM TI REG 

RESET CASE BITS 0,1 
BR IF ALTERNATE CODING 
BR IF NOT KEYBOARD CHECK 
CLEAR SENSE REG, SET EQUIP CHK 
BR IF 0-COUNT BIT SET 
SAVE COUNT 

XL ATE KB CHAR AND PRINT IT 
RESTORE COUNT 
SET PROTECT KEY 
BR IF SKIP FLAG 
STORE CHAR READ AT OATA AODR 
GO DECREMENT COUNT 

BR IF EOB 

BR IF NOT CANCEL 
SET UNIT EXCEPTION 
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AUDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLAB 


EL STATEMENT 


22F2 


1545 


DYPE 


107 








Gi=Gl*-K40 


22F4 


CC67 


DYPE 


108 


RQNOF 


110 


ADIMA 


BR IF G04=l 


22F6 


SF6C 


OYPE 


109 




054 


AD1M 


BR 


22E6 


BOCC 


OYPE 


110 


ADIMA 


071 


CRLF 


BR 


2264 


9F6A 


OYPE 


111 


EXITS 


053 


WROBIT 


BR 






DYPE 


112 


♦ 


START 


I/O ACTIVE SECONDARY 


24A2 


80C4 


DYPE 


113 


TW0FF7 


CCQM 058 


LSAVEB 


BAL 


24A4 


54F9 


OYPE 


114 


TW0FF8 






H1=G0 


24A6 


6664 


DYPE 


115 








0=0*2 


24A8 


9A98 


DYPE 


116 




184 


PUTUCA 


BAL 


24AA 


9028 


OYPE 


117 




168 


GETUCW 


BAL 


24AC 


1485 


DYPE 


118 








G0=G0*-K80 


24AE 


1C83 


OYPE 


119 








P0=P0*-K08 


24B0 


SA92 


OYPE 


120 




181 


PUTUD4 


BAL 


24B2 


2EC7 


DYPE 


121 








H0=0 


2484 


5FF9 


DYPE 


122 








H1 = H1 


24B6 


C4BA 


DYPE 


123 




125 


CONTUE 


BR IF ZNZ 


24B8 


AAA2 


DYPE 


124 




BSWI 066 


RESTRH 


BR 


24BA 


1045 


DYPE 


125 


CONTUE 






Pi=Pl*-K40 


24BC 


1F28 


DYPE 


126 








RST TA K=C2 


24BE 


EEC2 


OYPE 


127 




129 


NONROY 


BR IF TT2=0 


24C0 


3045 


OYPE 


128 








P1=P1$K40 


24C2 


0F4B 


OYPE 


129 


NONROY 






Z=HlaK04 


2 4C4 


C4E5 


DYPE 


130 




163 


SENSE 


BR IF Z=0 


24C6 


EEOD 


OYPE 


131 




142 


NOTRDY 


BR IF TT2=1 


24C8 


0F3B 


DYPE 


132 








Z=H1QK03 


2 4CA 


C499 


DYPE 


133 




151 


NOOPRA 


8R IF Z=0 


24CC 


2DC7 


DYPE 


134 








P1=0 


24CE 


OF IB 


DYPE 


135 








Z^HlaKQl 


24D0 


C495 


OYPE 


136 




157 


WRIT 


BR IF Z=0 


2402 


CF9B 


DYPE 


137 








Z=H1QK09 


24D4 


C493 


DYPE 


138 




156 


WRTACR 


BR IF Z=0 


2406 


CFAB 


OYPE 


139 








Z^HlaKOA 


2408 


C48B 


OYPE 


140 




159 


READOP 


BR IF Z=0 


240A 


3085 


OYPE 


141 








P1=P1$K80 


240C 


2E23 


OYPE 


142 


NOTROY 






H0=0$K02 


240E 


15C5 


OYPE 


143 








Gi=Gl*-KCO 


24E0 


F200 


DYPE 


144 


NQTCCB 


146 


NOTCCA 


BR IF 00 7=0 


24E2 


9F80 


OYPE 


145 




064 


QFLIP 


BR 


2480 


1547 


OYPE 


146 


NOTCCA 






G1=G1*-K44 


2482 


9A90 


DYPE 


147 




180 


PUTUCS 


BAL 


2484 


C1C8 


OYPE 


148 




150 


ARPC1 


BR IF G14=0 


2486 


3485 


OYPE 


149 








G0=G0$K80 


2488 


9030 


DYPE 


150 


ARPCI 


OPTS 077 


NOPCIF 


BR 


2498 


2EC3 


DYPE 


151 


NOQPRA 






H0=0$K0C 


249A 


0560 


DYPE 


152 




144 


NOTCCB 


BR IF G11=0 


249C 


A566 


OYPE 


153 




DCOM 048 


CHANOK 


BAL 


249E 


9258 


DYPE 


154 


KKKKKK 


CCOM 066 


LRSTRB 


BAL 


24A0 


93CA 


DYPE 


155 




DCLB 039 


CHAIN 


BR 


2492 


3523 


DYPE 


156 


WRTACR 






Gl=Gl$K02 


2494 


2FC8 


DYPE 


157 


WRIT 






SET TA K=40 


2496 


9F66 


OYPE 


158 




051 


MORE 


BR 


248A 


3F20 


OYPE 


159 


READOP 






SET TA K=82 



CL0AD=*E60, EC L£VEL=128211 

COMMENTS 

RESET CC FLAG 

BR IF 0-COUNT BIT IS SET 



SAVE P AND I 

MOVE COMMAND CODE 

ADJUST UCW ADR REG TO DATA ADR 

STORE DATA ADR AND COUNT IN UCW 

GET UCW, SENSE BYTE, SET MODE 

RESET SECONDARY BIT 

RESET ENDING STATUS BIT 

STORE UCW EXCEPT UNIT STATUS 

CLEAR UNIT STATUS REG 

BR IF NOT CHAIN OATA 

GO RESTORE CPU MODE 

RESET INTERVENTION REQUIRED BIT 

RST READ, WRITE, ANO SHARE REQ 

BR IF READY 

SET INTERVENTION REQUIRED 

BR IF SENSE COMMAND 
BR IF NOT REAOY 

BR IF NO-OP COMMAND 
CLEAR SENSE REG 

BR IF WRITE COMMANO 

BR IF WRITE ACR COMMANO 

BR IF READ COMMAND 

SET COMMANO REJECT IN SENSE REG 

SET UNIT CHECK IN U-STATUS REG 

RESET CC, CD IN FLAGS/OP REG 

BR NOT CHAINED FROM PRIOR CCW 

GO SET SEC BIT, TRY FOR INTRPT 

RESET CC FLAG AND ACTIVE BIT 

GET NEW UNIT STATUS, STORE UCW 

BR IF NO PCI FLAG 

SET SEC BIT IN CH STATUS REG 

GO MOVE STATUS AND STORE IN CSW 

SET CHANNEL END , DEVICE END 

BR IF NO CC FLAG 

STORE UCW, RESTORE P I, CHAIN 

GO RESTORE P I, THEN CHAIN 

GO GET NEXT CCW FOR CHAINING 

SET BIT 6 FLAGS/OP REG 

SET WRITE LATCH 

GO STORE UCM f RESTORE CPU MODE 

SET READ, INITIAL PRTR LATCHES 
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ADOK 


WORD 


SEQUENCE NO. 


LABEL 


NEXT! 


5EQ 


NEXTLABE 


L STATEMENT 




^48C 


EB90 


DYPE 


160 






162 


INNN 


BR IF TU6*0 




248E 


4FFF 


DYPE 


161 










TE=HI 




2490 


9F66 


OYPE 


162 


INNN 




051 


MORE 


BR 




24E4 


3C83 


DYPE 


163 


SENSE 








P0*PO$K08 




24E6 


SA92 


DYPE 


164 






181 


PUTUCW 


BAL 




24E8 


5DF9 


DYPE 


165 


GOCAL 








Hl=Pl 




24EA 


8F68 


DYPE 


166 




DPTS 


084 


SENSE 


BR 








DYPE 


167 


* 




ucw 


FETCH 






1028 


2791 


DYPE 


168 


GETUCW 








Dl=0-K09 




1G2A 


566D 


DYPE 


169 










D0=DOL 




102C 


16E3 


DYPE 


170 










DO=DO*-KOE 




I02E 


24C4 


DYPE 


171 










SET MODE K=20 




1030 


5C68 


DYPE 


172 










RDH P AS,D+2 




10 32 


5468 


DYPE 


173 










RDH G AS, 0^2 




1034 


5266 


DYPE 


174 










ROH V AS t 0*2 




1036 


5068 


DYPE 


175 










RDH U ASt 0*2 




1038 


52E9 


DYPE 


176 










HO"=VO 




103A 


2771 


DYPE 


177 










D1-0-K0 7 




10 3C 


128E 


DYPE 
DYPE 


178 
179 


* 








RTN 




1A90 


5E29 


DYPE 


180 


PUTUCS 








VO = HO 




1A92 


2791 


DYPE 


181 


PUTUCW 








Dl=0-K09 




1A94 


7C68 


DYPE 


182 










STH P AS, 0*2 




1A96 


7468 


DYPE 


183 










STH G AS, 0+2 




1A98 


7268 


OYPE 


184 


PUTUCA 








STH V AS,D+2 




1A9A 


7068 


DYPE 


185 










STH U AS,D+2 




1A9C 


2771 


DYPE 


186 










Dl=0-K07 




1A9E 


128E 


DYPE 
DYPE 
DYPt 
DYPE 


187 

188 
189 
190 


* 
* 








RTN 


* 


16F4 


2791 


DYPE 


191 


TWSEC7 








01=0-K09 




16F6 


5660 


DYPE 


192 










RDB Ti AS,D 




16F8 


5BBB 


DYPE 


193 










T1=T1H 




16FA 


7B60 


DYPE 


194 










STB Tl AS,D 




16FC 


6664 


DYPE 


195 










CNO+2 




16FE 


2404 


DYPE 


196 










SET MODE K=20 




1700 


A078 


OYPE 


197 




ERRQ 


083 


RDCHST 


BAL 




1702 


OF04 


DYPE 


198 










RST TA K=20 




1704 


Dill 


DYPE 


199 






204 


ZA1S1 


BR IF 615*1 




1706 


C413 


DYPE 


200 






205 


ZAOSi 


BR IF GOO* I 




1708 


EE80 


DYPE 


201 






203 


TNRCNT 


BR IF TT2=1 




170A 


B362 


DYPE 


202 




CCOM 


154 


CCOB 


BR 




170C 


8954 


DYPE 


203 


TNRCNT 


DPTT 


013 


UCENT 


BR 




1710 


895E 


DYPE 


204 


ZA1S1 


DPTT 


023 


RESTES 


BR 




1712 


3623 


DYPE 


205 


2A0S1 








D0=D0$K02 




1714 


CEOF 


DYPE 


206 






208 


ZATEN 


BR IF HOO-1 




1716 


8924 


DYPE 


207 




DPTT 


049 


SHARE 


BR 




170E 


8938 


DYPE 


208 


ZATEN 


DPTT 


061 


OE^E 


BR 








DYPE 


209 


* 


HALT 


10 






OfcAC 


A078 


DYPE 


210 


HLTTtt 


ERRQ 


083 


RDCHST 


BAL 




OEAE 


2404 


DYPE 


211 










SET MODE K=20 




OEBO 


C423 


DYPE 


212 






221 


ZHACTV 


BR IF G00=1 





CL0AD^*E60, EC LEVEL=128211 

COMMENTS 

BR IF INITIAL PR TR NOT SET 

SEND CHARACTER TO 1052 DATA REG 

GO STORE UCW, RESTORE CPU MODE 

SET ENDING STATUS BIT 

STORE UCW EXCEPT UNIT STATUS 

MOVE SENSE REG 

GO SHARE PRINTER SENSE ROUTINE 

SET AUX STORAGE 
ADDRESS 
0XF6 
SET PR-KB MODE 
GET PROTECT KEY* SENSE BYTE 
READ CHNL STATUS, FLAGS/OP 

DATA ADDRESS/UNIT STATUS 

COUNT FIELD 
MOVE UNIT STATUS 
RESTORE UCW ADDRESS TO F8 

UCW STORE 

MOVE UNIT STATUS 

SET ADDRESS TO 0XF6 

STORE SENSE BYTE 

CHANNEL STATUS, FLAGS/OP 
DATA ADDRESS/UNIT STATUS 
COUNT FIELD 

RESTORE UCW ADDRESS TO F8 

START I/O ACT=0, SEC=1 (007*0) 
TEST I/O ACT=l, SEC=l, CC FLAG=0 
TEST I/O ACTIVE = 

SET ADDRESS TO 0XF6 

READ SENSE BYTE 

RESET SENSE 8ITS 4-7 

STORE SENSE BYTE 

INCREMENT UCW ADDRESS TO F8 

SET PR-KB MODE 

GO READ CHANNEL AND UNIT STATUS 

RESET MICROFORCE LATCH 

BR IF ACTIVE BIT IS ON 

BR IF SECONDARY BIT IS ON 

BR IF INTERVENTION REQUIRED 

GO SET CPU MODE, COND CODE 

GO SET UNIT CHECK, STORE CSW 

GO TEST UNIT STATUS 

SET DO 6 FOR PTR RTN TO BR ON 

BR IF ATTENTION BIT IS ON 

SHARE PTR RTN, THEN STORE CSW 

GO RESET I.B.t THEN STORE CSW 

GO READ CHANNEL AND UNIT STATUS 

SET PR-KB MODE 

BR IF SECONDARY BIT IS SET 
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A4JDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXT LABEL 


STATEMENT 


0EB2 


0139 


DYPE 


213 




217 


ZHTERM 


BR IF G15=l 


0EB4 


EEAO 


OYPE 


214 




216 


ZHAO 


BR IF TT2=0 


0EB6 


AAF4 


OYPE 


215 




CCOM 165 


CC3B 


BR 


OEAO 


88AC 


OYPE 


216 


ZHAO 


OCLA 226 


STCRO 


BR 


OEB8 


1F0O 


DYPE 


217 


ZHTERM 






RST TA K=80 


OEBA 


2F08 


DYPE 


218 








SET TA K=40 


OEBC 


3483 


OYPE 


219 








G0=G0$K08 


OEBE 


6800 


OYPE 


220 




DC LA 220 


HOHO 


BR 


0EA2 


D52A 


OYPE 


221 


ZHACTV 


225 


ZHERE 


BR IF GU=0 


OEA4 


3E83 


OYPE 


112 








H0=H0$K08 


0EA6 


6664 


OYPE 


223 








D=D+2 


OEA8 


7E6A 


OYPE 


224 








STH H AS, 0-2 


OEAA 


88CE 


DYPE 


225 


ZHERE 


DCLA 219 


DYPADD 


BR 


03A0 


80C4 


OYPE 


226 


PRGCHK 


CCOM 058 


LSAVE8 


8AL 


3A2 


A568 


OYPE 


227 




OCOM 049 


REDSTR 


BAL 


03A4 


9028 


DYPE 


228 




168 


GETUCW 


BAL 


03A6 


9F20 


DYPE 


229 




010 


NO AT EN 


BR 






OYPE 


230 


* 


NEW 


TRANSLATE 


ROUTINE 


317A 


5AFF 


OYPE 


231 


STTRSL 






H1=TI 


31 7C 


5F19 


OYPE 


232 








U1=H1 


317E 


11C5 


OYPE 


233 








U1=U1*~KC0 


3180 


CF10 


OYPE 


234 




242 


LOWCSE 


BR IF H10=0 


3182 


2055 


DYPE 


235 


BACK 






U0=0$K50 


3184 


21B0 


OYPE 


236 








U1=U1+KBG 


3186 


218B 


DYPE 


237 








U1=U1*K08 


3188 


5F00 


OYPE 


238 








ROB HI AS,U 


318A 


4FFF 


DYPE 


239 


LOWEQ 






TE=Hl 


318C 


0F20 


DYPE 


240 








RST TA K=02 


318E 


128E 


DYPE 


241 








RTN 


3190 


C483 


DYPE 


242 


LOWCSE 


235 


BACK 


BR IF Z=0 


3192 


FC98 


DYPE 


243 




246 


LQWAQ 


BR IF LZNZ 


3194 


11CB 


DYPE 


244 








Ul^UlnKOC 


3196 


C482 


OYPE 


245 




235 


BACK 


BR IF ZNZ 


3198 


E0B1 


OYPE 


246 


LGWAQ 


259 


LOWFQ 


BR IF HZ=0 


319A 


CB20 


OYPE 


247 




250 


LQWBQ 


BR IF H14=0 


319C 


0B03 


OYPE 


248 




235 


BACK 


BR IF H15=1 


319E 


EB20 


OYPE 


249 




256 


LQWCC 


BR IF H16=l 


31A0 


01JLF 


DYPE 


250 


LG WBQ 






Z=UlaKll 


31A2 


C4AS 


DYPE 


251 




254 


LOWDQ 


BR IF Z=0 


31A4 


1FB0 


DYPE 


252 








Hi=HinKB0 


31A6 


C48A 


DYPE 


253 




239 


LOW EQ 


BR IF ZNZ 


31A8 


1F7D 


DYPE 


254 


LOWDQ 






Hl=HlaK70 


31AA 


C48A 


DYPE 


2 55 




239 


LOWEQ 


BR IF ZNZ 


31AC 


111B 


DYPE 
OYPE 


256 
257 


LQWCQ 

* 






Ul=UlnK01 


31AE 


C482 


DYPE 


258 




235 


BACK 


BR IF ZNZ 


3180 


CB34 


DYPE 


259 


LOWFQ 


261 


LOWGQ 


BR IF H14=0 


31 B2 


EB39 


DYPE 


260 




263 


LOWHQ 


BR IF H16=l 


31B4 


1FF0 


OYPE 


261 


LOWGQ 






H1=H1QKF0 


31B6 


C48A 


DYPE 


262 




239 


LOWEQ 


BR IF ZHl 


31B8 


114B 


DYPE 


263 


LOWHQ 






Ul=UlaK04 


31BA 


C482 


DYPE 
OYPE 


264 
265 




235 


BACK 


BR IF ZNZ 



CL0A0=*E60, EC LEVEL=1282U 

COMMENTS 

BR IF ACTIVE BIT IS SET 

BR IF NO INTERVENTION REQUIRED 

GO SET CPU MODE, CONO CODE 3 

GO ZERO STATUS, STORE C SW 

RESET READ LATCH 

SET WRITE LATCH 

SET 0-COUNT BIT 

GO RST CC, CO FLAGS, STORE CSW 

BR IF NO CC FLAG 

SET CHANNEL END 

SET UCW ADDRESS TO UNIT STATUS 

STORE UNIT STATUS IN UCW 

GO TEST CC FLAG 

GO SAVE P, I 

GO STORE XW 

GET UCW, SENSE BYTE, SET MODE 

GO TO ENDING ROUTINE 

GET KEYBOARD CHARACTER 

MOVE CHAR TO WORK REG 

RESET CASE BITS — 0,1 

BR IF LOWER CASE 

SET MOOLE ADDR OF TABLE 50XX 

ADO XXB8 

TO BIAS THE TABLE ADDRESS 
GET EBCDIC CHAR FROM TABLE 
SEND CHAR TO 1052 DATA REG 
SHARE RESET TO ALLOW 1052 CYCLE 
RETURN TO LINK ADORESS 
BR IF CHAR IS A BLANK 
BR IF NOT DASH, AT, AMPERSAND 
MODIFY TABLE AOOR 
UNCONDITIONAL BRANCH 
BR IF NUMERIC OR POUND SIGN 
BR IF NOT KB 8 BIT 
BR IF KB 4 BIT 
BR IF KB 2 BIT 

BR IF SLASH 

TRANSLATE ALPHA CHAR TO EBCDIC 

TRANSLATE CHAR TO EBCDIC SLASH 

MOOIFY TABLE AODR FOR COMMA, 
DOLLAR SIGN, OR PERIOD 

BR IF NOT KB 8 BIT 

BR IF KB 2 BIT 

TRANSLATE NUMERIC TO EBCDIC 

MOO TABLE ADDR FOR OR POUNO 
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AD Oft 



tfCmD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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COMMENTS 







DYPE 


266 


* 






DYPE 


267 


ATABLE 


5UB8 


4C7E 


OYPE 


268 


C 


50CE 


E6E7 


DYPE 


269 


c 


50E4 


6015 


DYPE 


270 


c 






DYPE 


27L 


AENO 



DYPE 


002 


BSki 


Oil 








DYPE 


008 


DYPE 


030 








DYPE 


010 


BURP 


089 


DYPE 


007 


DYPE 025 


OYPE 


015 


DYPE 


013 








DYPE 


019 


DYPE 


017 


DYPE 


031 




DYPE 


020 


DYPE 


002 








DYPE 


021 


DYPE 


0C3 








DYPE 


022 


DYPE 


CC6 








DYPE 


025 


DYPE 


023 








DYPE 


034 


DYPE 


022 








DYPE 


039 


DYPE 


057 








DYPE 


040 


DYPE 


037 








DYPE 


047 


DYPE 


1C1 








DYPE 


051 


DYPE 


048 


DYPE 


158 


OYPE 162 


DYPE 


053 


DYPE 


043 


DYPE 


111 




DYPE 


054 


DYPE 


1C9 








DYPE 


057 


DYPE 


054 








DYPE 


062 


DYPE 


034 


DYPE 


059 




DYPE 


064 


DYPE 


145 








DYPE 


066 


DYPE 


041 








OYPE 


067 


DYPE 


049 


DYPE 


062 




DYPE 


071 


DYPE 


039 


DYPE 


110 




DYPE 


083 


DYPE 


080 








DYPE 


086 


DYPE 


083 








DYPE 


089 


DYPE 


066 








DYPE 


093 


DYPE 


1C5 








DYPE 


094 


DYPE 


0S2 








DYPE 


101 


DYPE 


0S9 








DYPE 


102 


DYPE 


0S1 








DYPE 


108 


DYPE 


1C3 








DYPE 


110 


DYPE 


1C8 








DYPE 


HI 


DYPE 


0S4 








DYPE 


113 


DC LB 


214 








DYPE 


125 


DYPE 


123 








DYPE 


129 


DYPE 


127 








DYPE 


142 


DYPE 


131 








DYPE 


144 


DYPE 


152 








DYPE 


146 


DYPE 


144 








DYPE 


150 


DYPE 


148 








DYPE 


151 


DYPE 


133 








DYPE 


154 


DYPE 


070 








DYPE 


156 


DYPE 


138 








DYPE 


157 


DYPE 


136 








DYPE 


159 


DYPE 


140 









FOLLOWING IS THE 1052 XLATE TABLE 
ADDR-5088 

XAUX«407E4C5E7A6C7D6E5C4O5D7F0O0OF07B4A6FE2E3E4E5« 
XAUX* E6E7E8E96B4F7C2500C06DD1D2D 30405060 7D8D95B5A« 
XAUX"601516004EC1C2C3C4C5C6C7C8C94B5F5005« 

********************************** 

* CROSS REFERENCE FOR CSECT OYPE * 
********************************** 



OYPE 028 OYPE 033 OYPE 065 DYPE 229 



CLOAD=*E60, EC LEVEL=1282il PAGE 209 



********************************** 

* CROSS REFERENCE FOR CSECT DYPE * 
********************************** 



DYPE 


162 


DYPE 


160 












DYPE 


163 


DYPE 


130 












DYPE 


165 


ERDR 


1C4 












DYPE 


168 


DYPE 


005 


DYPE 


117 


DYPE 


228 




DYPE 


180 


DYPE 


015 


DYPE 


068 


OYPE 


086 DYPE 147 




DYPE 


181 


DYPE 


051 


DYPE 


120 


DYPE 


164 




DYPE 


184 


DYPE 


116 












DYPE 


191 


DCLA 


3C8 












DYPE 


203 


DYPE 


2C1 












DYPE 


204 


DYPE 


1<39 












DYPE 


205 


DYPE 


200 












DYPE 


208 


DYPE 


2C6 












DYPE 


210 


DCLA 


218 












DYPE 


216 


DYPE 


214 












DYPE 


217 


DYPE 


213 












DYPE 


221 


DYPE 


212 












DYPE 


225 


DYPE 


221 












DYPE 


226 


DCLR 


037 












DYPE 


231 


ALOP 


245 


DYPE 


096 








DYPE 


235 


DYPE 


242 


DYPE 


245 


DYPE 


248 DYPE 258 


DYPE 264 


DYPE 


239 


DYPE 


253 


DYPE 


255 


DYPE 


262 




DYPE 


242 


DYPE 


234 












DYPE 


246 


DYPE 


243 












DYPE 


250 


DYPE 


247 












DYPE 


2 54 


DYPE 


251 












DYPE 


256 


DYPE 


249 












DYPE 


259 


DYPE 


246 












DYPE 


261 


DYPE 


259 












DYPE 


263 


DYPE 


260 













ECOL DESCRIPTIVE TEXT 



ENTRY POINTS 
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MASK 



MLR 



ENTRY IS MADE TO THIS LABEL FROM THE EPCH 
ROUTINE WHEN A COLUMN BINARY OPERATION 
NEEDS A MASK TO START* THE PUNCH ROW IMAGE 
BUFFER HAS BEEN FILLED WITH ONES, THE DATA 
ADDRESS AND COUNT HAVE BEEN STORED, 2540 
MODE AND CPU ZONE HAVE BEEN SET. 

ENTRY IS MADE TO THIS LABEL FROM THE EPXF 
ROUTINE WHEN A WRONG LENGTH RECORD HAS BEEN 
DETECTED. THE WLR BIT IS SET AND STORED 
IN THE INDICATOR BYTE IN AUXILIARY STORAGE. 
THE RESIDUAL COUNT IS STORED AND THE ERRQ 
ROUTINE IS BRANCHED TO FOR A UCW READOUT. 



GOCHAN ENTRY IS MADE FROM THE ERCX ROUTINE AFTER 
THE CCW COUNT IS ZERO FOR A DATA CHAINING 
OPERATION. A BRANCH TO DCLB IS MADE TO 
PICK UP THE NEXT CCW. 

CNTLRG ENTRY IS FROM THE EPCH ROUTINE DURING A 

DATA CHAINING OPERATION TO DETERMINE IF THE 
LAST CCW RESULTED IN AN 8 COLUMN GROUP 
BEING SET INTO THE PUNCH IMAGE BUFFER. IF 
AN 8 COLUMN GROUP WAS NOT COMPLETED BY THE 
LAST CCW, THE INFORMATION IS READ BACK FROM 
THE BUFFER, COMPLETED, AND STORED BACK INTO 
THE BUFFER. 



MOVWLR ENTRY IS MADE FROM THE EPXF ROUTINE AFTER 
THE PUNCH DATA HAS BEEN TRANSLATED TO ROW 
IMAGE. THE RESIDUAL COUNT IS STORED AND 
THE ERRC ROUTINE IS BRANCHED TO FOR A UCW 
READOUT. 



NEWMSK N ENTRY IS MADE TO THIS BRANCH SET FROM THE 
EPXF ROUTINE TO FETCH A NEW COLUMN MASK 
AS INDICATED BY THE CONTROL REGISTER -I0~. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






ECOL 


001 


T 


PUNCH 


COLUMN BINARY AND DATA CHAINING 








ECOL 


002 


* 










19 4 A 


24€5 


ECOL 


003 


MASK 






G0^0$K80 


FIRST MASK 


194C 


2AF7 


ECOL 


004 








TO=0$KFF 


RST ALL REG'S 


194E 


5A89 


ECOL 


005 








T1=T0 




1950 


4EA6 


ECOL 


006 








H^T 




1952 


5B99 


ECOL 


007 








I1 = T1 




19 54 


5B59 


ECOL 


0C8 








Gi=Tl 




1956 


01E3 


ECOL 


009 


AGAIN 






Z=Ul*-KOE 


MASK FOR ODD CT 


1958 


F0E1 


ECOL 


010 




014 


CTEVEN 


BR IF LZ=0 


BR IF CCW CT EVEN 


19 5A 


2118 


ECOL 


Oil 








U1=U1«-K01 


MAKE CT EVEN 


I95C 


D861 


ECOL 


012 




014 


CTEVEN 


BR IF PO BIT 5=1 


BR IF TOTAL CT EVEN 


195E 


311B 


ECOL 


013 








UUUl-KOl **TOTAL CT 


ODD, TAKE 1 COL LESS 


1960 


E824 


ECOL 


014 


CTEVEN 


022 


RDCATA 


BR IF PO BIT6=G 


BR IF LOWER HALF 


1962 


2 6 IB 


ECOL 


015 








DO-DO+KOl 


WLR CTR ♦ 1 


1964 


F4A4 


ECOL 


016 




022 


ROD AT A 


BR IF Afr=0 


BR IF NOT WLR 


1966 


2DAI 


ECOL 


017 


WLR 






Pl=G-KOA 


WLR, P=10F5 


1968 


5EC0 


ECOL 


018 








RDH H AS,P*0 


RD IND BYTE 


196A 


3E13 


ECOL 


019 








HQ^HOSKOl 


WLR INDICATOR 


196C 


7EC0 


ECOL 


020 








STH H AS,P+0 




196E 


997C 


ECOL 


021 




059 


HALF 


BR 




1924 


5738 


ECOL 


022 


RDDATA 






RDB Dl V*l 


READ DATA 



AODR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


19 26 


E72A 


ECOL 


023 




025 


N 


BR IF 01 BIT2=0 


1928 


6541 


ECOL 


024 








Gl=GlaG0 


19 2A 


F72E 


ECOL 


025 


N 


027 


NE 


BR IF 01 8 IT 3=0 


192C 


6B41 


ECOL 


026 








Tl=TlaGO 


192E 


C332 


ECOL 


027 


NE 


029 


NEX 


BR IF 01 BIT4=0 


1930 


6F41 


ECOL 


02 8 








Hi=HlaGO 


19 32 


0336 


ECOL 


029 


NEX 


031 


NEXT 


BR IF 01 BIT 5=0 


19 34 


6941 


ECOL 


030 








Ii=IlaG0 


1936 


E33A 


ECOL 


031 


NEXT 


033 


NEXTB 


BR IF 01 BIT6=0 


1938 


6A41 


ECOL 


032 








T0=T0nG0 


193A 


F33£ 


ECOL 


033 


NEXTB 


035 


NEXTBT 


BR IF 01 BIT 7=0 


19 3C 


6E41 


ECOL 


034 








H0= HOn GO 


193E 


5224 


ECOL 


035 


NEXTBT 






V=V + 1 


1940 


282B 


ECOL 


036 








I0=I0*K02 


1942 


31 IB 


ECOL 


037 








U1=U1-K01 


1944 


C480 


ECOL 


038 




041 


STORE 


BR IF Z=0 


1946 


5879 


ECOL 


039 


TEMPRY 






01=10 


1948 


B345 


ECCL 


040 




124 


NEWMSK N 


N=D1L 


190C 


75C0 


ECOL 


041 


STORE 






STB Gl AS,P+0 


190E 


2DAB 


ECOL 


042 








P1=P1*K0A 


19 10 


7BC0 


ECOL 


043 








STB Tl AS,P+0 


1912 


20AB 


ECGL 


044 








PI=PI*K0A 


1914 


7FC0 


ECOL 


045 








STB HI AS,P+0 


1916 


1C1B 


ECOL 


046 








P0=P0QKQ1 ** 


1918 


F671 


ECOL 


047 




053 


00N2N0 


BR IF PO BIT7=1 


191A 


5959 


ECOL 


048 








G1=I1 


19 1C 


5AB9 


ECOL 


049 








T1=T0 


191E 


5EF9 


ECOL 


050 








H1 = H0 


1920 


2DAB 


ECOL 


051 








P1=P1+K0A 


1922 


S90C 


ECOL 


052 




041 


STORE 


BR 


1970 


2DCD 


ECOL 


053 


DGN2ND 






P1=P1+KC0 


1972 


2DFB 


ECOL 


054 








P1=P1+K0F 


1974 


5119 


ECOL 


055 








U1=U1 


1976 


C4FD 


ECOL 


056 




059 


HALF 


BR IF Z=0 


1978 


08A0 


ECOL 


057 








Z=I0nKA0 


197A 


EOCA 


ECOL 


058 




003 


MASK 


BR IF HZNZ 


19 7C 


1C2B 


ECOL 


059 


HALF 






P0=P0nK02 


197E 


E814 


ECOL 


060 




092 


LOHALF 


BR IF PO BIT6=0 


1980 


5629 


ECOL 


061 


MOVWLR 






vo=oo 


19 82 


71A2 


ECOL 


062 








STB Ul OAtAC 


1984 


5C99 


ECOL 


063 








I1=P0 


19 86 


A 06 2 


ECOL 


064 




ERRQ 087 


RPHUCW 


BAL 


1988 


A044 


ECOL 


065 




ERRQ 092 


ROIND 


BAL 


198A 


2EC7 


ECOL 


066 








H0=0 


19 8C 


C538 


ECOL 


067 




072 


NOCO 


BR IF Gi BITO=0 


198E 


F837 


ECOL 


068 




071 


OVERCT 


BR IF PO BIT7=l 


19 90 


5209 


ECOL 


069 


GOCHAN 






P1=V0 


1992 


93CA 


ECOL 


070 




OCLB 039 


CHAIN 


BR 


1986 


1525 


ECOL 


C71 


OVERCf 






G1=G1*-K20 


19B8 


34 85 


ECOL 


072 


NOCO 






G0=G0$K80 


198A 


5FA0 


ECOL 


080 


STKOLO 






ROB Hi AS,T+0 


19 BC 


7CA8 


ECOL 


081 


ST KNEW 






STH P AStT+2 


I9BE 


9F01 


ECOL 


082 




083 


STKSEL N 


N-Hl BITS123 



CLQAD=*E60 f EC LEVEL=1282 11 

COMMENTS 



PAGE 211 



EVERY OTHER BYTE 

CONTROL REG ♦ 2 

CCW COUNT - 2 
BR IF CT=0 

BREAK FOR NEW MASK 
STORE INTO PCH IMAGE 
BUFFER 



INVERT 1ST 3 OR 2N0 3 I NO 
BR IF STORE 2N0 3 
MOVE 2ND 3 BYTES 



GO TO STORE 2ND 3 

POINT TO NEXT 6 COL f S 

BR IF CCW CT=0 
FORCE LOWER TO STOP 

IN CASE OF WLR 
INVERT UPPER OR LOWER HALF BIT 
BR IF LOWER HALF 
MOVE WLR CTR 
STORE RESIDUE COUNT 
STORE IX REG 
READ PUNCH UCW 
READ INDICATOR AND SENE 
ZERO UNIT STATUS 
BR IF NOT CDA 
BR IF WLR - OVER COUNT 
CDA, STORE WLR CTR IN PI 
GO CHAIN 
SUPPRESS SLI 
SECONDARY BIT 
GET OLD STACKER INFO 
STORE NEW STACKER INFO 



ADDR 

1800 
1802 
1804 
1606 
18 08 
180A 
180C 
I80fe 
1810 
1994 
1996 
1998 
199A 
199C 
199E 
19A0 
19A2 
19A4 
19A6 
19A8 
19AA 
19AC 
19AE 
i960 
1982 
1984 
19C0 
19C2 
19C4 
19C6 
19C8 
19CA 
19CC 
19CE 
1900 
1902 
1904 
19D6 
19D8 
190A 
190C 
1A40 
1A42 
1A44 
1A46 
1A48 
1A4A 
1A4C 
1A4E 
1A50 
1A52 
1A54 
1A56 



WORD SEQUENCE NO- 



2FC8 
98CA 
2F0C 
9 BOA 
2F0A 
221B 
F491 
3C13 
911A 
5C89 
51A2 
52E2 
081E 
5224 
01E3 
F0A8 
21FF 
D829 
2128 
1C4B 
58D5 
2DCB 
2030 
5689 
FOCO 
994A 
2030 
2D28 
5FC0 
3D9B 
5BC0 
3D9B 
55C0 
ICiB 
F854 
9946 
5FE9 
5BA9 
5599 
3D9B 
99C4 
C862 
990C 
2445 
9A5E 
2425 
9A5E 
2415 
9A5E 
2483 
9A 5£ 
2443 
9A5E 



ECOL 
EC 01 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 



083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
12 7 
128 
129 
130 
131 
132 
133 
134 
135 



LABEL 
STKSEL 
STKSEL 2 

STKSEL 4 

COUNT 



NO UNCI 
LOHALF 



NEXTSEQ NEXTLABEL STATEMENT 



OKCT 



ODD NOT 
EVENCT 



CNTLRG 

COMDLE 
READ 



SECONO 

NEWMSK 
NEWMSK 2 
NEWMSK 4 
NEWMSK 6 
NEWMSK 8 
NEWMSK A 



088 
088 

091 
EXFR 122 



103 
102 



109 
003 



119 
039 



ill 
141 
041 

139 

139 
139 
139 
139 



COUNT 
COUNT 

NOUNCT 
WLRBR 



097 OKCT 



EVENCT 
GDDNOT 



CDMOLE 
MASK 



SECOND 
TEMPRY 



READ 
NOT POL 
STORE 

BRNCH 

BRNCH 

BRNCH 

BRNCH 

BRNCH 



SET P K-40 

BR 

SET P K=60 

BR 

SET P K=50 

V0=V0+K01 

BR IF AC=i 

P0=P0$K0i 

BR 

I0=U0 

ROB Ul DA,AC 

ROH V DA f BC 

BR IF PO BIT5=0 

V = V*i 

Z=U1*-K0E 

BR IF LZ=0 

U1=U1+KFF 

BR IF PO BIT 5=1 

Ui=Ul+K02 ♦♦TOTAL 

P0=P0aK04 

P1=I0XL 

P1=P1+K0C 

P1=PH-K30 

10=10 

BR IF LZNZ 

8R 

P1=P1+K30 

P1=P1+K02 

ROB HI AS»P4-0 

P1=P1H<09 

RDB Ti AS,P*0 

P1=P1-K09 

RDB Gl AS,P+0 

P0=P0aK0i **INVERT 



CL0AD=*E60, EC LEVEL=1282il 
COMMENTS 

POCKET PKRU031I 
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♦ ♦ODD 
♦♦RECOVER 



POCKET P2CRU31G025) 

POCKET RP3tRU31£025) 
INCREMENT WLR C TR 
BR IF NO UNDER COUNT 
UNDER COUNT, SET WLR INDICATOR 
INTERAGATE CHAINING AND SLI 
RESTORE CONTROL CTR 
RESTORE CCW ADJUSTED COUNT 
RESTORE DATA ADDR 
BR IF TOTAL CT ODD 
TOTAL CT EVEN 
MASK FOR ODD COUNT 
BR IF EVEN CT 
MAKE IT EVEN 
BR IF TOTAL CT EVEN 
CT ODD, MAKE 1 COL MORE 
CT, FLIP TOTAL ODD CT BIT 
PCH IMAGE BUFFER ADDR 



♦ ♦CD STARTED FROM THE MIDDLE OF 
♦♦ROW FORM BYTES, CHANGE ADDR 

TO READ THEM OUT BACKWARDS 



♦♦GO 
BIT4=0 

♦♦DONE 



BR IF PO BIT7-0 

BR 

H0=H1 

T0 = T1 

li=Gl 

P1=P1-K09 

BR 

BR IF PO 

BR 

G0=0$K40 

BR 

G0=0$K20 

8R 

G0=0$K10 

BR 

G0=0$K08 

BR 

G0=0$K04 

BR 



BR 
RD 



1ST 3 
IF RD 
ALL 6 



MOVE THE 



OR 2ND 3 IND 
1ST 3 BYTES 
BYTES, GO 
LOWER 3 BYTE 



SUBT OA ONCE MORE 
READ THE UPPER 3 BYTES 

BR IF FROM EPXF 
8 COLUMN, GO STORE THEM 



ADOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60t EC LEVEL=1282 11 

COMMENTS 
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1A58 


2423 


ECOL 


136 


NEWMSK 


C 








1A5A 


9A5E 


ECOL 


137 








139 


BRNCH 


1A5C 


2413 


ECOL 


138 


NEWMSK 


E 








1A5E 


C864 


ECOL 


139 


BRNCH 






142 


POLNOT 


1A60 


<S956 


ECCL 


140 








009 


AGAIN 


1A62 


9B30 


ECCL 


141 


NOTPOL 




EPXF 


069 


STORE 


1A64 


9B66 


ECCL 


142 


POLNOT 




EPXF 


016 


UPDATE 



BR IF FROM EPXF 



G0=0$K02 
BR 

GO=0$KOi 
BR IF PO BIT 4=0 
BR 

BR **GOT NEW MASK BACK TO PXFR 

BR **GOT NEW MASK BACK TO PXFR 

********************************** 

* CROSS REFERENCE FOR CSECT ECOL * 
********************************** 



£COL 


003 


ECOL 


058 


ECOL 


108 


EPCH 


103 




ECOL 


009 


ECOL 


140 












LCOL 


014 


ECOL 


010 


ECOL 


012 








ECOL 


017 


EPXF 


019 












ECOL 


22 


ECOL 


014 


ECOL 


016 








FCOL 


025 


ECOL 


023 












ECOL 


027 


ECOL 


025 












L-COL 


029 


ECOL 


027 












FCOL 


031 


ECOL 


029 












ECOL 


033 


ECOL 


031 












ECOL 


035 


ECOL 


033 












tCOL 


039 


ECOL 


118 












tCOL 


041 


ECOL 


038 


ECOL 


052 


ECOL 


125 




L-COL 


053 


ECOL 


047 












cCOL 


059 


ECOL 


021 


ECOL 


056 








ECOL 


061 


EPXF 


0E2 












ECOL 


069 


ERCX 


039 












ECOL 


071 


ECOL 


068 












ECOL 


072 


ECOL 


067 












ECOL 


083 


ECOL 


082 












ECOL 


088 


. ECOL 


064 


ECOL 


086 








FCUL 


091 


ECOL 


089 - 












ECOL 


092 


ECOL 


060 












ECOL 


097 


ECOL 


C95 












ECUL 


102 


ECOL 


100 












ECOL 


103 


ECOL 


098 












tCOL 


106 


EPCH 


0E6 












ECOL 


109 


ECOL 


107 












tCOL 


ill 


ECOL 


123 












ECOL 


119 


ECOL 


117 












ECOL 


124 


ECOL 


040 


EPXF 


040 








ECOL 


139 


ECOL 


127 


ECOL 


129 


ECOL 


131 ECOL 133 ECOL 135 


ECOL 


141 


ECOL 


124 












ECOL 


142 


ECOL 


139 













ECOL 137 



EPCH DESCRIPTIVE TEXT 



ENTRY POINTS 
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ENTRY IS MADE HERE FROM THE ERDR ROUTINE 

DURING A PUNCH WRITE START I/O OR A PER, 

THE INDICATOR AND SENSE BYTES ARE SET UP 
AND SAVED IN LOCAL STORAGE* 

ENTRY IS MADE FROM THE ERDR ROUTINE TO 
TEST FOR UNUSUAL COMMAND SEQUENCE. THE 
READ INDICATOR AND WLR COUNTER ARE SET, ANY 
EXCESS BYTE COUNT IS STORED IN AUX OX8E. 



NPCH 



PICKUP 



HIGHCT ENTRY IS MADE FROM THE ERDR ROUTINE WITH 

A NEW CCW BYTE COUNT, TO DETERMINE IF AN 
EXCESS COUNT HAS BEEN GIVEN. IF THERE IS 
AN EXCESS COUNT, THE EXCESS IS STORED IN 
AUX OXBE. 



NATIVE 2540 PUNCH UCW FORMAT AND AUX LOCATIONS 



INDICATORS AND SENSE BYTE AND AUX LOCATIONS 



GOES 00E9 COEA OOEC-ED OOEE-FF 

******************************;********************************* 
*■.'.*' * * * * 4c 

♦'CHANNEL * CHANNEL * UNIT * NOT * RESIDUAL * NEXT CCW * 
*'. STATUS * FLAGS * STATIS * USED * COUNT * ADDRESS * 

* *'♦''♦ * * * 

************************************************************:*** 



CHANNEL 
STATUS 

0- SECONDARY 
l-WLR 

2=PRQG CHK 
3* PHOT CHK 
4«N0T USED 
5* NOT." USED 
6-INTFCE CHK 
7- INT IN BFR 



CHANNEL 
FLAGS 

0=CHAIN DATA 
1=CHAIN CMD 
2=SLI 
3= SKIP 
4^=PCI 
5=ACTIVE 
6-=N0T USED 
7=NGT USED 



UNIT 
STATUS 

0=NOT USED 
i*NOT USED 
2= NOT USED 
3=BUSY 
4=CH END 
5=DEV END 
6 = UMT CHK 
7=UNIT EXCEPT 



10F4 10F5 IOF2 

********************************************* 

* * * * 

* INDICATOR * SENSE BYTE * OLD STACKER * 

* * ♦ * 
********************************************* 



INDICATOR 

0= CHAIN DATA 
1=STK SEL 
2=*STK SEL 
3=0 

4=PFR READ 
5= COUNT STOR 
6=PFR COUNT 
7=WLR 



SENSE BYTE 

0=CMD RE J 
1=N0T ROY 
2=N0T USED 
3» EQUIP' CHK 
4=VALIDITY CHK 
5= NOT USED 
6= UNUSUAL CMD 
7*N0T USED 



OLD STACKER 

O^NOT USED 
l=STK SEL 
2=STK SEL 
3=0 

4=N0T USED 
5= NOT USED 
6=N0T USED 
7= NOT USED 



AODR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



EPCH 


OOi 


T 


EPCH 


002 


* 


EPCH 


003 


* 


EPCH 


004 


* 


EPCH 


005 


* 


EPCH 


006 


* 


EPCH 


007 


* 


EPCH 


008 


* 



PUNCH SIO CMD DECODE £ CHAINING 
FOLLOWING INFORMATION— 



U 
V 

GO 
G'l 

HO 



REG CONTAINS 
REG CONTAINS 
REG CONTAINS 
REG CONTAINS 
REG CONTAINS 



COUNT 

DATA ADDRESS 

CHANNEL STATUS 

FLAG 

COMMAND BYTE 



AUCR 


WORD 


SEQUEMCE NU. 


LABEL 


NEXTSEQ 


NEXTLABE 


L STATEMENT 






EPCH 


009 


* 








12U4 


IFOO 


EPCH 


010 


NPCH 






RST P K=80 


1206 


FA?4 


EPCH 


014 




043 


READ 


BR IF HO BIT7=0 


12D8 


6CF7 


EPCH 


016 








P0=P0*H1 


L2CA 


EA5 3 


EPCH 


017 




032 


COMREJ 


BR IF HO BIT 6=1 


120C 


CE62 


EPCH 


018 




021 


STK1BT 


BR IF HO BITO=0 


12DE 


DE53 


EPCH 


019 




032 


COMREJ 


BR IF HO BITl=i 


12E0 


3C45 


EPCH 


020 








P0=P0$K40 


12E2 


0E66 


EPCH 


021 


STK1BT 


023 


SSDONE 


BR IF HO BIT 1=0 


1264 


3C2 5 


EPCH 


022 








P0=P0$K20 


12E6 


E85 3 


EPCH 


023 


SSDONE 


032 


COMREJ 


BR IF PO BIT6=1 


12E8 


CA48 


EPCH 


024 




034 


NOTPFR 


BR IF HO BIT4=0 


12EA 


3C23 


EPCH 


026 








P0=P0$K02 


12 EC 


2F40 


EPCH 


02 7 








SET P K=04 


12EE 


2462 


EPCH 


028 








SET MODE K=16 


12F0 


1643 


EPCH 


029 








D0^=D0*-K04 


L2F2 


92CC 


EPCH 


030 




036 


MODE 


BR 


1202 


98B4 


EPCH 


032 


COMREJ 


ERDR 138 


CMOREJ 


BR 


12C8 


2462 


EPCH 


034 


NOTPFR 






SET MODE K=16 


12CA 


3643 


EPCH 


035 








00=D0$K04 


1*2CC 


2402 


EPCH 


036 


MODE 






SET MODE K=10 


12CE 


1C83 


EPCH 


037 








P0=P0*-K08 


1200 


93 X 


EPCH 


041 




056 


SETCTR 


BR 


12F4 


EA52 


EPCH 


043 


READ 


032 


COMREJ 


BR IF HO BIT6=0 


12F6 


DA 5 3 


EPCH 


044 




032 


COMREJ 


BR IF HO BIT5=1 


12F8 


0E49 


EPCH 


045 








Z=H0+K40 


12FA 


F4D2 


EPCH 


046 




032 


COMREJ 


BR IF AC=0 


12FC 


EE53 


EPCH 


04 7 




032 


COMREJ 


BR IF HO BIT 2=1 


12FE 


EF84 


EPCH 


048 




052 


PICKUP 


BR IF PS BIT2=0 


1300 


2CC7 


EPCH 


049 








P0 = 


1302 


98BG 


EPCH 


050 




ERDR 133 


UEXPFR 


BR 


1304 


C8C8 


EPCH 


052 


PICKUP 


054 


SETP4 


BR IF PO BIT 4=0 


1306 


2D23 


EPCH 


053 








P1=0$K02 


1308 


3C83 


EPCH 


054 


SETP4 






P0=P0$K08 


130A 


1C23 


EPCH 


055 








P0=P0*-K02 


130C 


3659 


EPCH 


056 


SETCTR 






D0=0-K50 


1306 


5GC9 


EPCH 


057 


HIGHCT 






U0=U0 


1310 


C4A3 


EPCH 


05 8 




067 


HICTO 


BR IF Z=0 


1312 


3C53 


EPCH 


059 








P0=P0$K05 


1314 


4AC6 


EPCH 


060 








T = U 


1316 


2007 


EPCH 


061 








U0=0 


1318 


21A5 


EPCH 


062 








U1=0$KA0 


131A 


2C02 


EPCH 


063 








SET S3 


13 IC 


?B19 


EPCH 


064 








TIC=T1-U1«X 


13iE 


7A09 


EPCH 


065 








T0C=T0-U0*C 


1320 


7AF2 


EPCH 


066 








STH T DA, 8E 


1322 


8964 


EPCH 


067 


HICTO 


ERRQ 102 


STIND 


BAL 


1324 


71A2 


EPCH 


068 








STB Ul DA, AC 


1326 


72E2 


EPCH 


069 








STH V DAtBC 


1328 


F72C 


EPCH 


070 




073 


STAY 


BR IF Dl BIT3=0 


132A 


98C4 


EPCH 


071 


GOBACK 


ERDR 146 


BACK 


BR 


13 2C 


C828 


EPCH 


073 


STAY 


071 


GOBACK 


BR IF PO BIT4=1 


132E 


CC42 


EPCH 


074 




087 


CCS10 


BR IF PO BITO=0 



CLQAD=*E60, EC LEVEL=128211 
COMMENTS 

{H0=00 IF DATA CHAINING) 
RST-PCH & VAL CHKSIRU031* 
BR TO CHECK IF READ COMMAND 
CLEAR STKR 

BR IF 7,6 COMBINATION 
BR IF STKR PI OR P2 
BR IF Oai BITS IN COMMAND 
RP3 

92 

BR IF PREVIOUS PFR WRITE 

BR IF THIS CMD NOT PFR 

PFR WRITE CMD, SET INDICATOR 

SET PFR RESTARTIRU025) 

PUNCH MODE AND ZONE 

PFR INDICATOR FOR PCH TRAPIETRPJ 



PChMODE AND ZONE 

SET NOT PFR INDICATOR 

SET FEED INDICATORCRST PFR READ) 



BR IF 5-6 BIT COMBINATION 

BR IF 0£1 BITS NOT ON 

BR IF COL BIN 

BR IF NOT UNIT EXCEPTION 

PFR UNIT EXCEPTION, ALLOW FEED 

SHARE UNIT EXCEPTION READER 

BR IF PREVIOUS CMD IS A FEED 

PREV A READ, SET UNUSUAL CMD BIT 

SET READ INDICATOR 

RST FEED OR PFR WRITE INDICATOR 

SET WLR D0=AF 

BR IF NO EXCESS COUNT 
EXESS COUNT L WLR INDICATORS 
MOVE COUNT TO T REG 
GET 
EXCESS COUNT 

AND 
STORE 
IT 
STORE • 

STORE ADJUSTED COUNT 
STORE DATA ADDRESS 
BR IF PUNCH 

READER, GO TO ERDR ROUTINE 
BR IF PFR READICC OR SIO) 
BR IF NOT CDA 
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ADOR 

1330 
1332 

1334 
1336 
1338 
13 3 A 
133C 
1336 
1340 
1342 
1344 
1346 
1343 
134A 
134C 
134E 
1350 
1352 
1354 
1356 
1358 
1J5A 
1J5C 
1356 
1360 
1362 



*ORD SEQUENCE NO* LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



5CD9 
59C9 
C85E 
5 8X9 
D83F 
5224 
282B 
58D5 
99B0 
2BC7 
2C45 
2 DC 3 
2 8F7 
5899 
54A0 
78A8 
74C8 
C04C 
D94C 
5884 
3CE9 
2DC7 
EE63 
1CA3 
9B54 
994A 



EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 
EPCH 



078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 



TOTEVN 
CCSIO 

LOOP 



101 GOEPXF 



085 TOTEVN 



ECQL 106 CNTLRG 



GOEPXF 
GOECOL 



EPXF 003 

ECGL 003 



pi=po 

P0=I1 

BR IF PO BIT4=0 

U0=I0 

BR IF PO 8 IT 5= I 

V=V + l 

IQ=I0+K02 

P1=I0XL 

BR 

T1=0 

P0=0$K40 

P1=0$K0C 

IO=0$KFF 

11=10 

RDH G AS, T+0 

STH I AS,T«-2 

STH G AS,P+2 
LOOP BR IF PI BIT 0=0 

LOCP BR IF PI BIT5=0 

1=1 + 1 

PO=0-KEO 

P 1=0 

BR IF HO BIT 2=1 

P0=P0*-K0A 
PXFR BR 

MASK BR 

********************** 

* CROSS REFERENCE FOR 
********************** 



092 
092 



103 GOECOL 



CL0AD=*E60 f EC LEVEL=1282iI 

COMMENTS 

MOVE IND TO PI TO SAVE COA I NO 

COA, RE STORE PO 

COA FOR NO COL 

STORE CONTROL REG 

BR IF TOTAL COUNT EVEN 

LAST TOTAL COUNT 

taAS 000 
RECOVER BUFFER ADDRESS 

CC OR SIO, T=1000 

P=400C 

l^FFFF 

XFER PCH IMAGE AREA! 1000) TO 
PCH CHK AREA I400O AND STORE 
FF BACK INTO PCH IMAGE( 10001 
BR IF NOT DONE 
BR IF NOT DONE 
DONE, 1=0, P=4084 

P= 1F00 



P=15XX, DATA MODE 1 WRITE 
SICt CC OR CDA 
COL BINfSIOtCC 
************ 

CSECT EPCH * 
************ 
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EPCH 


010 


ERDR 


095 






EPCH 


021 


EPCH 


018 






EPCH 


023 


EPCH 


021 






EPCH 


032 


• EPCH 


017 . 


EPCH 


019 


EPCH 


034 


EPCH 


024 






EPCH 


036 


EPCH 


030 






EPCH 


043 


EPCH 


014 






EPCH 


052 


EPCH 


048 


ERQR 


130 


EPCH 


054 


EPCH 


052 






EPCH 


056 


EPCH 


041 






EPCH 


057 


ERDR 


059 






EPCH 


C67 


EPCH 


058 






EPCH 


071 


EPCH 


073 






EPCH 


073 


EPCH 


070 






EPCH 


085 


EPCH 


062 






EPCH 


087 


EPCH 


074 






EPCH 


092 


EPCH 


095 


EPCH 


096 


EPCH 


101 


EPCH 


oeo 






EPCH 


103 


EPCH 


ICO 







EPCH 023 EPCH 043 EPCH 044 EPCH 046 EPCH 047 



EPXF DESCRIPTIVE TEXT 



ENTRY POINTS 



CL0AD=*E60, EC LEVEL=1282ll PAGE 217 



PXFiK ENTRY IS MADE HERE FROM THE EPCH ROUTINE 

TO SET UP THE WORK AREA AND COUNTER. THE 
DATA TO BE PUNCHED IS TRANSFERED AND SET 
INTO THE ROW IMAGE BUFFER IN 
COMPLEMENT FORM. SEE FEMDM DIAGRAM 5-114. 

UPDATE ENTRY IS MADE HERE FROM THE ECOL ROUTINE 
TO INCREMENT THE WLR COUNTER AFTER A NEW 
COLUMN MASK HAS BEEN SET. IF THE WLR 
COUNTER OVERFLOWS, THE ECGL ROUTINE IS 
BRANCHED TO AND THE WLR BIT IS SET. 



STORE ENTRY IS MADE HERE FROM THE ECOL ROUTINE 
TO STORE THE 12, 11, 0, 8, AND 9 ROW WORK 
REGISTERS INTO THE ROW IMAGE BUFFER. 
IF THE CCW COUNT IS NOW ZERO, A BRANCH 
IS TAKEN TO THE ECOL ROUTINE. IF THE 
COUNT IS NOT ZERO, A NEW COLUMN MASK IS 
SET UP AND THE BUILOING OF THE PUNCH ROW 
IMAGE CONTINUES. 



AUDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






EPXF 


001 


T 


PUNCH 


TRANSFER! EBCDIC TO ROW FORM) 


a CHAINING 






EPXF 


002 


* 










1B54 


51C9 


EPXF 


003 


PXFR 






U0=U1 


MOVE CCW CT 


1856 


2A65 


EPXF 


007 








T0=0$K60 


X'LATE TABLE ADDR FOR NOT 24K 


1B58 


CD6F 


EPXF 


009 




024 


CDA 


BR IF PI BIT0=1 


BR IF DATA CHAIN 


1B5A 


21F7 


EPXF 


010 


CLEAR 






U1=0$KFF 


CLEAR 


1B5C 


5179 


£P XF 


Oil 








D1 = U1 


ALL THE 


1B5E 


51F9 


EPXF 


012 








H1 = U1 


ACCUMULATING 


IB60 


51E9 


EPXF 


013 








HO=Ui 


REGISTERS 


1862 


5199 


EPXF 


.014 








I1 = U1 




1B64 


2485 


EPXF 


015 








G0=0$K80 


FIRST MASK 


1B66 


261B 


EPXF 


016 


UPDATE 






D0=D0+K01 


INCREMENT WLR CTR 


1B68 


F4CC 


EPXF 


017 




020 


READ 


BR IF AC=0 




1B6A 


5 019 


EPXF 


018 








U1=U0 




186C 


9966 


EPXF 


019 




ECOL 017 


WLR 


BR 




1B4C 


5B38 


EPXF 


02 


READ 






ROB Ti V + l 


READ FROM MAIN STORE 


1B4E 


55A0 


EPXF 


021 








RD8 Gl AS,T+0 


XLATE TO CONDENSED 


IB 50 


157B 


EPXF 


022 








Gl=GlnK07 


INVERTS BITS 4,2,1 


IB52 


9115 


EPXF 


023 




041 


BIT421 N 


N=G1 BITS567 




1B6E 


58D5 


EPXF 


024 


CDA 






P1=I0XL **CHAINING, RECOVER BUFFER ADR 


1B70 


58 89 


EPXF 


025 








10=10 




1B72 


FODB 


EPXF 
EPXF 


026 
027 


* 


010 


CLEAR 


BR IF LZ=0 **BR IF 


LAST CHAIN ENDED AT 8 

BYTES BOUNDARY 


1B74 


51C0 


EPXF 


028 








RDB Ui AS,P+0 


LAST CHAIN10R SIO) 


1B76 


2DAB 


EPXF 


029 








P1=P1+K0A 


ENDED IN THE MIDDLE 


1B78 


57C0 


EPXF 


03 








RDB Dl AS,P+0 


OF A 8 BYTES BOUN- 


LB7A 


2 DAB 


EPXF 


031 








Pl^Pl+KOA 


DARY, READ THE 12, 


1B7C 


59C0 


EPXF 


032 








RDB U AS,P+0 


11, 0, 8, £ 9TH 


1B7E 


2D5D 


EPXF 


033 








Pl = Pl4-K50 


BYTES OUT 


1380 


5FC0 


EPXF 


034 








RDB HI AS,P+Q 





ADDK 

LB 82 
IB 84 
1886 
IB 88 
18 8A 
188C 
1A80 
IA82 
1A84 
1A86 
1A88 
1A8A 
IA8C 
1A8E 
1B08 
IBOA 
IBOC 
iBOE 
lB'iO' 
1812 
1814 
1816 
1:B18 
1B1A 
18 1C 
L81E 
1820 
1B22 
1824 
IB26 
IB28 
182A 
lb2C 
182E 
lb 30 
1832 
1B34 
1B36 
1B38 
1B3A 
133C 
183E 
1840 
1842 
1B44 
1B46 
1B48 
1B4A 



6000 
6016 
602C 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



20AB 

5 5C0 
55E9 
5805 
5859 
B145 
2DAB 
20AB' 
2 CAB 
2DAB 
20AB 
20AB 
9BC8 
9B14 
2010 
2DEB 
5BC0 
6B41 
7BC0 
58D5 
C518 
6141 
D51C 
6741 
E520 

6 94 1 
F524 
6F41 
C128 
6E41 
282B 
2 OFF 
C4B1 
SB8A 
71C0 
2DAB 
77C0 
20AB 
79CC 
2D50 
7FC0 
2DAB 
5EFS 
7FC0 
5805 
5019 
C40A 
$9 80 



B989 
4E4F 
JC3D 



EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EP XF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 



035 
036 
037 
038 

03 9 
040 
041 
042 
043 
044 
045 
046 

04 7 
04 8 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
06 7 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
82 
083 
085 
089 
090 
091 



TEMPRY 

BIT421 
BIT421 
BIT421 
BIT421 
BIT421 
BIT421 
BIT421 
BIT421 
ADD1E 



BYTES 

N 

NE 

NEX 

NEXT 

DONE 

STORE 



ECOL i24 NEWMSK N 



049 
055 



A0D1E 
BYTES 



057 
059 
061 
063 
065 



069 
039 



N 

NE 

NEX 

NEXT 

DONE 



STORE 
TEMPRY 



A TABLE 

C 
C 

c 



010 
ECOL 061 

AODR=6000 



CLEAR 

MOVWLR 

NATIVE 



Pl-Pl+KOA 
ROB Gl AS 
H0 = G1 
Pl=IOXL 
Gl=IO 
N=GIL 
P1=P1+K0A 
Pl = PH-KOA 
P1=P1+K0A 
P1=P1*K0A 
P1=PH-K0A 
P1=P1+K0A 
BR 
BR 

P1=P1+K10 
P1=P1+K0E 
ROB Tl AS 
Tl=TlnGO 
STB Tl AS 
P1=I0XL 
BR IF Gi 
U1=U1QG0 
BR IF Gl 
Dl=DlnGO 
BR IF Gl 
Il-IinGO 
BR IF Gl 
Hl^HiaGO 
BR IF Gl 
HO = HO a GO 
I0=I0+KO2 
UO=UO*KFF 
BR IF Z=0 
BR 

STB Ui AS 
Pi=Pl«-KOA 
STB Dl AS 
Pl=Pl+KOA 
STB II AS 
P1=P1+K50 
STB HI AS 
P1=P1+K0A 
H1=H0 
STB HI AS 
P1=I0XL 
U1=U0 
BR IF ZNZ 
BR 
2540 PUNCH T 



,P + 



,P+0 
,P>0 
8IT0=0 
BIT 1=0 
BIT 2=0 
BIT 3=0 
BIT4=0 



,P+G 
,P«-Q 
,P«-0 
♦ P *0 



P+0 



CL0A0=*E60» EC LEVEL=128211 
COMMENTS 



RECOVER BUFFER A DOR 
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GO GET NEW MASK 



ADO 


60(90) - 7 


PUNCH 


ADC 


50(80) - 6 


PUNCH 


ADO 


46(701 - 5 


PUNCH 


ADC 


3C(60) - 4 


PUNCH 


ADO 


321 501 - 3 


PUNCH 


ADD 


28(40) - 2 


PUNCH 


GO ADD 1EI3-.0)--: 


1 PUNCH 



NO PUNCH IN 1 THRU 7 
ADO IE TO BUFFER AODR 

STORE 

1 THRU 7 
PUNCH 
RECOVER PCH BFR ADDR 

12TH PUNCH 

11TH PUNCH 

OTH PUNCH 

8TH PUNCH 

9TH PUNCH 

ADD 2 TO CONTROL CTR 

DECREMENT CCW CT 

NOT DONE t GET NEW MASK 
STORE 12TH BYTE 

STORE 11TH BYTE 

STORE OTH BYTE 

STORE 8TH BYTE 



STORE 9TH BYTE 
RESTORE BFR ADDR 



BR IF CTR NOT ZERO 
FINISHED 
RANSLATE TABLE 



XAUX« B9 898A8B8C8D8E8F98999A9B9C9D9E9F09494A4B4C4D i 
XAUX«4E4F58595A5B5C5D5E£F79292A2B2C2D2E2F38393A3B« 
XAUX'3C3D3E3FF909QAOBOCODOEOF18191AlBlClDlElFQOA9 f 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 



CL0AD=*E60 t EC LEVEL=L282 11 
COMMENTS 
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6042 


AAAB 


EPXF 


092 


C 


o058 


D851 


EPXF 


093 


c 


606E 


3637 


EPXF 


094 


c 


6084 


AAA 5 


EPXF 


095 


c 


o09A 


D2D3 


EPXF 


096 


c 


bOBO 


F1EL 


EPXF 


097 


c 


60C6 


8687 


EPXF 


098 


c 


bODC 


DCOO 


EPXF 


099 


c 


60F2 


0203 


EPXF 


100 


c 






EPXF 


101 


AEND 



EPXF 


003 


EPCH 


102 


EPXF 


010 


EPXF 


026 EPXF 081 


EPXF 


016 


ECOL 


142 


EPXF 


020 


EPXF 


017 


EPXF 


024 


EPXF 


009 


EPXF 


039 


EPXF 


068 


EPXF 


041 


EPXF 


023 


EPXF 


049 


EPXF 


047 


EPXF 


055 


EPXF 


048 


EPXF 


057 


EPXF 


055 


EPXF 


059 


EPXF 


057 


EPXF 


061 


EPXF 


059 


EPXF 


063 


EPXF 


oei 


EPXF 


065 


EPXF 


063 


EPXF 


069 


ECOL 


141 EPXF 067 



XAUX« AAA8ACADAEAFB89192 
XAUX« D85152535455565740 
XAUX« 3637E0E9EAEBECEDEE 
XAUX« A4A5A6A7B0A8B2B3B4 
XAUX*D2D3D40506D7716162 
XAUX« F1E1E2E3E4E5E6E7F0 
XAUX» 86879088BABBBCBDBE 
XAUX« DCD)DEDF3269222324 
XAUX" 0203040506071008FA 



939495969780C9CAC8CCCDCECF' 
21 6A6B6C606E6F7831C 0333435 » 
EFF8 1 112 13141 51 6173 1A1A2 A3 « 
B5B6B7D1C1C2C3C4C5C6C7D0C8* 
636465666 7706872 737475767 7 f 
E8F2F3F4F5F6F7A081 82838485* 
BF604 1424344454647504 8DA0B» 
252627302 87A 7B7C7D7E7F2001 « 
FBFCFOFEFF» 



********************************** 

* CROSS REFERENCE FOR CSECT EPXF * 
********************************** 



ERCX DESCRIPTIVE TEXT 



ENTRY PUINJS 
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START ENTRY IS MADE FROM THE ERDR ROUTINE TO 
START READER COLUMN IMAGE TO STORAGE 
TRANSFER. SEE FEMDM OIAGRAM 5-105. 

WLRSET ENTRY IS MADE HERE FROM THE ERDR ROUTINE 
TO. SET THE WLR INDICATOR WHEN THE WLR 
COUNTER HAS OVERFLOWED DURING A READ OR 
SENSE COMMAND WITH THE SKIP FLAG ON. 



CDFLAG ENTRY IS FROM THE ERDR ROUTINE WHEN THE 
SKIP OPERATION OF A READ OR PFR READ IS 
COMPLETED, (CCW CQUNT=0) . IF NOT DATA 
CHAINING, CONTINUE WITH THE NORMAL ENDING 
PROCEDURE. IF DATA CHAINING PREPARE TO 
FETCH A NEW CCW. 



AUDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXT LABEL 


STATEMENT 


COMMENTS 






ERCX 


001 


r 


XFER FRCM COLUMN 


FORM BUFFER (RO) TO 


CCW ADDR 


1H94 


5E88 


ERCX 


002 


READ 








RDH H AS, 1+2 


RD 2 BYTES 


lb96 


6FF3 


ERCX 


003 










" H1=H1+H1 




lb98 


6FF3 


ERCX 


004 










H1=H1+H1 


SHIFT 8,9 TWICE 


169A 


5FB3 


ERCX 


005 










T1=H1XH 


Tl=8,9 


1B9C 


6BE5 


ERCX 


006 










T1=T1$H0 


Tl=8, 9, 12,11,0,1,2,3 


139E 


1B73 


ERCX 


007 










Tl=Tl*-K0 7 


71=8,9,12,11,0 


1BA0 


5FF9 


ERCX 


008 










Hl^Hl 


Hl*=4, 5,6, 7,8,9 


lbA2 


E0A6 


ERCX 


009 




Oil 


NOHI 




BR IF HZNZ 


BR IF 4,5,6,7 NO BIT 


1BA4 


9A73 


ERCX 


010 




057 


CHECK 


N 


N=HO BITS567 


MASK ON BITS 1,2,3 


IBA6 


CE83 


ERCX 


Oil 


NOHI 








Z=H0*-K08 


BITS 1,2,3 


16A8 


F0B4 


ERCX 


012 




018 


GOVDTY 




BR IF LZNZ 


BR IF ANY IN 1,2,3 


IbAA 


3B43 


ERCX 


013 










T1=T1$K04 


AT LEASE 4 


lb-AC 


CF31 


ERCX 


014 




016 


BIT40N 




BR IF HI BIT0=1 


BR IF BIT 4 


IbAE 


SF73 


ERCX 


015 




057 


CHECK 


N 


N-Hl BITS 123 


MASK ON BITS 5,6,7 


1BB0 


0FE5 


ERCX 


016 


BIT40N 








Z=H1*-K80 


4 BIT ON 


1HB2 


EODF 


ERCX 


017 




021 


XLATE 




BR IF HZ=0 


BR IF NO OTHER BIT 


1HB4 


99EE 


ERCX 


018 


GOVDTY 


067 


CHECK 


7 


BR 




1BDA 


3B23 


ERCX 


019 


0RIN2 








Tl=Tl$K02 


OR IN 2 BIT 


IbOC 


3B13 


ERCX 


020 


0RIN1 








T1=T1$K01 


OR IN 1 BIT 


liiOe 


5FA0 


ERCX 


021 


XLATE 








RDB Hi AS,T+0 


XLATE TABLE LOOK UP 


IbEO 


7F38 


ERCX 


022 










STB HI V + l 


SEND TO MAIN STORE 


16E2 


21FF 


ERCX 


023 


DCRCT 








U1=U1+KFF 


DECREMENT CCW CT 


16E4 


C4B9 


ERCX 


024 




032 


CDFLG 




BR IF Z=0 




IBE6 


261B 


ERCX 


02 5 


START 








D0= DO +K0 1 


WLR CTR «• 1 


18 E8 


F4B7 


ERCX 


026 




031 


WLRSET 




BR IF AC=1 


BR IF WLR 


iBEA 


£414 


ERCX 


02 7 




002 


READ 




BR IF GO BIT2=0 


BR IF NOT COL BIN 


LB EC 


5F88 


ERCX 


02 8 










RDB HI ASt 1*1 


COL BIN 


1BEE 


7F38 


ERCX 


029 










STB HI vn 


MOVE TO MAIN STORE 


1SF0 


9BE2 


ERCX 


030 




023 


DCRCT 




8R 




IBB 6 


3C13 


ERCX 


0.31 


WLRSET 








P0=P0$K01 


WLR INDICATOR 


IBB 8 


5629 


ERCX 


032 


CDFLG 








VO = DO 


MOVE WLR CTR 


LbBA 


2607 


ERCX 


033 










00 = 


RST DO 



ADDK 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 
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1BBC 
1BBE 
1BCO 
1BC2 
1BC4 
1BC6 
1BC8 
1BCA 
1BCC 
1BCE 
1BDO 
1BU2 
1B04 
lttD6 
lbOB 
ItibE 
1B90 
1392 
19DE 
19E0 
19E2 
19E4 
19E6 
19E8 
19tA 
19 EC 
19EE 
19F0 
19F2 
19F4 
19F6 



3000 
3016 
Ju2C 
3042 
3058 
306E 
30 84 
309A 
30B0 
30C6 
300C 
30F2 



54E9 
5460 
C548 
1525 
F84F 
S990 
221B 
F4CF 
3C13 
71A2 
F70F 
CBD6 
3D83 
CD80 
9112 
8964 
7460 
988C 
3B23 
9BDE 
9B0A 
99DE 
99EE 
9B0C 
99EE 
99EE 
F775 
2F80 
9BDE 
2B80 
9BDE 



40F1 
D6D7 
8485 
3233 
A9E1 
4647 
7C70 
AAAB 
9890 
3E3F 
ECED 
DADB 



ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 
ERCX 



034 
035 
036 
037 

038 
039 
04 
041 
042 
043 
045 
046 
047 
048 
049 
050 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
067 
068 
069 
070 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
84 
085 
086 
C87 



040 CDANOT 



043 
ECOL 069 



CDANOT 



PFRBRK 



NOVAL 



ENPFR 



0RBIT2 

CHECK 

CHECK 

CHECK 

CHECK 

CHECK 

CHECK 

CHECK 

CHECK 



RDVDCK 



050 
048 



EXFR 118 

ERRQ 102 



021 
019 
056 
067 
020 
067 
067 
070 



021 



ATABLE A0DR=3G00 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

AEND 



PFRBRK 
GOCHAN 



043 PFRBRK 



ENPFR 
NOVAL 



COMBIN 
STINO 



ERDR 114 STACKR 



XLATE 

0RIN2 

0RB1T2 

CHECK 

0RIN1 

CHECK 

CHECK 

ROVOCK 



HO = GO 

RDH G AS, 0+0 

BR IF Gl BITO=0 

G1=G1*-K20 

BR IF PO BIT7=1 

BR 

V0=V0*K01 

BR IF AC=1 

P0^=P0$K01 

STB Ul DA, AC 

BR IF 01 BIT3=1 

BR IF PS BIT4=0 

Pi=Pl$K08 

RST RP K=08 

BR 

BAL 

STH G AS,D+0 

BR 

T1=T1$K02 

BR 

BR 

BR 

BR 

BR 

BR 

BR 



021 XLATE 



XLATE 

NATIVE 



BR IF Dl BlT3=i 
SET P K=08 
BR 

SET R K=08 
BR 
2540 READER TRANSLATE 



MOVE CMO BACK TO GO 

RESTORE CHNL STATUS 

BR IF NOT CDA 

OVER COUNT, SUPPRESS SLI 

BR IF WLR 

CDA 

INCREMENT WLR CTR 

WLR 

STORE RESIOUE CT 

BR IF NOT PFR 

PFR READ, BR IF NO VAL CHK(RU03i) 

VAL CHK,OR BIT IN SENSE 

RST PCH CMD INTERLOCK 

STORE INDICATOR AND SENSE 

STORE POSSIBLY MODIFIED SLI FLAG 

OR IN 2 BIT 

3 OR 7 BIT 
2 OR 6 BIT 

1 OR 5 BIT 



VALIDITY CHECK 

SET PFR VAL CHKIRU031) 

SET RDR VAL CHMRU023) 

TABLE 



XAUX* 40F1F2F3F4F5F6F7F0 
XAUX* D6D7D0A1A2A3A4A5A6 
XAUX 1 848586876A91929394 
XAUX* 323334353637E92122 
XAUX* A9E1626364656667C9 
XAUX* 4647995152 53545556 
XAUX* 7C7D7E7FE869E068 6C 
XAUX* AAABACADAEAFC8494A 
XAUX*98909A9B9C9D9E9FB8 
XAUX* 3E3F28292A2B2C2D2E 
XAUX* ECEDEEEF08090A0B0C 
XAUX* DADBDCDDDEDF7830FA 



61E2E3E4E5E6E760D1D2D3D4D5* 
A750C1C2C3C4C5C6C7C08 18283* 
95969770B132B3B4B5B6B7F931* 
232425262 7D91 112 131415161 7* 
0102 0304050607894142434445* 
5 7B9717273 74757677F8797A7B* 
6D6E6FD8595A5B5C5D5E5FA8A0* 
484C4D4E4F88808A8B8C8D8E8F* 
B0BABBBCBDBEBF38393A3B3C3D* 
2F18191A1B1C1D1E1F682 0EAEB* 
ODOEOF4800CACBCCCDCECF5810* 
FBFCFDFEFF* 



********************************** 

* CROSS REFERENCE FOR CSECT ERCX * 
********************************** 



ERCX 002 
ERCX Oil 
ERCX 016 
ERCX 018 



ERCX 027 
ERCX CC9 
ERCX 014 
ERCX 012 
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********************************** 

* CROSS REFERENCE FOR CSECT ERCX * 
********************** ************ 



ERCX 019 ERCX 058 

ERCX 020 ERCX 061 

EKCX 021 ERCX 017 ERCX 057 ERCX 069 ERCX 072 

ERCX 023 ERCX 03)0 

ERCX 025 ERDR 169 

ERCX 031 ERCX 026 ERDR 172 

ERCX 032 ERCX 024 ERDR 178 

ERCX 040 ERCX 036 

tRCX 043 ERCX C38 ERCX 041 

ERCX 048 ERCX 046 

ERCX 050 ERCX 045 

ERCX 056 ERCX 059 

ERCX 057 ERCX 010 ERCX 015 

ERCX 067 ERCX 018 ERCX 060 ERCX 062 ERCX 063 

ERCX 070 ERCX 067 



EROR DESCRIPTIVE TEXT 



ENTRY POINTS 
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NRDR ENTRY TO THIS LABEL IS FROM THE DCLB 

ROUTINE FOR A READER OR PUNCH START I/O, OR 
FOR A CHAINING OPERATION* A CHECK IS MADE 
FOR IPLt A NO THE AVAILABILITY OF THE READER 
OR THE PUNCH. 

AVANOI ENTRY IS MADE HERE FROM THE ERRQ ROUTINE 
WHEN THE 2540 IS FOUND NOT AVAILABLE. 
CONDITION CODE 3 IS SET, THE ACTIVE AND 
SECONDARY BITS ARE RESET AND THE DPTQ 
ROUTINE IS BRANCHED TO FOR A UCW STORE. 

STACKR ENTRY IS MADE HERE FROM THE ERCX ROUTINE 
TO SET STACKER SELECT BITS, SET NOT -READ, 
AND STORE INDICATOR AND SENSE BYTES. 

SSDONE ENTRY IS MADE TO THIS LABEL FROM THE ERRQ 
ROUTINE TO SET THE FEED INDICATOR, AND SET 
UP AND ISSUE A FEED COMMAND WITH STACKER 
^ SELECT. 



UEXPFR ENTRY IS FROM THE EPCH ROUTINE WHEN A 

PFR UNIT EXCEPTION IS DETECTED. SET UNIT 
EXCEPTION IN STATUS REGISTER AND RESET 
COMMAND INTERLOCK. IF IPL, GO TO THE ERRQ 
ROUTINE AND STOP. IF NOT IPL, GO TO THE 
DPTS ROUTINE TO STORE STATUS AND FLAGS IN 
THE UCW. 

CMDREJ ENTRY IS MADE HERE FROM THE EPCH ROUTINE 
WHEN AN INVALID COMMAND DECODE, OR AN 
INVALID COMMAND SEQUENCE IS DETECTED. 

BACK THE EPCH ROUTINE BRANCHES HERE TQ SETUP 
THE BEGINNING ADDRESSES OF THE COLUMN 
IMAGE BUFFER AND TRANSLATE TABLE MODULE. 

BRSKIP ENTRY HERE IS FROM THE EXFR ROUTINE AFTER 
THE PFR COLUMN BUFFER ADDRESS IS SETUP. 
IF THE SKIP FLAG IS ON, DO SKIP INDICATED. 
IF SKIP FLAG OFF, GO TO THE ERCX ROUTINE 
TO START TRANSLATE OF COLUMN IMAGE TO 
BYTE CHARACTERS FOR PROGRAM STORAGE. 



AUOR 



WORD SEQUENCE NO. 



LABEL 



ERDR 


001 


T 


ERDR 


002 


♦ 


ERDR 


003 


* 


ERDR 


004 


* 


ERDR 


005 


* 


ERDR 


006 


* 


ERDR 


007 


* 


ERDR 


008 


* 


ERDR 


009 


* 


EROR 


010 


# 


ERDR 


Oil 


♦ 


ERDR 


012 


♦ 


EROR 


013 


* 


ERDR 


014 


* 


ERDR 


015 


♦ 


EROR 


016 


* 


ERDR 


017 


* 


ERDR 


018 


* 


ERDR 


019 


* 



NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

NATIVE 2540 RDR OR PCH SIO OR CHAIN DECODE ROUTINE 



ENTRY TQ THIS ROUTINE IS MADE FROM DCLB TO LABEL NRDR OF THIS ROUTINE. 
THE REGISTERS CONTAIN THE FOLLOWING INFO 



COUNT U 

DATA ADDRESS V 

COMMAND BYTE GO 

FLAG Gl 



NATIVE 2540 READER UCW FORMAT! AUX STORAGE) 
0008 OODA OODC OODE 



* * * 

* CANNEL ^CHANNEL *UNIT 



*NOT 



* * 

* RESIDUAL * NEXT CCW 



* 



AD OR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLA8EL STATEMENT 
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COMMENTS 



1812 
181* 
1816 
1818 
18 1A 
181C 
181E 
1820 
1822 
1824 
1826 
1828 
182A 
182C 
182E 
1830 
1832 
1834 
1836 
1838 



54E9 
C4A0 
5EB2 
5069 
A 044 
3C85 
9 30E 
C3AE 
F72C 
24C6 
CEAC 
3D23 
DDAF 
<5EE0 
80C0 
A044 
CEBO 
9258 
2C75 
4452 



ERDR 
EROR 
EROR 
EROR 
ERDR 
EROR 
EROR 
ERDR 
EROR 
EROR 
EROR 
ERDR 
EROR 
EROR 
ERDR 
ERDR 
EROR 
EROR 
ERDR 
EROR 
ERDR 
ERDR 
EROR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
EROR 
ERDR 
ERDR 
ERDR 
EROR 
ERDR 
EROR 
ERDR 
ERDR 
ERDR 
EROR 
ERDR 
EROR 
EROR 
EROR 
ERDR 
EROR 
EROR 
EROR 
ERDR 
EROR 
ERDR 
ERDR 
fcRDR 
EROR 



020 
021 
022 
023 
024 
025 
026 
027 
02 8 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 



* 
* 
* 

* 
* 
* 
* 

* 

* 

* 

* 
* 

* 

* 

* 

* 
* 

■♦■■■' 
* 

ASEQ AL07=12 

NRDR 



NOTCOA 



GCSTOP 
NOTIPL 



AVANOT 



EPCH 057 
067 
066 



067 

ERRQ 048 
CCOM 056 
ERRQ 092 
074 
CCOM 066 



* STATUS* FLAGS 

* — ■ 



* STATUS * USED * 

* * * 



COUNT 



ADORE SS 



CH STAT-D8 
0-SECONDARY 
l-WLR 

2-FROG CHK 
3-PROT CHK 
4-NOT USED 
5 -NOT USED 
6-INTFCE CK 
7-1 NT IN BFR 



CH FLAGS-09 
O-CHAIN DATA 
i-CHAIN CMO 
2-SLi 
3-SKIP 
4-PCI 
5-ACTIVE 
6-NOT USED 
7-NOT USED 



* UNIT STAT-DA 

* 0-NOT USED 

* 1-NOT USED 

* 2-NOT USED 

* 3-BUSY 

* 4-CH ENO 

* 5-DEV END 

* 6-UNIT CHK 

* 7-UNIT EXCEPT 



******************************** 

* INDICATORS AND SENSE BYTE * 
******************************** 

* INDICATORS * SENSE * 

* AUX STORAGE * AUX STORAGE * 

* ADDRESS * ADDRESS * 

* 10F0 * 10F1 * 



* O-CHAIN DATA 

* 1-STACKER SEL 

* 2-STACKER SEL 

* 3-0 

* A-READ 

* 5-CQUNT STORED 

* 6-FEED 

* 7-WLR 

* ■ . 



* 0- CMD REJECT * 

* 1- NOT READY * 

* 2- NOT USED *. 

* 3- EQUIP CHK * 

* 4-VALIOITY CHK * 

* 5- NOT USED * 

* 6-UNUSUAL CMD * 

* 7- NOT USED * 
. — ~ — . — * 



060 NOTCOA 



ERRQ 092 RDIND 



HIGHCT 
NOTIPL 
GOSTOP 



066 GOSTOP 



NOTIPL 

STOP 

LSAVE 

RDIND 

AVABLE 

LRSTRB 



H0=G0 MO 

BR IF ZNZ BR 

RDH H DAtAE CD 

D0=P1 RE 

BAL RE 

P0=P0$K80 SE 

BR GO 

BR IF BA BIT*=0 BR 

BR IF 01 BIT3=0 BR 

SET MODE K=30 SE 

BR IF RPS BITO^O BR 

Pl=Pi$K02 SE 

BR IF RS BITi=l BR 
BR **IPL NOT AVAIL ABL 

BAL SI 

BAL PO 

BR IF RPS BlTO^l BR 

BAL RE 

P0=0$K70 NO 

RDH G DC,9A G= 



VE CMD INTO HO 

IF NOT DATA CHAIN 
A f RESTORE OLD CMD INTO HO 
STORE WLR CTR 

AD INDICATORS £ SENSE INTO P 
T CDA INDICATOR 

TO ADJUST HIGH COUNT 

IF NOT I PL 

IF IPL FROM PUNCH 
T READER MODE 

IF Q?F LINECSX041) 
T WAIT BIT FOR IPL CLUfCHING 

IF RDR READY* SX041) 
E OR NOT READY#dR IPL FROM PtH 
OR CCi SAVE Ut Gt I t ? 
^INDICATORS, Pl^SENSE 

IF ON LINEISX041I 
STORE P AND I 

T AVAILABLE* SET CONG- CODE 3 
COOO, R ST ACTIVE f SECONDARY 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEI 


L STATEMENT 


183A 


9D54 


ERDK 


073 




DPTQ 


020 


STINST 


BR 


183C 


5460 


ERDR 


074 


AVABLE 








RDH G ASt D+0 


18 36 


F747 


ERDR 


075 






079 


RDR1 


BR IF Dl BIT3=1 


1840 


2D80 


ERDR 


076 










SET RP K=08 


1342 


0F30 


ERDR 


077 










RST P K = 03 


1844 


984A 


ERDR 


078 






081 


H10A 


BR 


1846 


2004 


ERDR 


079 


RDR1 








SET RP K=20 


1848 


0B30 


ERDR 


080 










RST R K=03 


184A 


2FA3 


ERDR 


081 


H10A 








H1=0$K0A 


184C 


0E3B 


ERDR 


082 










Z=H0QK03 


184E 


C4CC 


ERDR 


083 






090 


ENNOOP 


BR IF IHl 


1850 


F758 


ERDR 


084 






088 


PCH1 


BR IF Dl BIT3=0 


18 52 


DDOA 


ERDR 


085 






089 


NOTRDY 


BR IF RS EIT 1=0 


1854 


B16A 


ERDR 


086 


RDYNOP 


ERRQ 


110 


GUESS 


8AL 


1656 


861C 


ERDR 


087 




OPTC 


021 


NOOP 


BR 


1858 


CFD5 


ERDR 


088 


PCH1 




086 


RDYNOP 


BR IF PS BIT0=1 


185A 


9 8B6 


ERDR 


089 


NO TROY 




139 


UNITCK 


BR 


18 5C 


0E4B 


ERDR 


C90 


ENNOOP 








Z=H0nK04 


ld5fc 


F76F 


ERDR 


91 






099 


RDR2 


BR IF Dl BIT3=l 


18 60 


F0E9 


ERDR 


092 






096 


PCHSNS 


BR IF LZ=0 


1862 


2DC7 


ERDR 


093 










P1=0 


1864 


CFDA 


ERDR 


094 






089 


NOTRDY 


BR IF PS BiTO=0 


1866 


92D4 


ERDR 


095 




EPCH 


010 


NPCH 


BR 


1868 


CFF3 


ERDR 


096 


PCHSNS 




101 


SNSRDY 


BR IF PS BIT0=1 


186A 


3045 


ERDR 


097 


SNSNRY 








P1=P1$K40 


186C 


9674 


ERDR 


098 






102 


JOIN 


BR 


186E 


FOFA 


ERDR 


099 


RDR2 




105 


NOTSNS 


BR IF LZNZ 


1870 


DOE A 


ERDR 


100 






097 


SNSNRY 


BR IF RS BIT 1=0 


1872 


1D45 


ERDR 


101 


SNSRDY 








P1=P1*-K40 


1874 


B16A 


ERDR 


102 


JOIN 


ERRQ 


110 


GUESS 


BAL 


1876 


3623 


ERDR 


103 










D0=DG$K02 


18 78 


A4E8 


ERDR 


104 




DYPE 


165 


GOCAL 


BR 


187A 


2DC7 


ERDR 


105 


NOTSNS 








P1=0 


187C 


DDDA 


ERDR 


106 






089 


NOTRDY 


BR IF RS BIT 1=0 


lb/E 


1B0G 


ERDR 


107 










RST R K=80 


1880 


6CF7 


ERDR 


108 










P0=P0*H1 


1882 


EA34 


ERDR 


109 






138 


CMOREJ 


BR IF HO BIT6=0 


16 84 


FA26 


ERDR 


110 






127 


ROORRF 


BR IF HO BIT 7=0 


1886 


EE34 


ERDR 


111 






138 


CMDREJ 


BR IF HO BIT 2=0 


1888 


E835 


ERDR 


112 






138 


CMDREJ 


BR IF PO BIT6=1 


188A 


76F2 


ERDR 


113 










STH D DA, BE 


188C 


CE1A 


ERDR 


114 


STACKR 




121 


SS10R2 


BR IF HO BITO=0 


188E 


DE18 


ERDR 


115 






120 


RP3 


BR IF HO BIT 1=0 


1890 


FA35 


ERDR 


116 






138 


CMDREJ 


BR IF HO BIT7=1 


1892 


CDC4 


ERDR 


117 










RST RP K=20 


1.8 94 


A078- 


ERDR 


118 




ERRQ 


083 


RDCHST 


BAL 


1896 


910A 


ERDR 


119 




EXFR 


114 


CHKCHK 


BR 


1898 


3C45 


ERDR 


120 


RP3 








P0=P0$K40 


189A 


DE1E 


ERDR 


121 


SS10R2 




123 


SSDCNE 


BR IF HO BIT 1=0 


189C 


3C25 


ERDR 


122 










P0=P0$K20 


189E 


1C83 


ERDR 


123 


SSOQNE 








P0=P0*-K08 


18A0 


3C2 3 


ERDR 


124 










P0=P0$K02 


18A2 


8964 


ERDR 


125 




ERRQ 


102 


STIND 


BAL 



CL0AD=*E60, EC LEVEL=l282 1l 

COMMENTS 

STORE UCW £ GO TO BSWI 

RDXH.ST. SO LATER CAN STORE UCW 

BR IF RDR 

SEI PCH CMD INLK(RU031) 

RST PCH REQUEST IF HWDECRU015) 

SET RDR CMD INLK(RU02ll 

RST RDR REQUEST IF HWDEIRU015) 

SET HI TO LATER RST INDICATORS 

MASK FOR NO OP 

BR IF NOT NO OP 

NO OP, BR IF PCH 

BR IF RDR NOT READY! SX041) 

RSI CMD INTERLOCK 

SHARE 1403 NO OP ROUTINE 

BR IF PCH READYC SX041) 

NOT READY 

MASK FOR SENSE CMD 

BR IF RDR 

BR IF PCH SENSE CMD 

NOT SENSE CMD, ZERO OUT SENSE 

BR IF PCH NOT READY(SX041) 

GO TO PCH CMD DECODE 

BR IF PCH READY! SX041) 

SENSE CMD, NOT READY 

BR IF NOT SENSE CMD 

RDR SNS CMD, BR IF NOT RDYCSX041) 

SENSE CMD, READY 

RST CMD INTERLOCK 

SET 6 BIT FOR 1403 TO BR ON 

GO TO PICK UP Hi=Pl WORD 

RDR. NOT SNS CMD, ZERO OUT SNS 

3R IF NOT RDYtSX04i) 

RST RD & VAL CHMRU023) 

RST ALL IND. EXCEPT FD IND. 

BR IF NO 6 BIT - CMD REJECT 

BR IF RD OR RD-FD 

CMC REJ IF NO 2 BIT 

FEED CMD, BR IF DOUBLE fD 

FD ONLY, IMMEDIATE CMD, SAVE DOT 

BR IF STKR SEL 1 OR 2 

BR IF RP3 

BR IF NOT RD, CMD REJECT 

RST RDR CMD INLK(RU021) 

RESTORE CH. STATUS AND FLAGS 

RD NO FD, FROM ERCX, NOT PFR 

STKR SELECT RP3 

BR IF Rl OR RP3 

STKR SELECT R2 

RST READ INDICATOR 

SET FEED INDICATOR 

STORE INDICATORS t SENSE 



PAGE 225 



A DDR 


WORO 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


18A4 


9C03 


ERDR 


126 






180 


SETSKR N 


N=PO BITS 123 


18A6 


DA 3 5 


EROR 


12 7 


RDORRF 




138 


CMDREJ 


BR IF HO BIT 5=1 


18A8 


EDAF 


ERDR 


128 






131 


UNITEX 


BR IF RS BIT2=1 


18AA 


2B40 


ERDR 


129 










SET R K=04 


18AC 


9304 


ERDR 


130 




EPCH 


052 


PICKUP 


BR **S! 


IBAE 


3D 00 


ERDR 


131 


UNITEX 








SET RP K=80 


18 BO 


2E13. 


ERDR 


133 


UEXPFR 








H0=0$K01 


18B2 


9 8B8 


ERDR 


137 






140 


GOSTIN 


BR 


18B4 


2085} 


ERDR 


138 


CMDREJ 








P1=0$K80 


18B6 


2E23 


ERDR 


139 


UN1TCK 








H0=0$K02 


18B8 


6964 


ERDR 


140 


GOSTIN 


ERRQ 


102 


STIND 


BAL 


18BA 


B16A 


ERDR 


141 




ERRQ 


110 


GUESS 


BAL 


18BC 


2AC7 


ERDR 


142 










T0=0 


18BE 


C3C2 


ERDR 


143 






145 


IPLNOT 


BR IF BA BIT4=0 


18C0 


9EE0 


ERDR 


144 




ERRQ 


048 


STOP 


BR 


18C2 


90 3C 


ERDR 


145 


IPLNOT 


DPTS 


066 


PCENTR 


BR 


18C4 


CC5D 


ERDR 


146 


BACK 




162 


MOVEGP 


BR IF PO BIT0=1 


18C6 


F753 


ERDR 


148 






154 


ENPFR 


BR IF Dl BIT 3=1 


18C8 


2445 


ERDR 


149 










G0=0$K40 


18CA 


2513 


ERDR 


150 










G1=0$K01 


18CC 


40A6 


ERDR 


151 










U=T 


18CE 


3 IBB 


ERDR 


152 










U1=U1-K0B **U^ 


18DO 


905A 


ERDR 


153 




EXFR 


012 


BYTECT 


BR 


18D2 


EE56 


ERDR 


154 


ENPFR 




159 


NOTCOL 


BR IF HO BIT2«0 


18 04 


36A9 


ERDR 


158 










DO=0-KAO 


1806 


2655 


ERDR 


159 


NQTCOL 








£0=0$K50 


18 08 


2915 


ERDR 


160 










M=0$K10 


180A 


3983 


ERDR 


161 










!1=I1$K08 


18DC 


5E49 


ERDR 


162 


MOVEOP 








GO=HO 


18DE 


F565 


ERDR 


164 


BRSKIP 




170 


SKIP 


BR IF Gl BIT3=i 


18E0 


2A35 


ERDR 


168 










T0=0$K30 


18E2 


9BE6 


ERDR 


169 




ERCX 


025 


START 


BR **G0 TO Ri 


18E4 


26 IB 


ERDR 


170 


SKIP 








00=D0+K01 


18E6 


F4EA 


ERDR 


171 






173 


I A 001 


BR IF AC=0 


18E8 


9BB6 


ERDR 


172 




ERCX 


031 


WLRSET 


BR 


18EA 


5884 


ERDR 


173 


IA0D1 








1=1 + 1 


18EC 


E471 


ERDR 


174 






176 


CTADD1 


BR IF GO BIT2=1 


18EE 


5884 


ERDR 


175 










1 = 1 + 1 


18F0 


2 IFF 


ERDR 


176 


CTADD1 








Ul=Ul*KFF 


18F2 


C4E4 


ERDR 


177 






170 


SKIP 


BR IF ZNZ 


18F4 


9BB8 


ERDR 
ERDR 


178 
179 


AEND 


ERCX 


032 


COFLG 


BR 


1900 


2BC8 


ERDR 


180 


SETSKR 








SET R K=40 


1902 


9050 


ERDR 


181 




EXFR 


007 


XFER 


BR 


1904 


'2BCC 


ERDR 


182 


SETSKR 2 








SET R K=60 


1906 


9050 


ERDR 


183 




EXFR 


007 


XFER 


BR 


1908 


2B0A 


ERDR 


184 


SETSKR 4 








SET R K=50 


190A 


VC50 


ERDR 


185 




EXFR 


007 


XFER 


BR 



CL0A0=*E60, EC LEVEL=1282U 

COMMENTS 

ISSUE FD CMO & STKR SELECT 
CMO REJECT IF 5-6 COMBINATION 
BR IF UNIT EXCEPTION! SX042) 
RD OR RD-FD CMO f SENSE SET(RU019) 
♦♦SHARE UNUSUAL CMD SEQ BR £ COUNT ADJUST 
RST EOF LITECRU023) 
UNIT EXCEPTION IN UNIT STAT 

CMO REJ IN SENSE 

UNIT CK IN UNIT STAT OF CSW 

STORE -P - INDt £ SENSE 

RST CMD INTERLOCK 

RST TO IN CASE OF CDA FLAG ON 

BR IF NOT I PL 

IPL CMD REJ OR UNIT EXCEPTION 

PICKED UP. CDA £ PFR RDtBR IF CDA 
STO OR CC, BR IF NOT PFR-RD 
PFR-RO SIO OR CC 
G=400l TO PFR COL BUFR 
U=10F2 
**U=10E6 FOR LAST 10 BYTES IN IMAGE BUFR 
PFR-RD. XFER FIRST £ THEN RO 
BR IF NOT COL BIN 
COL BIN* WLR CTR=5F 



1=5018, COL FORM BUFR ADDR 
MOVE CMO TO GO FOR ERCX ROUTINE 
BR IF SKIP FLAG ON 
XLATE TABLE AOOR 
TO RO, COL OR NORMAL, OR PFR. SIO,CC ,0R CDA 
WLR CTR + 1 
BR IF NO OVER CT 
SKIPPED TOO MANY, WLR 
ADO 1 TO COL BUFR AOOR 
BR IF COL BIN 

TWO BYTES OF COL FORM PER BYTE 
ADJUSTED CCW CT LESS 1 
BR IF NOT DONE SKIPPING 
FINISH SKIPPING 
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PKT 


RKRU021) 




GO 


TO XFER ROW 


FORM 


PKT 


R2IRU021 £ 


023) 


PKT 


RP3CRU021 £ 023 



TO COL BUFR 
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************* ******** ************* 

* CROSS REFERENCE FOR CSECT EROR * 
********************************** 



ERDR 


053 


OCLB 


211 


DCLB 


212 




£RDR 


060 


ERDR 


054 








tRDR 


066 


EROR 


061 


ERDR 


063 




ERDR 


067 


ERDR 


060 


ERDR 


065 




ERDR 


071 


ERRQ 


0C7 








EkDR 


074 


ERDR 


0t9 








ERDR 


079 


ERDR 


075 








ERUR 


081 


ERDR 


078 








ERDR 


086 


EROR 


088 








tRDR 


088 


ERDR 


064 








EROR 


089 


ERDR 


085 


ERDR 


094 EROR 106 




EkOR 


090 


ERDR 


0E3 








tRDR 


096 


ERDR 


92 








EkOR 


097 


ERDR 


ICO 








tRDR 


099 


ERDR 


091 








tRDR 


101 


ERDR 


096 








tRDR 


102 


ERDR 


0S8 








ERDR 


105 


ERDR 


099 








ERDR 


114 


ERCX 


055 








ERDR 


120 


ERDR 


115 








EROR 


12.1 


ERDR 


114 








ERDR 


123 


ERDR 


121 


ERRQ 


069 




ERDR 


127 


ERDR 


110 








tRDR 


131 


ERDR 


128 








ERDR 


133 


EPCH 


050 








EROR 


138 


EPCH 


032 


ERDR 


109 ERDR 111 EROR 112 ERDR 116 


tRDR 


139 


ERDR 


089 








ERDR 


140 


ERDR 


137 








ERDR 


145 


ERDR 


143 








EROR 


146 


EPCH 


071 








ERDR 


154 


ERDR 


148 








EkOR 


159 


ERDR 


154 








ERDR 


162 


ERDR 


146 








ERDR 


164 


EXFR 


099 








EROR 


170 


ERDR 


164 


ERDR 


177 




EROR 


173 


ERDR 


171 








EROR 


176 


ERDR 


174 








tRDR 


180 


ERDR 


126 









ERDR 127 



ERRQ DESCRIPTIVE TEXT 
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ENTRY POINJS 

REOUC ENTRY IS FROM THE DCLA ROUTINE WHEN A 
START I/O OR TEST I/O IS DECODED (FOR 
READER OR PUNCH), AND DEVICE END HAS BEEN 
CLEARED. 

PCHST ENTRY IS FROM THE BSWI ROUTINE WHEN A 
PUNCH STATUS REQUEST HAS BEEN DETECTED. 
READOUT THE UCW BYTES INTO LOCAL STORAGE, 
RESET READER STATUS AND DEVICE END. 

RDST ENTRY IS FROM THE BSWI ROUTINE WHEN A 
READER STATUS REQUEST HAS BEEN DETECTED. 
READOUT THE UCW BYTES INTO LOCAL STORAGE, 
RESET READER STATUS AND DEVICE END. 



STOP 



RDCONT 

RDCHST 

RPHUCW 

RDINO 

STIND 

GUESS 



ENTRY IS FROM THE DCLR ROUTINE WHEN A 
CHANNEL ERROR IS DETECTED DURING AN I PL. 
ENTRY IS FROM THE ERDR ROUTINE WHEN THE 
2540 IS NOT AVAILABLE FOR IP1, NOT READY, 
IPL FROM PUNCH ATTEMPTED, IPL COMMAND 
REJECT, OR A UNIT EXCEPTION DETECTED. 



THESE ARE COMMON ENTRY POINTS BRANCHED 
TO BY BRANCH AND LINK WORDS TO PERFORM 
SOME OF THE BASIC FUNCTIONS FOR THE 2540. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 



lfcAA 
iEAC 
1EAE 
1FB0 
1EB2 
1GB4 
1EB6 
1EB8 
1E92 
1E94 
1E96 

UEA 
1EEC 
IEEE 
1EF0 
1EF2 
IEF4 
itF6 
1EF8 
1EFA 
UFC 
1EFE 
1F00 
1F02 



AC6E 
2623 
CEB3 
9836 
F712 
C43D 
DD96 
B362 
C46D 
CFB9 
6954 

A062 
DB98 
OF 10 
C446 
FFC8 
8 DC 4 
2D15 
5CCD 
6964 
7CA0- 
1545 
3E23 
9EC8 



ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERR^ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 



001 
002 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 



2540 REQUEST 6 TEST I/O ROUTINE 



REDUC 



AVABLE 



RDY 
PCH1 

NOTRDY 

PCHST 
PICKUP 



077 RDUCW 



008 

ERDR 071 

012 

030 

014 

CCOM 154 

017 

Oil 

DPTT 013 

087 
054 

035 
036 

CCOM 058 



AVABLE 

AVANOT 

PCH1 

PCKUPD 

NOTRDY 

CCOB 

PICKUP 

RDY 

UCENT 

2540 
RPHUCW 
NODE 

SETSEC 

CCBR 

LSAVE8 



102 STIND 



036 CCBR 



BAL 
00= 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
REQU 
BAL 
BR 
RST 
BR 
BR 
BAL 
Pl = 
P0= 
BAL 
STH 
Gi = 
H0= 
BR 



D0SK02 

IF RPS BIT0=1 

IF Dl BIT 3=0 
IF GO BIT0=1 

IF RS BIT 1=0 

IF GO BIT0=1 
IF PS BIT0=1 



READ CH.STAT, FLAGS, € UNIT STAT 
SET DO 6 BIT TO BE BR ON LATER 
BR IF AVABLE! SX041 ) 
NOT AVAILABLE 
BR IF PCH 

IF SECONDARY ON, RDR 

IF RDR NOT RDYI SX041 } 

TO SET COND. CODE 

IF SECONDARY ON, PCH 

IF PCH RDY( SX041) 



BR 
BR 
BR 
BR 
BR 
NOT 



READY 



EST 

**PCH REQ. RD CH. ST, FLAG, UNIT STAT f CT 
IF PS BIT 5=0 BR IF NO PCH HWDEISX043) 

P K=01 RST PCH HWDEIRU015) 

IF GO BITO=0 BR IF NOT-READY TO READY 

IF PS BIT3=0 BR IF NO PCH CHK CSX042T 

PCH CK, SAVE P, I 
0$K10 EQUIPMENT CK IN SENSE 

POL RETAIN PFR RD t PFR WR INDICATOR 

STORE INDICATORS £ SENSE 
P AS,T*0 STORE FORCED STKR SEL IN 10F2 

Gl*-K40 BREAK CC 

H0$K02 UNIT CK, D£ IN UNIT STAT 



ADDR 

1EBA 
IEBC 
1EBE 
1EC0 
1EC2 
lfcC4 
IEC6 
1EC8 
16CA 
1ECC 
LEGE 
1EDU 
itD2 
1ED4 
1ED6 
1E08 
1EOA 
IE DC 
iEOE 
IlEO 
1EE2 
LEE4 
1EE6 
1EE8 
1E84 
1E98 
1E9A 

1E9C 
1E9E 
1EAO 
1EA2 
1EA4 
1EA6 
1EA8 
IE86 
1E88 
1E8A 
1E8C 
1E8E 
1E90 



206A 
206C 
206E 
2070 
2072 
2074 
2076 
2078 
207A 



hORD SEQUENCE NO. 



A06A 
2466 
E607 
24C6 
D998 
OBiO 
3485 
BliA 
D54E 
9D44 
3E43 
E263 
F728 
C3A8 
D461 
EA61 
4452 
A568 
8776 
50C7 
2AG7 
B11A 
0104 
895E 
8924 
E263 
C3C9 

C424 
D129 
CA25 
DA29 
3423 
15C5 
9052 
2406 
0B30 
8DC4 
A044 
2004 
989E 



464 2 
3715 
F766 
24C6 
3743 
5060 
174 3 
5468 
5E6A 



ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 
ERRQ 



029 

03 
031 
032 
033 
034 
035 
036 
037 
03 8 
03 9 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
071 
072 
073 
075 
076 
077 
078 
080 
081 
082 
083 
084 



LABEL 

ROST 
PCKUPD 



SETSEC 

CCBR 



NOCC 



STOP 
TIO 



NO ACT 

NODE 



INTFCK 

GOINT 
CPUXFR 



RROUCW 

RDUCW 

RDCONT 

ROCHST 



NEXTSEQ 
075 
064 
054 



DCOM 016 

039 

OPTQ 036 

049 
063 
063 
048 
048 

DCOM 049 
DCLL 036 



DCOM 016 

053 

DPTT 023 

DPTT 049 

049 

036 

061 
063 
061 

063 



NEXTLABEL STATEMENT 



CCOM 058 
092 



RROUCW 
CPUXFR 
NODE 



RSTREQ 

NOCC 

CHAIOK 

TIO 

GOINT 

GOINT 

STOP 

STOP 

REDSTR 
PICKUP 



RSTREQ 

NOACT 

RESTES 

SHARE 

TIO 

CCBR 

INT 
INTFCK 
GOINT 
INTFCK 
GOINT 



BAL 

SET MODE K=36 
BR IF 00 BIT2=1 
SET MODE K=30 
BR IF RS BIT5=0 
RST R K=0 1 
G0=G0$K80 **SET 
BAL 

BR IF Gl BIT 1=0 
BR 

HO=HO$K04 
BR IF DO BIT6=l 
BR IF 01 BIT 3=0 
BR IF 8A BIT4^0 
BR IF GO BIT1=1 
BR IF HO BIT6=1 
DC, 9A 



CLOAD=*E60, EC LEVEL=1282U 
COMMENTS 

**RDR REQ. RD CH. ST, FLAG ,UNI T STAT, CT 
RDR MODE, 2540 ZONE 
BR IF RUN-IN CPU XFER 
SET BACK FIRST TO RDR MODE 
BR IF NO RDR HW0EISX043) 
RST RDR HWOE 
SECONDARY IN CASE OF QUE HWDE-READY 
RST RDR OR PCH REQUEST 
BR IF NO CMD CHAIN 
GO TO CHAIN 
DE IN UNIT STAT 
BR IF FROM TIO OR SIO 
BR IF PCH 
BR IF NOT IPL 
IPLt BR IF WLR IN CH. STAT 
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DPTQ 019 TAKEIN 



LSAVEB 
RDIND 



EROR 123 SSDONE 



089 PHUCW 



ROH G 
BAL 
BR 

STOP 
T0=0 
BAL 

BR IF Gl BIT 5=0 
BR 
BR 

BR IF DO BIT6=l 
BR IF BA BIT 4=1 
ERFACE CHECK OR UNQUEUEO 
BR IF GO BIT0=O 
BR IF Gl BIT5=l 
BR IF HO BIT4=1 
BR IF HO BIT5=1 
G0=GO$KO2 
Gl=Gl*-KCO 
BR 

SET MODE K=30 
RST R K=03 
BAL 
BAL 

SET RP K=20 
BR 



BR IF UNIT CHECK 

G=C0O0, RST ACTIVE, SECONOARY 

STORE UCW 

IPL DONE 

NATIVE 2540 IPL STOP 

RST TO 

RST READER, PCH REQUEST 

BR IF NO ACTIVE BIT 

TIO OR SIO, ACT,SEC=11 

TIO, ACT,SEC = Ol 

BR IF TIO OR SIO 

BR IF IPL 



IF 
IF 



NO SECONDARY 
ACTIVE 

BR IF NO 



BR 

BR 

NOT ACTIVE, BR IF NO CHE 

BR IF DE 

INTERFACE CK IN CHNL STAT 

BREAK CHAIN 

GO FOR IB, STORE UCW, GO BSWI 

RDR MODE, CPU ZONE 

RST RDR REQUEST £ HWDEIRU015) 

SAVE P, I 

READ INDICATORS & SENSE 

SET READ COMMAND INTLK 

GO TO XFER BUFR 



BRANCH ANO LINK ROUTINES 



RDH D DC, 98 
D1=D1$K10 
BR IF 013=0 
SET MODE K=30 
Dl=Dl$K04 
RDH U ASfD+O 
0i=Dl*-K04 
RDH G AS, 0*2 
RDH H AS,D-2 



READ CONSTANT OF 00C8 
D=00D8 
BR IF PUNCH 
SET READER MODE 
D=CXXC 

READ COUNT INTO U 
D=0XX8 
READ CHAN STAT FLAGS 
READ UNIT STAT 



AODR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


207C 


128E 


ERRQ 


085 








RTN 


2062 


4642 


ERRQ 


087 


RPHUCW 






RDH D 0€t98 


2064 


3725 


ERRQ 


088 








0l'»DUK2O 


2066 


2402 


ERRQ 


C89 


PHUCW 






SET MODE K=10 


2068 


C4F2 


ERRQ 
ERRQ 


090 
091 




080 


RDCONT 


BR IF ZNZ 


2044 


2A15 


ERKQ 


092 


RDIND 






T0=0$K10 


2046 


F75C 


ERRQ 


093 




098 


RPHINO 


BR IF 01 BIT3=Q 


2048 


2406 


ERRQ 


094 








SET MODE K=30 


204A 


2BF3 


ERRQ 


095 








Tl^OSKFO 


204C 


5CAA 


ERRQ 


096 


READ 






RDH P AS,T-2 


204E 


128E 


ERRQ 


097 








RTN 


2050 


24C2 


ERRQ 


098 


RPHINO 






SET MODE K=10 


2052 


2B81 


ERRQ 


099 








T1=0-K0B 


2054 


C4CC 


ERRQ 
ERRQ 


100 
101 




096 


READ 


BR IF ZNZ 


0964 


2A15 


ERRQ 


102 


STIND 






TO^OSKIO 


0966 


F76E 


ERRQ 


103 




107 


SPHINO 


BR IF 01 BIT3=G 


0968 


2BF5 


ERKQ 


104 








T1=0$KF0 


Q96A 


7CAA 


ERRQ 


105 


STORE 






STH P AS,T-2 


096C 


128E 


ERRQ 


106 








RTN 


09 6E 


2BB1 


ERRQ 


107 


SPHIND 






T1=0~K0B 


09 70 


C4EA 


ERRQ 
ERRQ 


108 
109 




105 


STORE 


BR IF ZNZ 


316A 


F772 


ERRQ 


110 


GUESS 


114 


PCH2 


BR IF Di BIT 3=0 


316C 


D271 


ERRQ 


111 




113 


RETUN 


BR IF DO BITS^l 


316E 


0004 


ERRQ 


112 








RST RP K=20 


3170 


128E 


ERRQ 


113 


RE TUN 






RTN 


3172 


CD80 


ERRQ 


114 


PCH2 






RST RP K=08 


3174 


128E 


ERRQ 


115 








RTN 



CLOAD=*E60, EC LEVEL=1282 1l 
COMMENTS 



READ CONSTANT OF 00C8 
0-00E8 
SET PUNCH MODE 



BR IF PCH 

ROR MODE 

T^IOFO 

PO=INDICATORS, Pl^SENSE 
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PCH MODE 
T=10F4 
UNCONDITIONAL BR 



BR IF PH 

T=10F0 

STORE INDICATORS L SENSE 

T= 10F4 
UNCONDITIONAL BR 

BR IF PCH 

BR IF FEED ONLY 

RST RDR CMD INLKIRU021) 

RST PCH CMD INLKIRU031) 



**********4^** ******** ************ 
* CROSS REFERENCE FOR CSECT ERRQ * 

********************************** 



ERRQ 


004 


DC LA 


305 


DCLA 


306 






ERRQ 


008 


ERRQ 


0C6 










ERRQ 


Oil 


ERRQ 


013 










ERRQ 


012 


ERRQ 


0C8 










fcKRQ 


014 


ERRQ 


010 










ERRQ 


016 


BSWI 


059 










ERRQ 


017 


ERRQ 


012 










ERRQ 


029 


BSfcl 


056 










ERRQ 


030 


ERRQ 


0C9 










ERRQ 


035 


ERRQ 


019 










ERRQ 


036 


ERRQ 


020 


ERRQ 


02 8 


ERRQ 


055 


ERRQ 


039 


ERRQ 


037 










ERRQ 


048 


DCLR 


034 


ERDR 


066 


ERDR 


144 ERRQ 043 


ERRQ 


049 


ERRQ 


040 


ERRQ 


054 






ERRQ 


053 


ERRQ 


051 










ERRQ 


054 


ERRQ 


017 


ERRQ 


03 3 






ERRQ 


061 


ERRQ 


057 


ERRQ 


059 






ERRQ 


063 


ERRQ 


041 


ERRQ 


042 


ERRQ 


058 ERRQ 060 


ERRQ 


064 


ERRQ 


031 










EKRQ 


075 


ERRQ 


029 


EXFR 


109 
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********************************** 

* CROSS REFERENCE FOR CSECT ERRQ * 
********************************** 



EROR 118 



ERRQ 


077 


ERRQ 


0C4 






















lRRQ 


080 


DPTQ 


007 


ERRQ 


090 


















ERRQ 


083 


DCLA 


215 


OCLR 


028 


OPTS 


047 


DPTT 


007 


DY PE 


19 7 


DYPE 


210 


ERRQ 


087 


BKRP 


090 


ECOL 


064 


ERRQ 


016 


BXfR 


092 










ERRQ 


089 


ERRQ 


077 






















ERRQ 


092 


ECOL 


065 


ERDR 


057 


EROR 


068 


ERRQ 


067 


EXFR 


094 


EXFR 


110 


ERRQ 


096 


ERRQ 


100 






















ERRQ 


098 


ERRQ 


093 






















ERRQ 


102 


EPCH 


067 


ERCX 


050 


ERDR 


125 


ERDR 


140 


ERRQ 


024 


EXFR 


126 


ERRQ 


105 


ERRQ 


1C8 






















ERRQ 


107 


ERRQ 


1C3 






















ERRQ 


110 


OCLR 


038 


EROR 


086 


EROR 


102 


EROR 


141 










ERRQ 


113 


ERRQ 


111 






















ERRQ 


114 


ERRQ 


110 























ETRP DESCRIPTIVE TEXT 



ENTRY POINTS 
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THIS IS THE ASSIGNED TRAP ADDRESS THAT IS 
FORCED INTO THE SAR WHEN A 2540 PUNCH TRAP 
IS ALLOWED. DIAGRAM 5-115 IN THE FEMDM 
SHOWS THE READER TRAP HANDLING. 



(OilOl THIS IS THE ASSIGNED TRAP ADDRESS THAT IS INLK ENTRY IS MADE HERE FROM THE BMCK ROUTINE, 

A MACHINE CHECK HAS BEEN DETECTED DURING 
A PUNCH TRAP, THE BMCK ROUTINE HAD BEEN 
TRAPPED TO, THE MMSK AND BA EXTERNALS HAVE 
BEEN SAVED AND THE LOGOUT LATCH HAS BEEN 
SET. THE OBJECT OF THIS ENTRY IS TO RESET 
COMMAND INTERLOCK AND RETURN TO THE 
MICROROUTINE TRAPPED FROM. 
*********************************** ***********^ 

* 

* 
* 
* 

* 
* 

50F7 50F8 50F9 50FA 50FB 50FC 50FD 50FE 50FF * 



* 
* 
* 
* 

* 
* 
* 

* 

* 
* 

* 

* 

* 

* 

* 
* 

* 
* 
* 



PROCEDURE FOR ANALYZING PUNCH CHECKS DUE TO HOLE COUNT 
-1- SET ADDRESS SWITCHES TO ADDRESS OF LABEL -PCHC'HK- 
-2- SET MODE SWITCH TO SAR DELAYED STOP 

-3- WHEN THE ERROR OCCURS, THE PUNCH ATTENTION LITE WILL COME ON AND THE FOLLOWING AREAS MAY BE DISPLAYED - 
PUNCH CHECK LOGOUT AREA 



AUX 



50F6 



50FD 



* * *. 

BITS * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * * 

* * * * * * * * ■ * * * * 

COLS * 1 THRU 8*9 THRU 16*17 THRU 24*25 THRU 32*33 THRU 40*41 THRU 48*49 THRU 56*57 THRU 64*65 THRU 72*73 THRU 80* * 



A BIT BEING ON IN THE LOGOUT AREA SIGNIFIES 
AN ERROR FOR THAT COLUMN. 

THIS AREA MUST BE LOADED WITH BLANKS AFTER 
EVERY ERROR FOR SUBSEQUENT ERROR ANALYSIS. 



— -ROW FORM PUNCH IMAGE 



ROW 

12 


2 
4 
6 

8 



AUX ADDRESS 

400C - 4015 
402 - 4 02 9 
4034 - 403D 
4048 - 4051 
405C - 4 065 
4070 - 4079 



ROW 


AUX ADDRESS 


11 


4016 - 401F 


1 


402A - 4033 


3 


403E - 4047 


5 


4052 - 405B 


7 


4066 - 406F 


9 


407A - 4083 



A BIT BEING OFF IN THE ROW FORM PUNCH IMAGE 
BUFFER SIGNIFIES A HOLE IN THE CARD. THE CARD 
IS IN THE STACKER POKE T. 



* 

* 
* 

* 
* 

* 
* 
* 



************************************************************************************** ********M 



AU.OR 


WORO 


SEQUENCE NO* 


LABEL 






ETRP 


001 


T 






ETRP 


002 


ATABLE 






ETRP 


009 


* 






ETRP 


010 


♦ 






ETRP 


Oil 


* 






ETRP 


012 


♦ 






ETRP 


013 


* 






ETRP 


014 


* 






ETRP 


015 


* 






ETRP 


016 


* 






ETRP 


017 


* 






ETRP 


018 


* 






ETRP 


019 


* 


0110 


22C8 


ETRP 


020 




0112 


8FA4 


ETRP 


021 








ETRP 


022 


AENO 


0FA4 


FAF4 


ETRP 


023 


START 


0FA6 


5ACF 


ETRP 


024 




0FA8 


5BFF 


ETRP 


025 




OFAA 


5F2C 


ETRP 


026 




OFAC 


fZ5f 


ETRP 


02 7 




OFAE 


0232 


ETRP 


02 9 




OFBO 


DFC5 


ETRP 


030 




0FS2 


2360 


ETRP 


031 


PFR 


0FB4 


23CB 


ETRP 


032 




0FB6 


5020 


ETRP 


033 




0FB8 


7F20 


ETRP 


034 




OFBA 


33 7F 


ETRP 


035 




OFBC 


5F20 


ETRP 


036 




OFBE 


6DF7 


ETRP 


037 




OFCO 


7D20 


ETRP 


038 




0FC2 


23CB 


ETRP 


039 




0FC4 


2230 


ETRP 


040 


NOTPFR 


0FC6 


5F20 


ETRP 


044 




0FC8 


6CF1 


ETRP 


045 




OFCA 


C4DD 


ETRP 


046 




OFCC 


CAOC 


ETRP 


04 7 




OFCE 


3F40 


ETRP 


048 


PCHCHK 


OFOO 


2E55 


ETRP 


049 




0FD2 


54FD 


ETRP 


050 




QFD4 


3FF5 


ETRP 


051 




0FD6 


5DE0 


ETRP 


052 




0FD8 


6DC5 


ETRP 


053 




OFOA 


7DE0 


ETRP 


054 




OFOC 


2215 


ETRP 


055 


NQEROR 


OFDE 


241B 


ETRP 


056 


R0W12 


OFEO 


FOE A 


ETRP 


057 




0FE2 


F266 


ETRP 


058 




0FE4 


1613 


ETRP 


059 




0FE6 


246B 


ETRP 


060 


G0A006 


0FE8 


EOED 


ETRP 


061 




OFEA 


02C8 


ETRP 


062 


RETURN 


OFEC 


0FF2 


ETRP 


063 


DONE 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 
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NATIVE PUNCH TRAP ROUTINE 
AODR=0110 



THE REGISTERS ARE USED FOR THE FOLLOWING 



GO-TRAP COUNT 

V -AUX STORAGE ADDRESS MODIFICATION 
D05=l NORMAL WRITE INDICATOR 
D07=l 12 ROW PUNCH 







LINK U MMSK4=1 


023 


START 


BR 


067 


SETUP 


BR IF RPS BIT7=0 

P0=RP2 

H1=RP1 

ROB PO AStV+1 


056 


R0W12 


BR IF DO 8IT7=1 


031 


PFR 


BR IF DO BIT5*0 


040 


NOTPFR 


BR IF PS BIT 1=1 

V1=V1+K60 

V1=VHX0C 

RDB PI AS,V+0 

SFB Hi AStV + O 

V1=V1-K77 

RDB HI AStV+O 

P1=P1*H1 

STB PI AS»V*0 

V1=V1«-K0C 

V0=V0+K30 

RDB HI AS,V*0 

P0=P0QH1 


055 


NOEROR 


BR IF Z=0 


055 


NOEROR 


BR IF RPS BIT4=0 

SET P K=84 

HQ=0$K50 

H1=G0L 

H1=H1$KF0 

RDB PI AS f H+0 

PI=P1$P0 

STB PI AS,H+0 

V0=0SK10 

G0=G0*K01 


062 


RETURN 


BR IF LZNZ 


060 


GO AD 06 


BR IF DO BIT7=0 

D0=D0*~K01 
G0=G0+K06 


063 


DONE 


BR IF HZ=0 
RTN U MMSK4=0 


066 


INLK 


BR IF PS BIT 1=0 



BR IF CLUTCH TRAPISXQ44) 

GET PUNCH CHECK BR INFO 

GET PFR INFORMATION 

SEND PUNCH DATA 

BR IF 12TH ROW 

BR IF PFR OPERATION 

BR IF NOT NORMAL RUN INISX041) 

POINT TO 

PFR AREA 
READ PFR ROW AREA 
STORE NEW PFR INFO 
POINT TO PCH IMAGE 

OR PUNCH AND PFR DATA 
STORE RESULTS 

POINT ADDRESS TO CHECK AREA 
READ CHECK IMAGE BYTE 
COMPARE RESULTS 
BR IF NO ERROR 
BR IF NO PCH CHK CL ( SX044J 
ERR, SET PCH CHK $ RESTARTI RU031 ) 
SET ERROR LOG OUT 
ADDRESS TO 
50F6 - 50FF 
READ OLD ERROR BYTE 
OR NEW ERROR TO OLD BYTE 
STORE NEW RESULTS 
POINT BACK TO PCH IMAGE AREA 
UP DATE COUNT 

BR IF NOT THE LAST TRAP OF A ROW 
BR IF NOT 12TH ROW 
RST 12TH ROW INDICATOR 
CORRECT GO TO X6 
BR IF COUNT FINISHED 

FINISHED f BR IF NORM RUNINISX041) 



At; OR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 
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COMMENTS 
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QFEE 


CFF2 


ETRP 064 




OfFO 


2F20 


ETRP 065 




0FF2 


OD80 


ETRP 066 


INLK 


QFF4 


2215 


ETRP 067 


SETUP 


OFF6 


2307 


ETRP 068 




OFF8 


5F2C 


ETRP 069 




OF FA 


3613- 


ETRP 070 




OFFC 


2435 


ETRP 071 




OFFt 


8FE6 


ETRP 072 





066 INLK BR IF PS 8CT0=0 

SET P K=02 

RST RP K=08 

VO^OSKIO 

V1 = 

ROB PO AStV+1 

D0=00$K01 

G0=0$K30 
060 G0A006 BR 

********************************** 

* CROSS REFERENCE FOR CSECT ETRP * 
********************************** 



8R IFNOT READY* SX041) 
SET PCH REQUESTCRU015) 
RST PCH CMO INLKCRU03U 

V= 1000 

PRE SHIP PUNCH DATA 
SET 12TH ROW INDICATOR 
SET COUNT TO 36 FOR 130 
TRAPS IN DECIMAL 



ETRP 


023 


ETRP 


021 






ETRP 


031 


ETRP 


029 






ETRP 


040 


ETRP 


030 






ETRP 


055 


ETRP 


046 


ETRP 


047 


ETRP 


056 


ETRP 


027 






ETRP 


060 


ETRP 


058 


ETRP 


072 


fcTRP 


062 


ETRP 


057 






tl'KP 


063 


ETRP 


061 






ETRP 


066 


BMCK 


042 


ETRP 


063 ETRP 064 


ETRP 


067 


ETRP 


023 







ETTR DESCRIPTIVE TEXT 



CLQAD=*E60, EC LEVEL=1282 11 PAGE 235 



ENT£Y POINTS 
(01B0) 



THIS IS THE ASSIGNED TRAP ADDRESS THAT IS 
FORCED INTO THE SAR WHEN A 2540 READ TRAP 
IS ALLOWED. DIAGRAM 5-106 IN THE FEMDM 
SHOWS THE READER TRAP HANDLING. 



************ ** *********************************** ****************** 

* 

PROCEDURE FOR ANALYZING READER CHECK 



-I- SET ADDRESS SWITCHES TO ADDRESS OF LABEL -RDRCHK- 

-2- SET MODE SWITCH TO SAR DELAYED STOP 

~3- WHEN THE ERROR OCCURS, THE RDR ATTENTION LITE WILL COME ON 

— READER CHECK LOGOUT AREA — - 

AUX I OF 6 10F7 10F8 10F9 10FA 

BITS * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 

* * * * * * 

COLS * 1 THRU 8*9 THRU 16*17 THRU 24*25 THRU 32*33 THRU 40*41 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* FORMAT 5018 

* BIT ROW COL 

* OX 

* 1 X 

* 2 12 

* 3 11 -1- 

* 4 

* 5 1 

* 6 2 

* 7 3 



A BIT BEING ON IN THE LOGOUT fiREfl SIGNIFIES 
AN ERROR FOR THAT COLUMN. 

THIS AREA MUST BE LOADED WITH BLANKS AFTER 
EVERY ERROR FOR SUBSEQUENT ERROR ANALYSIS. 

- — COLUMN FORM AREA AUX LOCATIONS 5018 - 50B7 

A BIT BEING ON INDICATES A HOLE IN THE CARD THAT 
IS NOW IN THE PRE STACKER STATION. THIS IS A 
RESULT OF THE FIRST READ STATION TRAPS. 

5019 






X 


FORMAT IS THE 


1 


X 


SAME FOR EACH 


2 


4 


CARD COLUMN. 


3 


5 -1- 


AUX 501A-501B 


4 


6 


FOR COL 2, AUX 


5 


7 


501C-501D FOR 


6 


8 


COL 3, ETC. 


7 


9 





RQUEST ENTRY IS MADE TO THIS LABEL FROM THE 

BMCK ROUTINE. A MACHINE CHECK HAS BEEN 

DETECTED DURING A READER TRAP* THE BMCK 

ROUTINE HAD BEEN TRAPPED T0» THE MMSK AND 

BA EXTERNALS HAVE BEEN SAVED AND THE 

LOGOUT LATCH HAS BEEN SET. THE OBJECT OF 

THIS ENTRY IS TO SET A READER STATUS REQ 

AND RETURN TO THE ROUTINE TRAPPED FROM. 
******************************************************** 

* 
S DUE TO HOLE COUNT * 

* 
* 
* 
* 
* 
AND THE FOLLOWING AREAS MAY BE DISPLAYED - * 

* 
* 
* 

10FB iOFC 10FD 10FE 10FF * 

* * * * * * 

1234567 * 01234567 * 01234567 * 01234567 * 01234567 * * 

* * * * * * 

THRU 48*49 THRU 56*57 THRU 64*65 THRU 72*73 THRU 80* * 

* * * * * * 

* 
* 
* 
* 
* 
* 

ROW FORM AREA AUX LOCATIONS 4FA0 - 5017 * 

A BIT BEING A ZERO INDICATES A HOLE IN THE * 
CARD THAT IS BETWEEN THE FIRST AND SECOND READ * 
STATIONS. * 

* 
ROW AUX ADDRESS * 

* 
* 
* 
* 



ROW 

9 
8 
7 
6 
5 
4 



AUX ADDRESS 



4FA0 - 


4FA9 


4FAA - 


4FB3 


4FB4 - 


4FBD 


4FBE - 


4FC7 


4FC8 - 


4FD1 


4FD2 - 


4FD8 



3 


4FDC - 4FE5 


2 


4FE6 - 4FEF 


I 


4FF0 - 4FF9 





4FFA - 5003 


11 


5004 - 500 


12 


500E - 5017 



* 
* 
* 
*************************************************************************************************************************** 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



TRAP ROUTINE 
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COMMENTS 
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ETTR 


001 


T 


NATIVE 


READER 






ETTR 


002 


ATABLE 


ADDR-01B0 








ETTR 


009 


* 










ETTR 


010 


* 










ETTR 


Oil 


* 










ETTR 


012 


* 


THE REGISTERS 






ETTR 


013 


* 










ETTR 


014 


♦ 




00 






ETTR 


015 


*. 




Dl 






ETTR 


016 


•* 




U 






ETTR 


017 


* 






OLBO 


2206 


ETTR 


018 








OiB2 


5ACF 


ETTR 


019 








0184 


8ECC 


ETTR 
ETTR 


020 
021 


AENO 


022 


START 


OECC 


EAFC 


ETTR 


022 


START 


048 


SETUP 


OECE 


5BDF 


ETTR 


023 








OfcDO 


5F0O 


ETTR 


024 








0tD2 


7DC8 


ETTR 


025 








QtD4 


6CF1 


ETTR 


026 








0fc06 


C4E9 


ETTR 


02 7 




036 


NOEROR 


OE08 


C0E9 


ETTR 


028 




036 


NOEROR 


OEOA 


3B00 


ETTR 


029 


RDRCHK 






OECC 


2E15 


ETTR 


030 








OhOE 


5 7FD 


ETTR 


031 








OtfcO 


2FFD 


ETTR 


032 








0EE2 


5DE0 


ETTR 


033 








GEE* 


60C5 


ETTR 


034 








QEE6 


70E0 


ETTR 


035 








OEE8 


271B 


ETTR 


036 


NOEROR 






OtEA 


FOFO 


ETTR 


037 




040 


RETURN 


OEfc'C 


276B 


ETTR 


03 8 


01A0D6 






OEEE 


E0F3 


ETTR 


039 




041 


DONE 


OEFO 


0206 


ETTR 


04 


RETURN 






QEF2 


CDC9 


ETTR 


041 


DONE 


046 


XFER 


0EF4 


DDF8 


ETTR 


042 




044 


INLK 


0EF6 


2B20 


ETTR 


043 


RQUEST 






OEF8 


0004 


ETTR 


044 


INLK 






OEFA 


8EFE 


ETTR 


04 5 




049 


SURE 


0EC8 


3625 


ETTR 


046 


XFER 






OfcCA 


8EF6 


ETTR 


047 




043 


RQUEST 


OfcFC 


5B0F 


ETTR 


048 


SETUP 






OEFE 


30B9 


ETTR 


049 


SURE 






OFOO 


21A5 


ETTR 


050 








0FQ2 


2745 


ETTR 


051 








OF04 


8EEC 


ETTR 


052 




038 


01 AD 06 



BIT2=1 XFER ROW TO COL 

Dl REG-TRAP COUNT 
REG-ROW ADDRESS 

LINK U MMSK3-1 

P0=RP2 

BR 



BR IF RPS BIT6=Q 

Pi=RPi 

RDB HI AS,U*0 

STB Pi AS,U+1 

P0=P0aHl 

BR IF Z=0 

BR IF RS BIT0=1 

SET R K=80 

H0^0$K10 

H1=DIL 

H1=H1+KF0 

RDB PI AS,H*0 

P1=P1$P0 

STB PI AS,H+0 

D1»D1*K01 

BR IF LZNZ 

DX«D1+K06 

BR IF HZ=0 

RTN U MMSK3=0 

BR IF RS 8IT0=1 

BR IF RS BIT 1=0 

SET R K=02 

RST RP K=20 

BR 

D0=D0$K20 

8R 

Pi=RPl 

UO=0-KBO 

U1=0$KA0 

Di=0$K40 

BR 
**************************** 

* CROSS REFERENCE FOR CSECT 
**************************** 



GET READ 2 INFO 



BR IF SET-UPCSX044) 
GET READ 1 INFOt START SHIFT REG* 
READ OLD DATA 
STORE NEW DATA 

CHECK OLD READ 1 WITH NEW READ 2 
BR IF NO ERROR 

BR IF NOT GATE RD CMPLTEI SX041 J 
SET ERROR LAT (RU021) 
SET H TO ADDRESS READ CHECK 
LOG OUT AREA IN AUX STORAGE 
POSITION 10F6 THRU lOFF 
READ OLD ERROR BYTE 
OR NEW ERROR 
STORE ORED RESULTS 
UPDATE TRAP COUNT 

CORRECT Dl LOW TO X6 
BR IF FINISHED 

BR IF NOT GATE RD CMPLTEi SX041 J 

BR IF NOT READY* SX041I 

SET RDR STATUS REQUE ST< RU015) 

RST CMD INLK IRU021) 

MAKE SURE ADDR SITTING RIGHT 

SET XFER BIT 

GET READ 1 INFO! START SHIFT REG) 

U=4FA0 

GO MAKE Dl=46 
****** 

ETTR * 
****** 



ETTR 


022 


ETTR 


020 


ETTR 


036 


ETTR 


027 


ETTR 


038 


ETTR 


052 


ETTR 


040 


ETTR 


037 



ETTR 028 



ETTR 041 

ETTR 043 

tTTR 044 

L-1 TR 046 

tTTR 048 

tlTR 049 



ETTR 039 
8MCK 040 
ETTR 042 
ETTR 041 
ETTR 022 
ETTR 045 
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* CROSS REFERENCE FOR CSECT ETTR * 

********************************** 



ETTR 047 



EXFR DESCRIPTIVE TEXT 



ENTRY POINTS 
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XFER ENTRY IS MADE HERE FROM THE ERQR ROUTINE 

TO SET UP THE ADDRESSES OF THE COLUMN AND 
RUW IMAGE BUFFERS, AND START THE TRANSFER 
OF ROW IMAGE TO COLUMN BINARY FORM. 

8YTECT ENTRY IS MADE HERE FROM THE ERQR ROUTINE 

AFTER THE ADDRESSES FOR PFR ROW IMAGE AND 
PFR COLUMN IMAGE BUFFERS HAVE BEEN SET UP. 
THE TRANSFER OF PFR ROW IMAGE TO PFR COLUMN 
IMAGE BEGINS HERE. 

CHKCHK ENTRY IS MADE HERE FROM THE ERDR ROUTINE 

WHEN A READ-NO-FEED OPERATION IS DETECTED. 
A CHECK IS MADE FOR READ AND VALIDITY 
ERRORS. IF NO ERRORS DETECTED, GO TO STORE 
INDICATOR AND SENSE BYTES IN AUXILIARY 
STORAGE. 



COMBIN ENTRY IS FROM THE ERCX ROUTINE WHEN A 

VALIDITY CHECK IS DETECTED DURING A PFR 
OPERATION. UNIT CHECK BIT IS SET, COMMAND 
CHAINING IS BROKEN, AND THE INDICATOR AND 
SENSE BYTES ARE STORED IN AUXILIARY STORAGE, 

WLRBR ENTRY IS FROM THE ECOL ROUTINE. THE WLR 

INDICATOR BIT HAD BEEN SET IF AN INCORRECT 
COUNT WAS DETECTED IN THE ECOL ROUTINE. 
THE ENTRY HERE IS TO TEST FOR SLI AND 
CHAINING, PRIOR TO STORING THE INDICATOR 
AND SENSE BYTES IN AUXILIARY STORAGE. 



AuCR 


ftORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 




COMMENTS 






EXFR 


001 


T 


READER 


XFER QF 


ROW IMAGE TO COLUMN 


BINARY FORM 






EXFR 


00 5 


ASEQ 


AL07=50 










lu50 


2455 


EXFR 


007 


XFER 






G0=0$K50 




SET G TO 2ND BYTE OF 


1052 


2515 


EXFR 


008 








Gl=0$K10 




COL BUFFER 


10 54 


3593 


EXFR 


009 








Gl=Gl$KG9 




ADDR 5019 


1056 


2045 


tXFH 


010 








U0=0$K40 




SET U TO ROW IMAGE ADDRESS 


10 58 


21A5 


EXFR 


Oil 








Ui=0$KA0 




AOAO 


105A 


22A3 


EXFR 


012 


BYTECT 






V0=0$K0A 




10 GROUPS OF 8 BYTES CNTR 


105C 


2363 


EXFR 


013 


BITCT 






Vi=0$K06 




6 BIT PER BYTE CNTR 


1J5E 


4852 


EXFR 


014 








RDH I DC,9A 




I^COOO 


1U60 


4AE6 


EXFR 


015 








T-I 




CLEAR 


1062 


4CE6 


EXFR 


016 








P=I 




WORK 


1064 


4E86 


EXFR 


017 








H*I 




REGISTERS 


1066 


2613 


EXFR 


018 








D0^0$K01 




SET MASK FOR COL I 


1068 


57C0 


EXFR 


019 


RDBYTE 






RD8 Dl AS,U 




READ BYTE FROM IMAGE 


106A 


C76F 


EXFR 


020 




022 


N 


BR IF Dl BITO= 


I 


BITS ARE COMPLIMENT 


106C 


6965 


EXFR 


021 








Il^IlSDO 




OR BIT IN COL 1 


106E 


D773 


EXFR 


022 


N 


024 


NE 


BR IF Dl BIT 1= 


1 




1070 


6B65 


EXFR 


023 








Tl^Tl$DO 




COL 2 


10 72 


E?77 


EXFR 


024 


NE 


026 


NEX 


BR IF Dl BIT2- 


1 




1074 


6D65 


• EXFR 


025 








Pl^PUDO 




COL 3 


1076 


F77B 


EXFR 


026 


NEX 


028 


NEXT 


BR IF Dl BIT3^l 




1078 


6F65 


EXFR 


02 7 








HI=H1$D0 




COL 4 


10 7A 


C37F 


EXFR 


02 8 


NEXT 


030 


NEXTB 


BR IF 0.1 8 IT 4= 


1 
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a tea 


*ORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLA8EL 


STATEMENT 




COMMENTS 


1J7C 


6fc65 


EXFK 


029 








10= 10$ DO 




COL 5 


lo7E 


D303 


EXFR 


030 


NEXTB 


032 


NEXTBT 


BR IF Dl BIT5= 


1 




1080 


6A65 


EXFR 


031 








TO=TO$DO 




COL 6 


IU82 


E3C7 


EXFR 


032 


NEXTBT 


034 


BTNEXT 


BR IF Dl BITfr=l 




1084 


6C65 


EXFR 


033 








PO^POSDO 




COL 7 


1086 


F30B 


EXFR 


034 


BTNEXT 


036 


BTOGNE 


BR IF Dl BIT7= 


1 




iu88 


6E65 


EXFR 


035 








HO=HO$DO 




CUL 8 


10 8A 


666 3 


EXFR 


036 


BTOONE 






00-= 00+ DO 




SHIFT MASK LEFT ONE 


10 8C 


23FF 


EXFR 


03 7 








V1=V1+KFF 




BII COUNT MINUS ONE 


108E 


C49F 


EXFR 


038 




050 


STORE 


BR IF Z=0 






1090 


F41A 


EXFR 


040 




047 


RPFR1 


BR IF GO BIT3= 


= 


BR IF PFR READ 


1092 


2 1AB 


EXFR 


042 








U1=U1*K0A 




NO- INCREMENT ADR 


1094 


F49 8 


EXFR 


043 




045 


REAOM 


BR IF AC-=0 






1096 


2010 


EXFR 


044 








U0=U0*K10 




UPCATE TO 60 


1098 


9068 


EXFR 


045 


READM 


019 


ROBYTE 


BR 






10 9 A 


3198 


EXFR 


047 


RPFR1 






U1=U1-K09 




DECREMENT ADR BY 10 


10 9C 


9C68 


EXFR 


048 




019 


RDBYTE 


BR 






K;9E 


7940 


EXFR 


050 


STORE 






STB II AS,G*0 




STORE COL ONE OR FIVE 


1JA0 


6444 


EXFR 


051 








G=G+2 **POINT 


AODR TO EVERY OTHER BYTE 


10A2 


7B40 


EXFR 


052 








STB Tl AS,G+0 




COL TWO OR SIX 


10A4 


6444 


EXFR 


053 








G=G+2 






10A6 


7D40 


EXFR 


054 








STB PI AS,G+0 




COL THREE OR SEVEN 


10A8 


6444 


EXFR 


055 








G=G*2 






10AA 


7F40 


EXFR 


056 








STB HI AS,G+0 




COL FOUR OR EIGHT 


i JAC 


6444 


EXFR 


057 








G=G+2 






li...At 


144B 


EXFR 


058 








G0=G0QK04 


**INVERT BIT 5 - 2ND 4 BYTES 


1080 


D03C 


EXFR 


059 




065 


STRDON 


BR IF GO BIT 5= 


= 


BR IF DONE 2ND 4 BYTE 


I0b2 


5899 


EXFR 


060 








11=10 




MOVE 


10B4 


5AB9 


EXFR 


061 








T1=T0 




2ND 


10B6 


5CD9 


EXFR 


062 








P1=P0 




4 


1088 


5EF9 


EXFR 


063 








H1 = H0 




BYTES 


10BA 


9C9E 


EXFR 


064 




050 


STORE 


BR 






10BC 


2 2FF 


EXFR 


065 


STRDQN 






V0=V0+KFF 




GROUP CNTR MINUS 


10BE 


. C4CF 


EXFR 


066 




078 


HALF 


BR IF Z=0 




BR IF DONE HALF 


10C0 


F44A 


EXFR 


068 




075 


RPFR2 


BR IF GO BIT3= 


= 


BR IF PFR READ 


IOC 2 


3130 


EXFR 


070 








U1=U1-K30 




NEXT GROUP OF 8 BYTES 


luC4 


C048 


EXFR 


071 




073 


HAF1ST 


BR IF GO BIT 4= 


Q 


BR IF 1ST HALF 


10C6 


20FD 


EXFR 


72 








U0=U0+KF0 




2ND HALF, 50XX 


10C8 


9C5C 


EXFR 


73 


HAF1ST 


013 


BITCT 


BR 




GO DO ANOTHER GROUP 


10CA 


213F 


EXFR 


075 


RPFR2 






U1=U1+K33 




NEXT GROUP OF 8 BYTES 


10CC 


905C 


EXFR 


076 




013 


BITCT 


BR 




GO DO ANOTHER GROUP 


loCE 


14 8B 


EXFR 


078 


HALF 






G0=G0aK08 


**INVERT BIT 4 - 2ND HALF 


1000 


C060 


EXFR 


079 




090 


DONE 


BR IF GO BIT4^ 


= 


BR IF DONE 2ND HALF 


1002 


F45A 


EXFR 


081 




087 


RPFR3 


BR IF GO B£T3= 


= 


BR IF PFR READO 


10LS4 


2118 


EXFR 


083 








Ul=Ul+K01 




U=4GDC 


10D6 


35AD 


EXFR 


084 








GI=G1-KA0 




G=5918 


10D8 


9C5A 


EXFR 


085 




012 


BYTECT 


BR 




GO DO 2ND HALF 


10 DA 


21A7 


EXFR 


087 


RPFR3 






U1=0$KAA 




U=10AA PFR READ 


10UC 


2507 


EXFR 


088 








Gi = 




G=4900 


10DE 


905A 


EXFR 


089 




012 


8YTECT 


BR 




GO DO 2ND HALF 


10E0 


F475 


EXFR 


090 


DONE 


100 


ENDING 


BR IF GO 8IT3* 


= 1 


BR IF NOT PFR READ 


10E2 


52E2 


EXFR 


091 








RDH V DA,BC 




PFR READ, RESTORE DATA ADDRESS 


Ut4 


AO'62 


EXFR 


092 




ERRC 087 


RPHUCW 


BAL 




SET Dl TO E8 



AODR 

1JE6 
iuE8 
1JEA 
iOEC 
10EE 
IOFO 
10F2 
10F4 
1QF6 
1JF8 
UFA 
10 FC 
LOFE 
IIOO 
1102 
1104 
1106 
1108 
UOA 
HOC 
UOE 
1110 
1112 
1114 
1116 
1118 
111A 
U1C 
lli£ 
1120 
1122 
1124 
1126 
1128 
112A 
112C 
U2E 
1130 
1132 
1134 
1136 
1138 
113A 
113C 
U3E 
1140 
1142 
1144 
1146 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



51A2 
AC44 
54B2 
3659 
2845 
29C7 
S8DE 
2466 
E67E 
1625 
24C0 
AAA2 
2406 
AC6A 
A 044 
5FB2 
FBOA 
2643 
FD8E 
3D15 
C992 
3D83 
2E23 
3485 
A 923 
2E07 
F822 
E523 
3445 
1545 
6 C .64 
0529 
3E83 
D22E 
56F2 
8058 
51A2 
2CC7 
D83A 
52F2 
613B 
6C2D 
C844 
3E43 
C3C4 
2B20 
9054 
C3C3 
8D44 



EXFR 
EXFR 
EXFR 
EXFK 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
E XFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
fcXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
tXFR 



093 
094 
95 
096 
097 
098 
099 
100 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
13 7 
138 
139 
140 
141 
142 
143 
144 
145 



ERRQ 092 RDIND 



ENDING 
RUNON 

CHKCHK 

NORDCK 
CGM8IN 

WLRBR 



BRKCC 
CCBR 



ERDR 164 
108 



ERRC 075 
ERRQ 092 

114 

116 

118 



CC 



NOTIME 



HiCTO 



GUSTUC 
NOIPL 

AENO 



126 
126 



ERRQ 102 
129 

132 

DPTR 080 



143 

143 

OPTQ 020 

142 

DPTR 066 



BRSKIP 
RUNCN 



BSWI 066 RESTRH 



RRDUCW 
RDIND 

CHKCHK 

NORDCK 

COMBIN 



125 BRKCC N 



CCBR 
CCER 



STIND 
CC 

NOT I ME 

IMMEDT 



138 HICTO 



NOIPL 

NOIPL 

STINST 
GOSTUC 
CCBR 



R-OB Ul DA, AC 

BAL 

RDH G DA t AE 

D0=0-K50 

I0=0$K40 

11 = 

BR 

SET MODE K=36 

BR IF DO BIT2=0 

D0=D0*-K20 

SET MODE K=00 

BR 

SET MODE K=30 

BAL 

BAL 

RDB HI DA, AE 

BR IF HI BIT7=0 

D0=0$K04 

BR IF RS BIT3=0 

P1=P1$K10 

BR IF RS BIT4=0 

Pi=PUK08 

H0=0$K02 

G0=G0$K80 

BR IF P1=NZ 

H0 = 

BR IF PO BIT7=0 

BR IF Gl BIT2=i 

G0=G0$K40 

Gl=Gl*-K40 

BAL 

BR IF Gl BIT 1=1 

H0=H0$K08 

BR IF DO BIT5=0 

RDH D DA, BE 

BR 

RDB Ul DA, AC 

U0 = 

BR IF PO BIT5=0 

RDH V DA, BE 

U1C = U1+V1 

U0C=U0+V0*C 

BR IF PO BIT4=0 

H0=H0$K04 

BR IF BA BIT4=0 

SET R K=0 2 

BR 

BR IF BA BIT 4=1 

BR 



CLQAD=*E60, EC LEVEL=12821i 

COMMENTS 

RESTORE CCW ADJUSTED COUNT 
P0 = IND,P1=SENSE 
RESTORE CMD AND FLAGS 
WLR COUNT D0=AF 

1=4000 POINT TO PFR COL BUFFER 

READER MODE AND ZONE 
BR IF NO EXFR 
XFER,RST BIT 
CPU MODE AND ZONE 

READER MODE AND ZONE 
SET £N00OB 

RESTORE CMD 

BR IF NOT CMD IMMEDIATE 

CMD IMEDIATE, SET INDICATOR 

BR IF NQ READ CHECMSX042) 

READ CHK, 

BR IF NO VAL CHKISX043) 

VAL CHK, SET INDICATOR IN SENSE 

UN IT CHECK 

SET SECONDARY BIT 

BR IF NO SENSE BIT 

NO UNIT CHK 

BR IF NO WLR 

WLR, BR IF SLI 

WL R 

RESET CC BIT 

STORE IND., AND SENSE 

BR IF CC 

NO CCSET CHAN END BIT 

BR IF NOT CMD IMMEDIATE 

CMD IMMEDIATE, RESTORE DO BIT 7 

RESTORE RESIDUE COUNT 

HIGH COUNT EQUALS ZERO 

BR IF NO EXCESS COUNT STORED 

READ EXCESS COUNT 

ADD BACK THE 

E>CESS COUNT 
BR IF FEED 
NO FEED, SET DE 
BR IF NOT I PL 
IPL,SET RDR REQUESTIRU015) 
STORE UCW, GO TO BSWI 
NO INTERRUPT FOR I PL 
INT, OR GO CC, STORE UCW, GO BSWI 



f>AGE 2*0 



CL0AD=*E60, EC LEVEL = 1282 11 PAGE 241 
********************************** 

* CROSS REFERENCE FOR CSECT EXFR * 
********************************** 



lXFR 


007 


ERDR 


181 


EROR 


183 EROR 185 


tXFR 


012 


EROR 


153 


EXFR 


085 EXFR 089 


EXFR 


013 


EXFR 


73 


EXFR 


076 


EXFR 


019 


EXFR 


045 


EXFR 


048 


EXFR 


022 


EXFR 


020 






EXFR 


024 


EXFR 


022 






LXFR 


026 


EXFR 


024 






tXFR 


028 


EXFR 


026 






tXFR 


030 


EXFR 


028 






tXFR 


032 


EXFR 


030 






EXFR 


034 


EXFR 


032 






tXFR 


036 


EXFR 


034 






tXFR 


045 


EXFR 


043 






EXFR 


047 


EXFR 


040 






EXFR 


050 


EXFR 


038 


EXFR 


064 


tXFR 


065 


EXFR 


059 






tXFR 


073 


EXFR 


071 






EXFR 


075 


EXFR 


068 






tXFR 


078 


EXFR 


066 






EKFR 


087 


EXFR 


081 






LXFR 


090 


EXFR 


079 






LXFR 


100 


EXFR 


OSO 






tXFR 


108 


EXFR 


1C4 






tXFR 


114 


EROR 


119 


EXFR 


112 


EXFR 


116 


EXFR 


114 






EXFR 


118 


ERCX 


049 


EXFR 


116 


lXFR 


122 


ECOL 


091 






EXFR 


125 


EXFR 


120 






tXFR 


126 


EXFR 


122 


EXFR 


123 


tXFR 


129 


. EXFR 


127 






tXFR 


132 


EXFR 


129 






tXFR 


138 


EXFR 


134 






EXFR 


142 


EXFR 


143 






LXFR 


143 


EXFR 


138 


EXFR 


140 



FILE DESCRIPTIVE TEXT 



2311 



ucw 



AUX 0X8E-0X8F ZCNE 1 T-REG ZONE 1 I-REG AUX 0X96-0X99 

**** * ************************** ****** *********************************************** 

* * * * * * 

* STA7US-I/0 AOR * FLAGS AND OP * DATA ADDRESS * COUNT FIELD * NEXT CCW ADDR * 

* * C FFII tFOP)* * * * 
************************************************************************************ 



STATUS-I/O ADR 

C=ACTIVE 

l^CAME FROM START I/O 
2=KETURN TO ICYCLES 
3=PERFORMED HALT I/O 
4-i5=FILE I/O ADDRESS 



FLAGS AND OP 

0=CHAIN DATA 

1=CC OR CD AND NOT UNIT CHECK 

2^CC OR CD AND NOT UNIT CHECK 

3=SKIP 

4=PCI 

5 = SET INTERRUPT LATCH ISTATUS 

IN INTERRUPT BUFFER*. 
6=ANY INTERRUPT CONOTION 
7 = SLI 



CLQAD=*E60, EC LEVEL=1282U PAGE 242 



2311 AUX MODULE USAGE 
******** ************ **************** 

* ADDRESS * 

* * 

* 04 AND 05 - DEVICE ADDRESS FOR * 

* CONTINGENT CONNECTION* 

* * 

* 06 AND 07 - INTERRUPT BUFFER * 

* * 

* 14 AND 15 - ERROR STATUS ICE) * 

* * 

* 16 AND 17 - ERROR NEXT CCW ADDR * 

* * 

* 8E AND 8F - STATUS AND CHANNEL * 

* DEVICE ADDRESS. * 

* * 

* 98 AND 99 - NEXT CCW ADDRESS * 

* * 

* 9A AND 9B - SENSE BYTES AND 1 * 

* OR PREVIOUS OP AND * 

* MASK. * 

* * 

* 9C AND 9D - SENSE BYTES AND I * 

* OR FILE ADDRESS * 

* ♦ 

* F5 - CONTROL UNIT ADDRESS* 

* * 



************************************ 



ENTRY POINTS 



ENTRY THIS IS THE NORMAL ENTRY FOR A PROGRAMMED 
INSTRUCTION. THIS ROUTINE DETERMINES- 
START I/O, TEST I/O, TEST CHANNEL, OR 
HALT I/O AND BRANCHES FOR REQUIRED PROCESS. 
THE START I/O SEQUENSE TESTS THE AVAIL- 
ABILITY OF THE FILE, AND DETERMINES THE 
FILE READY CONDITION. THE FILE CONTROLS ARE 
TESTED FOR OPERATION. 

TSTCC THIS ENTRY ALLOWS THE USE OF THE CYCLIC-CODE 
AND OPERATIONAL TEST ROUTINE AFTER CONTROL 
AND SENSE OPERATIONS BEFORE PROCEEDING WITH 
OPERATING COMMANDS. 



SNSSTA THIS IS A BAL ENTRY TO SET AN EQUIPMENT 
CHECK AND SELECTED STATUS INDICATIONS IN 
THE SENSE BYTES. 

SETDA THIS IS A BAL ENTRY USED TO SET THE DEVICE 
ADDRESS FROM AN UNSELECTED GATED ATTENTION. 
AFTER DEVELOPING THE D£VICE ADDRESS, THE 
INDICATED MODULE IS SELECTED. 

RSTATT THIS IS A BAL ENTRY USED TO RESET THE FILE 
GATED ATTENTION. THE READ-GATE IS RAISED 
MOMENTARILY FOR THE RESET AND THEN THE 
MODULE IS DESELECTED. 



AUDR 



WORD SEQUtNCE NO, 



04 7A 
047C 
047E 
0480 
0482 
0484 
04 86 
0488 
048A 
04 8C 
048E 
0490 
0492 
0494 
0*96 
0498 
049A 
04 9C 
049E 
04AO 
04A2 
04A4 
04A6 
04A8 
04AA 
04AC 
04AE 
04B0 
0482 
04B4 
0466 
04B8 
04BA 
04BC 
04BE 
04C0 
04C2 
04C4 
04C6 
04C8 
04CA 
04CC 
04CE 
0400 
0402 
0404 



7CC2 
2480 
C628 
E011 
FOlfc 
0^9E 
6711 
C49E 
7032 
8420 
A024 
5DBF 
1BC5 
D9A1 
3210 
2004 
4DBF 
1210 
AC74 
F5BB 
2E07 
D9BE 
B362 
3065 
7032 
E021 
F5BB 
E1C1 
F054 
OBFO 
8702 
DBFC 
2E55 
2002 
854E 
D6CA 
8702 
DBBB 
2E43 
4FEF 
2E25 
F051 
2E35 
0D02 
854E 
7242 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 

02 5 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 

03 8 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 



LABEL 
T 

* 

* 
* 

ASEQ 
ENTRY 



NEXTSEQ NEXTLABEL STATEMENT 



******* 

* 

******* 
AL07=7A 



2311 FEATURE COMMON ENTRY FOR 
****************************** 

FILE TIO - SIO - H 
****************************** 



031 
019 
026 
026 



FINT 052 

CCOM 127 



HALTIO 



SETCC2 
SETHI 



AVAIL 



SETCUB 

HTS 
TSTCUE 



CUE 

RSTCUE 
SIO 



CCOM 161 
040 

042 
CCOM 154 



027 
040 
043 
053 
073 
250 
073 



114 
048 
250 
040 



AVAIL 
HALTIO 
SETCC2 
SETCC2 



026 SETCC2 



SETCSW 

CSWADR 



027 SETHIO 



CC2B 

SETCUB 

HTS 
CCOB 



SETHIO 

SETCUB 

TSTCUE 

SIO 

GETDS 

TSTADR 

GETOS 



S I OT I 
CUE 

TSTADR 
SETCUB 



051 RSTCUE 



114 SIOTIO 



STH P DA.B8 

SET MODE K=08 

BR IF 00 BITO-0 

BR IF GO BIT6=1 

BR IF GO 8 IT 7=0 

BR IF FFI5=0 

Dl=DlnUl 

BR IF ZNZ 

STH U DA f 8E 

BAL 

BR 

Ti=FFO 

T1=T1*-KC0 

BR IF FFI5=1 

SET MMSK K=81 

SET FIA K=20 

FF0=T1 

RST MMSK K=81 

BR 

BR IF DAS 13=1 

H0=0 

BR IF FFI5=G 

BR 

U0=U0$K60 

STH U DA,8E 

BR IF GO BIT6=i 

BR IF DAS13= 1 

BR IF DAS 16=1 

BR IF GO BU7=0 

BR IF F0P5=i 

BAL 

BR IF FOP5=0 

H0=0$K50 

SET FIA K=10 

BR 

BR IF F0P5=0 

BAL 

BR IF F0P5=i 

H0=0$K04 

FOP=H0 

HG=0$K20 

BR IF GO BIT 7=1 

H0=0$K30 

RST FIA K=10 

BR 

STH V DA, 98 



CLOAD=*E60, EC LEVEL=1282 11 
COMMENTS 

START 10, TEST 10, HALT 10 
********************************** 

** 

10 COMMON ** 

** 

********************************** 

STORE CPU P REG 

SET FILE MODE & CPU ZONE 

BR IF CHANNEL AVAILABLE 

BR IF HALT 10 

BR IF NOT TEST 10 

BR IF INTURRUPT LATCH NOT ON 

COMPARE IOA 

BR IF IOA NOT SAME 

SAVE IOA WITH RESET STATS 

SET REGS TO USE CPU CSW STORE 

GET CCW FLAGS 

STRIP CC AND DC FLAGS 

BR IF INTURRUPT LATCH IS ON 

SET PRIORITY 

SET CCW COUNT 000 

RESTORE CCW FLAGS WITHOUT CHAIN 

RESET PRIORITY 

BR TO SET CC2 

BR IFERASING 

ZERO DEVICE STATUS 

BR IF NOT INTURRUPT LATCH 

BR TO SET CCO 

SET FROM SIOSRTN TO I CYC STATS 

STORE STATS AND I/O ADDRESS 

BR IF HALT I/O 

BR IF ERASING 

BR IF CUE 

BR IF SIO 

BR IF CONTIN CONNECT CLEAR 

TEST FOR CONTINGENT CONNECTION 

BR IF NOT CONTIN CONNECT 

SET CUB STATUS 

SET CUB LATCH 

BR IF NO CONTIN CONNECT 
TST FOR CONTIN CONNECT 
BR IF CONTIN CONNECT 
SET CONTINGENT 

CONNECTION CLEAR INDICATOR 
SET CUE FOR STATUS 
BR IF TEST I/O 

SET CUE & BUSY STATUS 
RESET CUB LATCH 

SAVE CCW ADDRESS 



PAGE 243 



ADOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



04D6 


5AF2 


FILE 


054 




04D8 


42AF 


FILE 


05 5 




04DA 


5A30 


FILE 


056 




04DC 


0A4B 


FILE 


057 




04DE 


C4E4 


F I LE 


058 




04E0 


AFC6 


FILE 


059 




04E2 


8C92 


FILE 


060 




04E4 


OBE'B 


FILE 


061 


NOTSNS 


04E6 


8702 


FILE 


062 




04E8 


DBBB 


FILE 


063 




04EA 


0A3B 


FILE 


064 


TSTNOP 


U4EC 


C4FD 


FILE 


065 




04 EE 


CA10 


FILE 


066 




04FO 


ECF6 


FILE 


067 




04F2 


0A7B 


FILE 


068 




04F4 


FOFD 


FILE 


069 




04F6 


0133 


FILE 


070 


isnoA 


04 F 8 


FOFD 


FILE 


071 




04FA 


85CC 


FILE 


072 




O^FC 


5ECF 


FILE 


073 


GETOS 


04FE 


C487 


FILE 


074 




0500 


2C43 


FILE 


075 




0502 


949C 


FILE 


076 


STRSEN 


0504 


8 54A 


FILE 


077 




506 


AFC6 


FILE 


078 


BALMS 


0508 


EE93 


FILE 


079 




050A 


DE97 


FILE 


080 




050C 


8114 


FILE 


081 


SETI VR 


050E 


2A45 


FILE 


082 




0510 


8548 


FILE 


083 




5 12 


2C85 


FILE 


084 


UNSAFE 


0-J14 


85C2 


FILE 


085 




0516 


2E15 


FILE 


086 


TSFDS7 


0518 


FAA9 


FILE 


087 




051A 


CEBC 


FILE 


088 




51C 


E5B5 


FILE 


089 




051E 


F023 


FILE 


090 




0520 


8BE8 


FILE 


091 




5 22 


49AF 


FILE 


092 


TIO 


0524 


5CC2 


FILE 


09 3 




0526 


B362 


FILE 


094 




0528 


8114 


FILE 


095 


SKINC 


052A 


CA3B 


FILE 


096 




052C 


FGC4 


FILE 


097 




052E' 


0A10 


FILE 


098 




0530 


EGC4 


FILE 


099 




0532 


8C92 


FILE 


100 




0^34 


8224* 


FILE 


101 


ATNRST 


0536 


2E43 


FILE 


102 




0538 


F03D 


FILE 


103 




053A 


3E15 


FILE 


104 




053C 


8230 


FILE 


105 


BRANCH 


053E &* 


F051 


FILE 


106 









RDH T CA f BE 






STPO=TO 






RDH T V+0 






Z=T0nK04 


061 


NOTSNS 


BR IF ZNZ 


296 


MODS EL 


BAL 


222 


EXCUTE 


BR 


064 


TSTNOP 


BR IF F0P5=1 


250 


TSTADR 


BAL 


040 


SETCUB 


BR IF F0P5=i 
Z=T0QK03 


073 


GETDS 


BR IF Z=0 
Z=T0nKl0 


070 


TSTIOA 


BR IF HZNZ 
Z=T0nK07 


073 


GETDS 


BR IF LZ=0 
Z=U1*-K03 


073 


GETDS 


BR IF LZ=0 


081 


SETIVR 


BR 
P0=QS 


078 


BALMS 


BR IF Z=0 
P0=0$K04 


265 


SNSSTB 


BAL 


112 


STR04 


BR 


296 


MODS EL 


BAL 


084 


UNSAFE 


BR IF DS2=1 


086 


TSTDS7 


BR IF DSl=i 


336 


ZROSEN 


BAL 
T0=0$K4G 


111 


CONCON 


BR 
P0=0$K80 


076 


STRSEN 


BR 
H0=0$K10 


095 


SKINC 


BR IF DS7=i 


105 


BRANCH 


BR IF DSO=0 


101 


ATNRST 


BR IF DAS 12= 1 


092 


TIG 


BR IF GO BIT7=1 


137 


CCTEST 


BR 

MS^TO 

RDH P DA f B8 


CCGM 154 


CCOB 


BR 


336 


ZRCSEN 


BAL 
Z=T0nK03 


109 


RSTATN 


BR IF LZNZ 
Z^TOQKIO 


109 


RSTATN 


BR IF HZNZ 


222 


EXCUTE 


BR 


319 


RSTATT 


BAL 
H0=0$K04 


105 


BRANCH 


BR IF GO BIT7=1 
HQ = H0$K10 


325 


RSTMOD 


BAL 


115 


MODE 


BR IF GO BIT7=1 



CL0AD=*E60, EC LEVEL=1282U 
COMMENTS 

GET STOR PROTECT KEY 

SET PROTECT KEY 

GET CCW COMMAND 

MASK FOR SENSE OP 

BR IF NOT SENSE 

SELECT MODULE FOR SENSE 

BR IF CONTIN CONECT CLEAR 

TST FOR CONTINGENT CONNECTION 

BR IF CONTIN CONECT 

MASK FOR NO OP 

BR IF NO OP 

MASK FOR HI BIT OF RESTORE 

BR IF NOT RESTORE 

MASK FOR LO BITS OF RESTORE 

BR IF RESTORE 

MASK FOR VALID DEVICE ADDR 

BR IF DA VALID 

GET DISK STATUS 
BR IF NO UN SELECTED STATUS 
SET UNSELECTED STATUS BIT 
STORE SENSE 

BAL TO MOD SELECT 

BR IF UNSAFE 

BR IF ON LINE 

ZERO SENSE BYTES. INVALID 2311 

SET INT REQD 

BR TO SET CONTINGENT CON 

SET UNSAFE FOF SENSE 

PRESET BUSY STATUS 

BR IF SEEK INCOMPLETE 

BR IF NOT READY 

BR IF SELECTED GATED ATTENTION 

BR IF TIO 

BR TO CC TEST OF SI ROUTINE 

DESELECT FILE 

RESTORE CPU P REG 

SET CCO 

MASK FOR LO BITS OF RECAL 
BR IF NOT RECAL 
MASK FOR HI BITS RECAL 
BR IF NOT RECALIBRATE 

BAL TO RESET GATED ATTN 

SET DE BIT 

BR IF TEST I/O 

OR IN BUSY STATUS FOR SIO 

BR IF TEST 10 
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A DOR 


WORO 


SEQUENCE NO. 


LABEL 


0540 


8114 


FILE 


107 




0542 


855A 


FILE 


108 




u544 


8224 


FILE 


109 


RSTATN 


0546 


2A13 


FILE 


110 




0548 


9496 


FILE 


111 


CO NOON 


5 4A 


2643 


FILE 


112 


SFR04 


05 4C 


70A0 


FILE 


113 




054E 


F058 


FILE 


114 


SIOTIO 


0550 


240C 


FILE 


115 


MODE 


0552 


5CC2 


FILE 


116 




0554 


2FC7 


FILE 


117 




5 56 


A01E 


FILE 


118 




0558 


E063 


FILE 


119 


TSTHIO 


5 5A 


234B 


FILE 


120 


TSTPCI 


055C 


5630 


FILE 


121 




055E 


2F85 


FILE 


122 




0560 


C365 


FILE 


123 




0562 


2FC7 


FILE 


124 


ZERCHN 


0^64 


2A07 


FILE 


125 


ZERT 


0^66 


C3ED 


FILE 


126 




0568 


2400 


FILE 


127 




056A 


A 030 


FILE 


128 




0s6C 


5CC7 


FILE 


129 


BAON 






FILE 


130 


AEND 






FILE 


131 


* 






FILE 


132 


* 






FILE 


133 


* 






FILE 


134 


* 






FILE 


135 


* 






FILE 


136 


ASEQ 


03E8 


8114 


FILE 


137 


CCTEST 


OBEA 


3E00 


FILE 


138 




OB EC 


2490 


FILE 


139 




OBEE 


0EC8 


FILE 


140 




OBFC 


2302 


FILE 


141 




0BF2 


2304 


FILE 


142 




0BF4 


3110 


FILE 


143 




0BF6 


30 29 


FILE 


144 




06 F 8 


4F0F 


FILE 


145 




OBFA 


43DF 


FILE 


146 




OBFC 


B344 


FILE 


147 




OBFE 


5FCF 


FILE 


148 




OCOO 


1CFF 


FILE 


149 




0C02 


C4FE 


FILE 


150 




OC04 


4FCF 


FILE 


151 




0C06 


5FCF 


FILE 


152 




0C08 


C4FE 


FILE 


153 




OCOA 


8CCA 


FILE 


154 




OCOC 


58CF 


FILE 


155 




OCOE 


B346 


FILE 


156 




ocio 


5ECF 


FILE 


157 




0C12 


C4FE 


FILE 


158 




0C14 


2310 


FILE 


159 





NEXTSEQ NEXTLABEL STATEMENT 



336 
120 
319 



ZRGSEN 
TSTPCI 
RSTATT 



268 SNSSTC 



119 TSTHIO 



C'COM 123 STATOS 
124 ZERCHN 



125 ZERT 

129 BAON 
CCOM 135 STATUS 



BAL 

BR 

BAL 

T0=0$K0 1 

BAL 

T1=0$K04 

STH U AStT+O 

BR IF GO BIT7=0 

SET MODE K=00 

RDH P DA, B8 

H1=0 

BR IF GO BIT6=1 

V1=V1+K04 

RDH D V+0 

Hi*0$K80 

8R IF Dl BIT4=1 

H1=0 

T0 = 

BR IF BA4=1 

SET MODE K=00 

BR 

STOP 



CL0AD^=*E60, EC LEVEL=1282ii 

COMMENTS 

BAL TO ZERO SENSE BYTES 

BAL TO RESET GATED ATTN 
SET SEEK CHECK SENSE 0-7 
STORE SENSE 



BR IF NOT TIO 

SET CPU MODE AND ZONE 

RESTORE CPU P REG 



BR IF HIO 

ADD 4 TO CCW ADDR 

SET PCI BIT FOR CHNL STATUS 

BR IF PCI IN CURRENT CCW 

ZERO CHANNEL STATUS 

ZERO HI ADDR BYTE 

BR IF IPL 

SET CPU MODE AND ZONE 

BR TO STORE SRATUS AND SET CC 1 
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******** ********************* *********** 

* CYCLIC CODE HARDWARE T 

************ ****** ** ********* *********** 
AL07=68 



336 


ZROSEN 


BAL 




CL 






SET FIB K=i 


80 


SE 






SET MODE K- 


= 09 


SE 






RST FIB K=- 


40 


IN 






SET DIAC K- 


= 10 


SE 






SET DIAC K; 


= 20 


SE 






SET DIAB K= 


= 81 


SE 






Pl=0-K20 




SE 






F0P=P1 




LO 






FEB0=P1 




LO 


243 


PEDS 


BAL 

P0=FOP 

P0=P0QKFF 




TE 
GE 
MA 


212 


ALUCHK 


8R IF ZNZ 

FOP=PO 
PO=FOP 




BR 
RE 
GE 


212 


ALUCHK 


BR IF ZNZ 




BR 


233 


SHIFT8 


BAL 
PO=SDI 




AD 
GE 


244 


XOR 


BAL 
PO = DS 




TS 


212 


ALUCHK 


BR IF ZNZ 




BR 






SET DIAC K: 


= 01 


AD 



******************************* 

** 

EST ** 

** 

******************************* 

EAR THE SENSE BUFFER 

T NTO LATCH 

T FILE MODE AND ZONE 

ITIAL RESET 

T DIAGNOSTIC MODE 

T DIAG INDEX 

T DIAG ADDR 

T CONSTANT DF 

AD OP REG 

AD WRITE BUFFER 

ST FOR CORRECT BITS IN WR BUFF 

T OP REG BITS 

SK FOR CORRECT OP REG BITS 

IF OP REG ERROR 
SET OP REG 
T OP REG BITS 

IF OP REG NOT RESET 
VANCE B IT RING 
T READ BUFF BITS 
T XFER OF WR TO RD BUFF 

IF WR BUFF NOT RESET 
V TO ZONE 1 



AD OR 



HORO SEQUENCE NO* LABEL 



0C16 


2390 


FILE 


160 




OC18 


2013 


FILE 


161 




OC1A 


4FDF 


FILE 


162 




OC1C 


2025 


FILE 


163 




OC1E 


430F 


FILE 


164 




OC20 


3110 


FILE 


165 




QC 22 


8CD6 


FILE 


166 




OC24 


2035 


FT LE 


167 




0C26 


20 IB 


FILE 


168 




OC28 


4FDF 


FILE 


169 




UC2A 


8CCE 


FILE 


170 




UC2C 


5BCF 


FILE 


171 




OC2E 


2085 


FILE 


172 




Ol.30 


3023 


FILE 


173 




OC.32 


8346 


FILE 


174 




0C34 


3073 


FILE 


175 




OC36 


8342 


FILE 


176 




0C38 


3114 


FILE 


177 




0C3A 


8CU2 


FILE 


178 




OC3C 


2DA3 


FILE 


179 




0l3E 


B342 


FILE 


180 




QC40 


1000 


FILE 


181 




QC42 


CAFF 


FILE 


182 




0C44 


2380 


FILE 


183 




GL46 


3114 


FILE 


184 




GC48 


8CD2 


FILE 


185 




QC4A 


2045 


FILE 


186 




0C4C 


3DL3 


FILE 


187 




0C4E 


B342 


FILE 


188 




OC50 


1000 


FILE 


189 




Ou.52 


2390 


FILE 


190 




OC54 


3114 


FILE 


191 




UC 56 


23C8 


FILE 


192 




OC58 


2075 


FILE 


193 




0C5A 


3D A 3 


FILE 


194 




0C5C 


B342 


FILE 


195 




OC5E 


1D00 


FILE 


196 




UC60 


3114 


FILE 


197 




0C6 2 


238C 


FILE 


198 




UC64 


2308 


FILE 


199 




0C66 


203 5 


FILE 


200 




0C68 


30A3 


FILE 


201 




0C6A 


8342 


FILE 


2 02 




UC6C 


1D00 


FILE 


203 




0C6E 


3114 


FILE 


204 




UC70 


2308 


FILE 


205 




OC72 


2D55 


FILE 


206 




OC 74 


30B3 


FILE 


207 




DC 76 


B342 


FILE 


208 




OC78 


1000 


FILE 


209 




OC7A 


2480 


FILE 


210 




UC7C 


8C8C 


FILE 


211 




OC7E 


2100 


FILE 


212 


ALUCHK 



239 SHIFT2 



235 SHIFT6 



244 
242 
237 
242 
212 



XOR 

SET3 

SHIFT4 

SET3 

ALUCHK 



NEXTSEQ NEXTLABEL STATEMENT 



SET OIAC K=09 

Pl=0$KOi 

FQP=Pl 

Pl=0$K20 

FEB0=P1 

SET DIA8 K=81 

BAL 

P1-=0$K30 

P1=P1*K01 

F0P=P1 

BAL 

PO=SDI 

P1=0$K80 

P1=P1$K02 

BAL 

Pi=Pl$K07 

BAL 

SET OIAB K=A1 

BAL 

P1=0$K0A 

BAL 

RST FIA K=80 

BR IF DS4=1 

SET DIAC K=08 

SET DIAB K=Ai 

8AL 

P1=0$K40 

Pl=Pl$KOE 

BAL 

RST FIA K^80 

SET DIAC K^09 

SET OIAB K=A1 

SET DIAC K*40 

P1=0$K70 

Pl^PlSKOA 

BAL 

RST FIA K=80 

SET DIAB K=A1 

SET DIAC K*08 

SET OIAC K=40 

P1=0$K30 

P1=P1$K0A 

BAL 

RST FIA K=80 

SET DIAB K^Al 

SET DIAC K=40 

P1=0$K50 

P1*P1$K0B 

BAL 

RST FIA K«80 

SET MODE K=*08 

BR 

SET DIAB K-00 



237 SHIFT4 



242 SET3 



242 SET3 



242 SET3 



242 SET3 



219 CCNQER 



CLOAD=*E60, EC L£VEL=1282 11 
COMMENTS 

ADV TO ZONE 2€SET SEP DATA 
SET WRITE BIT 
LOAD OP REG 

LOAD WR BUFF 

SET READ G COMPARE GATES 

ADV BIT RING 

SET SCH EQ 10 

f t 
LOAD OP REG 
AOV BIT RING 
GET READ BUFF B I TD 



TST FOR CORRECT WR BUFF SHUFT 

TST FOR CORRECT BITS IN CC REG 
SET READ £ COMPARE GATES 
AOV BIT RING 

TST FOR CORRECT CC DATA 

RST HI LO CC ERR&TRAP LATCHES 

BR IF UNEQUAL NOT RESET 

SET SEPERATED DATA 

SET READ £ COMPARE GATES 

ADV BIT RING 



TEST FOR CORRECT CC DATA 

RST HI LO CC ERR STRAP LATCHES 

ADV TO ZONE 3&SET SEP DATA BIT 

SET READ t COMPARE GATES 

ADV BIT RING 



TEST FOR CORRECT CC DATA 
RST HI LO CC ERR&TRAP LATCHES 
SET READ £ COMPARE GATES 
SET SEP DATA BIT 
ADV BIT RING 



TEST FOR CORRECT CC DATA 
RST HI LO CC ERR STRAP LATCHES 
SET READ & COMPARE GATES 
ADV BIT RING 



TST FOR CORRECT CC DATA 

RST HI LO CC ERR£TRAP LATCHES 

SET FILE NOOE CPU ZONE 

END OF TEST - RESULTS OK 

RST DUG ADDR LATCHES 
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AQOR 


WORD 


SEQUENCE NO* 


LABEL 


QC80 


1E00 


FILE 


213 




OC82 


0E08 


FILE 


214 




0C84 


1210 


FILE 


215 




0C86 


2480 


FILE 


216 




0C88 


3C83 


FILE 


217 




OC8A 


8502 


FILE 


218 




OC8C 


2100 


FILE 


219 


CCNOER 


OC8E 


3E00 


FILE 


220 




0C90 


8C92 


FILE 


221 




0C92 


0EC8 


FILE 


222 


EXCUTE 


0C94 


0E04 


FILE 


223 




0C96 


1210 


FILE 


224 




0C98 


2043 


FILE 


225 




0C9A 


4EDF 


FILE 


22b 




0C9C 


5CC2 


FILE 


221 




OC9E 


2AC7 


FILE 


228 




OCAO 


2490 


FILE 


229 




OCA2 


5E42 


FILE 


230 




0CA4 


863A 


FILE 


231 








FILE 


232 


AENO 


UCCA 


2308 


FILE 


233 


SHIFT8 


JCCC 


2308 


FILE 


234 


SHIFT7 


OCCE 


2308 


FILE 


235 


SHIFT6 


OCOO 


2308 


FILE 


236 


SHIFT5 


OCD2 


2308 


FILE 


237 


SHIFT4 


0CD4 


2308 


FILE 


238 


SHIFT3 


OCD6 


2308 


FILE 


239 


SHIFT2 


OC08 


2308 


FILE 


240 


SHIFT1 


OCOA 


128E 


FILE 


241 




3342 


2112 


FILE 


242 


SET3 


3 344 


5ECF 


FILE 


243 


PEOS 


3346 


6CD1 


FILE 


244 


XOR 


3348 


C4CD 


FILE 


245 




334A 


8C7E 


FILE 


246 




334C 


128E 


FILE 


247 


RETURN 






FILE 


248 


* 






FILE 


249 


* 


7 02 


5C52 


FILE 


250 


TSTAPR 


0704 


F917 


FILE 


251 




0706 


EC16 


FILE 


252 




07C8 


2CC7 


FILE 


253 




U70A 


2043 


FILE 


254 




07CC 


5EC0 


FILE 


255 




070E 


4FCF 


FILE 


256 




OMO 


6F11 


FILE 


257 




0712 


C4S7 


FILE 


258 




0714 


4F0F 


FILE 


259 




0/16 


5CC2 


FILE 


260 


PREST 


0718 


128E 


FILE 


261 








FILE 


262 


* 






FILE 


263 


* 


148E 


2C15 


FILE 


264 


SNSSTA 


1490 


2DC7 


FILE 


265 


SNSSTB 



NEXTSEQ 



NEXTLABEL STATEMENT 







RST 


FIB K=8G 






RST 


FIB K=40 






RST 


MMSK K=81 






SET 


MODE K=08 






P0=1 


3 0$K08 


076 


STRSEN 


BR 








SET 


DIAB K=00 






SET 


FIB K=80 


222 


EXCUTE 


BR 








RST 


FIB K=40 






RST 


FIB K=20 






RST 


MMSK K*81 






Pl = < 


3$K04 






FBO 


= P1 






RDH 


P DA, 88 






T0 = ( 


3 






SET 


MODE K=09 






RDH 


H DA, 98 


T 024 


GETOP 


BR 








SET 


DIAC K=40 






SET 


DIAC K=40 






SET 


DIAC K=40 






SET 


DIAC K=40 






SET 


DIAC K=40 






SET 


DIAC K=40 






SET 


DIAC K=40 






SET 


DIAC K=40 






RTN 








SET 


DIAB K-ll 






P0=i 


DS 






P0 = ! 


POaPl 


247 


RETURN 


BR 


IF Z=0 


212 


ALUCHK 


BR 

RTN 




************************************ 


* 




CONTINGENT CONNECT 






RDH 


P DA,9A 


260 


PREST 


BR 


IF Pi BIT 7=1 


260 


PREST 


BR 


IF PO BIT2=0 



CL0AD=*E60* EC LEVEL=I28211 

COMMENTS 

CHAIN END RESET 
INITIAL RST 

SET FILE MODE-CPU ZONE 
SET ALU CHECK SENSE BIT 

RESET DAAG ADDR LATCHES 
SET NTO LATCH 

INITIAL RST 
CLOLD START 

SET HD SELECT BIT 
HD SELECT TO BUSS 
RESTORE CPU P REG 

SET FILE MODE AND ZONE 

RD OUT CCW NA 

BR TO SIO,TRAP COMMON WORD 
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P0=0 

P1=0$K04 

RDH H AStP*0 

FOP^PO 

Hl^Hiaul 
260 PREST BR IF Z=0 

F0P=P1 

RDH P DA, 88 

RTN 
* SET SENSE BYTES 

****************** *********** ******* 

PO^OSKIO 
Pl^O 



SET DUG ADDR 3 

MASK FOR CORRECT BITS 
BR IF NO ERROR 



*********************************** 
ION TEST - SUBROUTINE ** 

GET SNS BYTES OGl 

BR IF NONSENSE STORED 

BR IF NO UN SENSED SENSE 
SET AUX 
ADDR 0004 

GET I/O ADDR 

ZERO OP REG 

COMPARE I/O ADDRESSES 

BR IF COMPARE EQUAL 

SET OP REG INDICATOR 

RESTORE CPU P REG 



- SUBROUTINE ** 

*********************************** 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


1492 


7C62 


FILE 


266 




1494 


2A15 


FILE 


267 




1496 


3A25 


FILE 


268 


SNSSTC 


1498 


2B07 


FILE 


269 




149A 


7A52 


FILE 


270 




14 9C 


2AC7 


FILE 


271 




149E 


2E23 


FILE 


272 




14A0 


49BF 


FILE 


2 73 




14A2 


128E 


FILE 


274 








FILE 


275 


* 






FILE 


276 


* 






FILE 


277 


* 






FILE 


278 


* 






FILE 


279 


* 


2FEA 


2D95 


FILE 


280 


SETDA 


2FEC 


CE08 


FILE 


281 




2FEE 


21Q0 


FILE 


2 82 




2FFO 


CCDi 


FILE 


283 




2FF2 


2D1B 


FILE 


284 




2FF4 


DCD9 


FILE 


285 




2FF.6 


2D IB 


FILE 


2 86 




2FF8 


ECD5 


FILE 


287 




2FFA 


2D IB 


FILE 


288 




2FFC 


FCOD 


FILE 


289 




ZFF£ 


128E 


FILE 


290 








FILE 


291 


* 






FILE 


292 


* 






FILE 


293 


* 






FILE 


294 


* 






FILE 


295 


* 


2FC6 


2EC7 


FILE 


2 96 


MOOSE L 


2FC8 


5C32 


FILE 


297 




2FCA 


CECB 


FILE 


298 




2FCC 


C965 


FILE 


299 




2FCE 


0965 


FILE 


300 




2F00 


2C85 


FILE 


301 


MODO 


2FD2 


E956 


FILE 


302 




2F04 


2C25 


FILE 


303 


M0D2 


2FD6 


F95E 


FILE 


304 


TEST2 


2FD8 


2C45 


FILE 


305 


MODI 


2FDA 


E95E 


FILE 


306 




2FUC 


2C15 


FILE 


307 


MQD3 


2F0E 


2EC7 


FILE 


308 


SELECT 


2FEO 


4BEF 


FILE 


309 




2FE2 


49CF 


FILE 


310 




2FE4 


4EEF 


FILE 


311 


ENDSEL 


2FE6 


4DEF 


FILE 


312 




2FE8 


128E 


FILE 


313 








FILE 


314 


* 






FILE 


315 


* 






FILE 


316 


* 






FILE 


317 


* 






FILE 


318 


* 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, EC LEVEL=1282ll PAGE 248 
COMMENTS 



STH P DA,9C 
T0=0$K10 
T0=T0$K20 
T1 = 

STH T DA,9A 
T0 = 

H0=0$K02 
MS-T1 
RTN 
*********************************************************************** 

* ** 

* SET DEVICE ADDRESS - SUBROUTINE ** 

* FOR GATED ATTENTION ** 
*********** ******************************************** **************** 



STORE SENSE BYTES 2,3 

SET CONTINGENT CONN IND.SENSEO-2 

STORE SENSE BYTES 0,1 

SET UNIT CHK DEVICE STATUS 
DESELECT MOD 



SET DEVICE ADDR 

GIVE INITL RESET TO RST CHN END 



P1=0$K90 

RST FIB K=40 

SET DIAB K^OO 
301 MODO BR IF FGAO= 1 

Pl=Pi+K01 
305 MODI BR IF FGA1*1 

Pi=Pl*-KOi 
303 M0D2 BR IF FGA2*l 

P1=P1+K01 
307 M0D3 BR IF FGA3^1 

RTN 
*********************************************************************** 

* ** 

* MODULE SELECT - SUBROUTINE ** 

* ♦* 
*********************************************************************** 

H0 = 



BR IF MOD GATED ATT 

BR IF MOD I GATED ATTN 

BR IF MOD 2 GATED ATTN 

BR IF MOD 3 GATED ATTN 



GET I/O ADDR 

GIVE INITL RESET TO RST CHN END 

BR IF DRIVE IS 8 OR HIGHER 

BR IF DRIVE IS 4 OR HIGHER 



RDH P CA f 8E 

RST FIB K=40 
311 ENDSEL BR IF PI BIT4=1 

311 ENDSEL BR IF Pi BIT5=1 

P0=0$K80 
304 TEST2 BR IF Pi BIT6-0 

P0^=0$K20 
308 SELECT BR IF PI BIT7*0 

P0=0$K40 
308 SELECT BR IF PI BIT6=0 

P0=0$K10 

H0 = 

TGRO=H0 

MS=PO 

FBO=HO 

FFO=HO 

RTN 
*********************************************************************** 

* ** 

* RESET GATED ATTENTION - SUBROUTINE ** 

* ** 
*********************************************************************** 



RESET TAG REG 
MOOULE SELECT 
RESET FILE BUS OUT 
RESET CCW FILE FLAGS 



AbDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


0224 


2CC7 


FILE 


319 


R ST ATT 




0226 


4BCF 


FILE 


320 






0228 


2045 


FILE 


321 






022A 


4EUF 


FILE 


322 






022C 


2015 


FILE 


32 3 






022E 


4BDF 


FILE 


324 






0230 


2DC7 


FILE 


325 


RSTMOO 




02 32 


4BDF 


FILE 


326 






0234 


4EDF 


FILE 


327 






0236 


4FDF 


FILE 


328 






0238 


4 90F 


FILE 


329 






02 3A 


128E 


FILE 


330 










FILE 


331 


* 


****: 






FILE 


332 


* 


* 






FILE 


3 33 


* 


* 






FILE 


334 


* 


* 






FILE 


335 


♦ 


**** 


0114 


2CC7 


FILE 


336 


ZROSEN 




0116 


2D13 


FILE 


3 37 






0118 


7C52 


FILE 


338 






011A 


2DG7 


FILE 


339 






one 


7C62 


FILE 


340 






011E 


128E 


FILE 


341 







NEXTLABEL STATEMENT 



CL0AD=*E60, EC LEVEL = 128211 

COMMENTS 
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RESET GATED ATTENTION SUBR 
RESET CONTROL 

FILE BUS 0UT=1BIT 

RAISE CONTROL 

RESET CONTROL 
RESET FILE BUS 
RESET FILE OP REG 
DESELECT MOD 



P0=0 

TGRO=PO 

P1=0$K40 

FB0=P1 

P1=0$K10 

TGRO=Pi 

Pl = 

TGR0=P1 

FB0=P1 

F0P=P1 

MS=P1 

RTN 
*********************************************************************** 

** 
ZERO SENSE BYTES - SUBROUTINE ** 

** 

*********** ***************************** * ****************************** 

P0=0 

P1=0$K01 

STH P DA,9A ZhRO SENSE BYTES 0,1 

P1 = 

STH P DA,9C ZERO SENSE BYTES 2,3 

RTN 
********************************** 

* CROSS REFERENCE FOR CSECT FILE * 
********************************** 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
MLE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



008 
019 
026 
027 
031 
040 
042 
043 
048 
051 
053 
061 
064 
070 
073 
076 
078 
081 
084 
C86 
092 
095 
101 
105 
109 
111 
112 



DCLA 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



113 

Oil 
012 
021 
010 
027 
029 
035 
04 3 
049 
26 
058 
061 
06 7 
037 
085 
074 
072 
079 
080 
090 
087 
089 
088 
097 
0£3 
077 



FILE 
FILE 



013 
033 



FILE 015 



FILE 034 FILE 045 FILE 063 



FILE 
FILE 



039 
218 



FILE 065 FILE 069 FILE 07 1 



FILE 
FILE 



103 
099 
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********************************** 

* CROSS REFERENCE FOR CSECT FILE * 
********************************** 



FILE 


114 


FILE 


042 


FILE 


052 






FILE 


115 


FILE 


IC6 










FILE 


119 


FILE 


114 










FILE 


120 


FILE 


1C8 










FILE 


124 


FILE 


119 










FILE 


125 


FILE 


123 










FILE 


129 


FILE 


126 










FILE 


137 


FILE 


0S1 










FILE 


212 


FILE 


150 


FILE 


153 


FILE 


158 


FILE 


219 


FILE 


211 










FILE 


222 


FILE 


060 


FILE 


100 


FILE 


221 


»'• Il'E 


233 


FILE 


1*4 










FILE 


23t> 


FILE 


170 










FILE 


237 


FILE 


178 


FILE 


185 






FILE 


239 


FILE 


166 










FILE 


242 


FILE 


176 


FILE 


180 


FILE 


188 


FILE 


243 


FILE 


147 










FILE 


244 


FILE 


156 


FILE 


174 






FILE 


247 


FILE 


245 










FILE 


230 


FILE 


038 


FILE 


044 


FILE 


062 


FILE 


260 


FILE 


251 


FILE 


252 


FILE 


258 


FILE 


264 


FINT 


025 










FILE 


265 


FILE 


076 










FILE 


268 


FILE 


111 


FINT 


036 






FILE 


280 


BSYS 


029 


FINT 


027 






FILE 


296 


FILE 


059 


FILE 


078 






FILE 


301 


FILE 


263 










FILE 


303 


FILE 


2£7 










FILE 


304 


FILE 


302 










l- ILE 


305 


FILE 


2E5 










FILE 


307 


FILE 


289 










FILE 


308 


FILE 


304 


FILE 


306 






FILE 


311 


FILE 


2S9 


FILE 


300 






FILE 


319 


BSYS 


030 


FILE 


101 


FILE 


109 


FILE 


325 


FILE 


1C5 










FILE 


336 


FILE 


081 


FILE 


095 


FILE 


107 



FILE 182 FILE 246 



FILE 195 FILE 202 FILE 208 



FINT 033 FINT 035 
FILE 137 



FILT DESCRIPTIVE TEXT 



ENTRY POINIS 
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(0140) THIS IS THE ASSIGNED ADDRESS FOR TRAP ENTRY 
THE OPERATION BRANCHES ON THE CHAINING, 
STATUS MODIFIER, AND UNUSUAL CONDITION 
INDICATORS. THE ROUTINE EITHER READS IN 
THE NEXT CCW OR BRANCHES TO THE ENDING 
SEQUENCE, 

GETOP THIS IS THE NORMAL ENTRY FOR THE INITIAL 

SEQUENCE FO OBTAIN THE FIRST CCW. THE CCW 
IS TESTED FOR VALID FLAGS AND COUNT BEFORE 
BRANCHING FOR A COMMAND DECODE. 

MCHCHK THIS IS A RETURN ENTRY TO THE ROUTINE USED 
AFTER BRANCHING TO THE MACHINE CHECK TRAP 
ROUTINE. 



WRAP 



IPL 



SELSTA 



THIS ENTRY IS FROM THE BWRP ROUTINE TO SET 
THE PROGRAM CHECK STATUS BIT* 

THIS ENTRY IS MADE DURING THE IPL OPERATION. 
THE OPERATION LOOPS ON THE FIRST COMMAND 
UNTIL THE DE TRAP FOR THE RECALIBRATE CLEARS 
THE LOOP CONDITION. THE OPERATION CONTINUES 
WITH THE READ DATA SEQUENCE FOR THE INITIAL 
24 BYTES. 

THIS ENTRY IS USED TO SET THE EQUIPMENT 
SENSE BIT WHEN AN OP REGISTER FAILURE IS 
DETECTED. 



PTRCHK 



THIS ENTRY IS FROM THE BWRP ROUTINE TO SET 
THE PROTECTION CHECK STATUS BIT. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 




NEXTSEQ 


NEXTLABEL 


STATEMENT 






FILT 


001 


T 










2311 FEATURE 






FILT 


002 


ATABLE 


ADDR-0140 








0140 


2222 


FiLT 


003 












LINK V MMSKl^l 


0142 


8DAD 


FILT 

FILT 


009 
010 


A END 




Oil 


TRAP 


N 


N^FFI BITS23 


0620 


94A4 


FILT 


Oil 


TRAP 





071 


NOTCHN 




BR 


0622 


94A4 


FILT 


012 


TRAP 


1 


071 


NOTCHN 




BR 


0624 


862A 


FILT 


013 


TRAP 


2 


016 


FRSTBT 




BR 


0626 


2F 7B 


FILT 


014 


TRAP 


3 








H1=H1*K07 


0o28 


5EE4 


FILT 


015 












H=H+1 


06 2A 


1D00 


FILT 


016 


FRSTBT 










RST FIA Ks=80 


062C 


5CF8 


FILT 


017 












RDH P H+2 


062E 


A96D 


FILT 


018 






060 


PROCHK 


N 


BR IF PL=NZ 


0630 


0C8B 


FILT 


019 












Z=P0nK08 


0632 


F0C2 


FILT 


02 






028 


NOTTIC 




BR IF LZNZ 


0634 


5EF0 


FILT 


021 












RDH H H+0 


0636 


OF 8 3 


FILT 


022 












Z=H1*-K08 


0638 


FOEE 


FILT 


023 






067 


TICCHK 




BR IF LZNZ 


063A 


5CF8 


FILT 


024 


GETOP 










RDH P H+2 


06 3C 


A96D 


FILT 


025 






060 


PROCHK 


N 


BR IF Pi=NZ 


063E 


CC8B 


FILT 


026 












Z=P0nK08 


Ot>40 


C4E1 


FILT 


027 






060 


PROCHK 





BR IF Z=0 


0642 


CDC 9 


FILT 


028 


NOTTIC 




031 


CDBR 




BR IF FFIO^l 



COMMENTS 
TRAP ROUTINE FOR FILES 

SET FILE PRIORITY-STORE BACK UP 



UNLSUAL CONDITION OR NO CHAINING 

STAT MOD AND UNUS COND OR NO CHN 

CMND OR DATA CHAIN-NO UNUS COND 

STATUS MOD AND CMND OR DATA CHN 

ADD 8 TO CCW ADDRESS 

RESET THE TRAP LATCH 

GET CCW BYTES 0S1 

BR IF 2ND BYTE INVALID 

MASK FOR TIC 

BR IF NOT TIC 

GET NEW CCW ADDRESS 

MASK FOR DOUBLE WORD BOUNDRY 

BR IF INVALID ADDRESS 

GET OP 



BR IF DATA CHAIN 



AbDR 


WORD 


SEQUENCE NO. 


LABEL 




NEXT! 


SEQ 


NEXTLAE 


*EL 


STATC 


:MENT 


0644 


4FCF 


FILT 


029 














FOP=PO 


0o46 


F0E1 


FILT 


030 








060 


PRCCHK 





BR IF 


LZ=0 


0648 


5AF8 


FILT 


031 


CDBR 












RDH T 


H+2 


0o4A 


5CF8 


FILT 


032 














RDH P 


H+2 


06 4C 


58F8 


FILT 


033 














RDH I 


H+2 


064E 


CC83 


FILI 


034 














Z=PO*- 


-K08 


0650 


F0E6 


FILT 


035 








063 


PROCHK 


3 


BR IF 


LZNZ 


0652 


4886 


FILT 


036 














1=1 




0o54 


C4E7 


FILT 


037 








063 


PROCHK 


3 


BR IF 


Z=0 


0656 


7E42 


FILT 


038 














STH H 


DA, 98 


0658 


CDF5 


FILI 


039 








043 


DATCHN 




BR IF 


FF 10=1 


065A 


4DCF 


FILT 


040 














FFG=PO 


06 5C 


5C52 


FILT 


041 














RDH P 


DA, 9A 


0G5E 


BB9B 


FILT 


042 






FILX 


007 


DECOOE 


N 


N=FOPL 


Jo 7 4 


4UCF 


FILT 


04 3 


OATCHN 












FFQ=PO 


06 76 


2C07 


FILT 


044 














P0 = 




0678 


2D35 


FILT 


045 














P1=0$K30 


067A 


3D43 


FILT 


046 














Pl=Pl$K04 


06 7C 


5EC0 


FILT 


047 














RDH H 


AS, P+Q 


067E 


8BA3 


FILT 


048 








049 


CDRTN 


N 


N=FGP 


BITS67 


0120 


9752 


FILT 


049 


CDRTN 





FILX 


233 


LASTST 




BR 




0122 


8132 


FILT 


050 


CDRTN 


1 




058 


RDWR 




BR 




0124 


8132 


FILT 


051 


CDRTN 


2 




058 


RDWR 




BR 




0126 


FFAE 


FILT 


052 


CORTN 


3 




056 


TST5 




BR IF 


FQP3=0 


u!28 


OBAO 


FILT 


053 








049 


CDRTN 





BR IF 


FOP 5=0 


012A 


5C52 


FILT 


054 














RDH P 


DA, 9A 


012C 


BiFE 


FILT 


055 






FILX 


088 


FMRETN 




BR 




012E 


OBAO 


FILT 


056 


TST5 






049 


CDRTN 





BR IF 


FOP 5=0 


0130 


CBAO 


FILT 


057 








049 


CDRTN 





BR IF 


F0P4=0 


0132 


5E42 


FILT 


058 


RDWR 












RDH H 


DA, 98 


0134 


86F6 


FILT 


059 






FILX 


184 


CDEND 




BR 




0660 


6EE4 


FILT 


060 


PROCHK 













H=H+2 




0662 


6EE4 


FILT 


061 


PROCHK 


1 










H=H + 2 




0664 


6EE4 


FILT 


062 


PROCHK 


2 










H=H + 2 




06 66 


7E42 


FILT 


063 


PROCHK 


3 










STH H 


DA, 98 


0668 


2F25 


FILT 


064 














Hl=0$K20 


066A 


2EC7 


FILT 


065 














H0 = 




066C 


8E3A 


FILT 


066 






FILX 


412 


2RCSN2 




BR 




066E 


5E42 


FILT 


067 


TICCHK 












RDH H 


DA, 98 


0670 


6EE4 


FILT 


068 














H=H + 2 




0672 


8660 


FILT 


069 








060 


PRCCHK 





BR 








FILT 


070 


ASEQ 


AL07=24 












l<tA4 


5 OFF 


FILT 


071 


NOTCHN 












H1=TGRI 


14A6 


FCBO 


FILT 


072 








083 


NOCPUE 




BR IF 


LZ=0 


1*A8 


DB2E 


FILT 


073 








076 


TSTPRT 




BR IF 


HI BIT5*0 


14AA 


8220 


FILT 


074 






BMCK 


003 


TRAPWD 




BR 




14AC 


2F43 


FILT 


075 


MCHCHK 












H1=0$K04 


14AE 


EB32 


FILT 


076 


TSTPRT 






078 


TSTWRP 




BR IF 


HI BIT6=0 


14B0 


2F15 


FILT 


077 


PRTCHK 












Hi=0$Ki0 


1482 


FB36 


FILT 


078 


TSTWRP 






080 


RSTBC 




BR IF 


HI BIT7=0 


14B4 


2F25 


FILT 


079 


WRAP 












Hi=0$K20 


14B6 


C680 


FILT 


080 


RST8C 












RST BC K=08 


1488 


2 EC 3 


FILT 


81 


OEVSTA 












H0=0$K0C 



CL0AD=*E60, EC LEVEL=1282 11 

COMMENTS 

LOAD THE OP REG 

BR IF INVALID OP 

GET DATA ADDR FROM CCW 

GET CCW BYTES 6£7 

MASK FOR VALID FLAG 

BR IF INVALID FLAG-BITS 567 NZ 

TEST FOR VALID CCW COUNT 

BR IF INVALID CQUNT-COUNT=0000 

SAVE CCW ADDR 

BR IF DATA CHAIN 

SET CCW FLAGS IN HARDWARE 

GET PREVIOUS OP AND FILE MASK 

BR TO DECODE THE OP 

SEI FLAGS IN HDWR 

SET 
AUX ADDRESS 

0034 
GET ADDR OF NEXT BYTE-SK SNS DC 

SENSE OP TEST FOR LAST BYTE 



CTL OP-BR IF SEEK 

BR IF SEEK 

GET FILE MASK BYTE 

RETURN TO SET FILE MASK 



GET CCW ADDR 

CORRECT THE CCW ADDRESS 
CORRECT THE CCW ADDRESS 
CORRECT THE CCW ADDRESS 
SAVE THE CCW ADDRESS 
SET PROGRAM CHECK FOR STATUS 
ZERO DEVICE STATUS 

GET CCW ADDR 
UPDATE CCW ADDR 



GET CPU DETECTEO ERRORS 

BR IF NO CPU DETECTED FILE ERROR 

BR IF NOT MACHINE CHECK 

STORE LOG OUT AND RETURN 
SET CHAN CTL CHK FOR STATUS 
BR IF NOT STORAGE PROTECT 
SET PROTECTION CHK FOR STATUS 
BR IF NOT STORAGE WRAP 
SET PROGRAM CHK FOR STATUS 
RST CPU ERROR LATCHES FOR FILE 
SET CE+DE FOR STATUS 
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ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


14BA 


957A 


FILT 


082 




178 


TSTSM 


BR 


14BC 


2FC7 


FILT 


083 


NOCPUE 






Hi = 


14BE 


C1B8 


FILT 


084 




081 


DEVSTA 


BR IF DAS 14=0 


14CO 


E5FE 


FILT 


085 




116 


NOTGAT 


BR IF DAS 1 2=0 


14C2 


2D45 


FiLT 


086 








P1=0$K40 


1404 


4EDF 


FILT 


087 








FB0=P1 


1406 


2E15 


FILT 


088 








H0=0$K10 


1408 


4BEF 


FIIT 


089 








TGR0=H0 


14CA 


2E43 


FILT 


090 








H0=0$K04 


14CC 


4BFF 


FILT 


091 








TGRO=Hl 


14CE 


1000 


FILT 


092 








RST FIA K = 80 


1400 


4EEF 


FILT 


093 








FBO=H0 


14D2 


FB06 


FILT 


094 




096 


TSTBA 


BR IF FOP7=0 


14D4 


B2.36 


FILT 


09 5 




FILX 113 


NTORST 


BR 


1406 


C3FD 


FILT 


96 


TSTBA 


115 


RTNWD 


BR IF BA4=i 


14D8 


FD59 


FILT 


097 


IPL 


097 


IPL 


BR IF PI BIT3=1 


14DA 


5E42 


FILT 


098 








RDH H DA, 98 


14DC 


6EE6 


FILT 


099 








H=H~2 


I4DE 


6EE6 


FILT 


100 








H=H~2 


14E0 


5CF8 


FILT 


101 








RDH P H+2 


1<+E2 


4DCF 


FILT 


102 








FFO=P0 


14E4 


2C63 


FILT 


103 








P0=0$K06 


L4E6 


4FCF 


FILT 


104 








F0P=P0 


14E8 


5C5 2 


FILT 


105 








RDH P DA,9A 


14EA 


2CC7 


FILT 


106 








P0=0 


14EC 


F8EC 


FILT 


107 


WTEIND 


107 


WTEIND 


BR IF FGA7=0 


14EE 


70 5 2 


FiLT 


108 








STH P CA,9A 


14F0 


0E04 


FILT 


109 








RST FIB «=2G 


14F2 


3D00 


FILT 


no 








SET FIA K=80 


14F4 


20 15 


FiLT 


111 








P0=0$K10 


14F6 


4BCF 


FILT 


112 








TGRO=PO 


I4F8 


6EE4 


FILT 


113 








H=H + 2 


14FA 


C3FB 


FILT 


114 


fcTEBA 


114 


WTEBA 


BR IF BA4=1 


14FC 


0222 


FILT 


115 


RTNWD 






RTN V MMSK1=0 


14FE 


CA86 


FILT 


116 


NOTGAT 


120 


TSTTC 


BR IF DS4=0 


1300 


DF87 


FILT 


117 




120 


TSTTC 


BR IF F0P1=1 


1502 


4BFF 


FILT 


118 








TGRO=Hl 


1>04 


A37E 


FILT 


119 




FILX 295 


TRPRTN 


8R 


1306 


5ADF 


FILT 


120 


TSTTC 






P1 = TC 


1^08 


C4BC 


FILT 


121 




147 


ERRTST 


BR IF ZNZ 


15GA 


506 2 


FILT 


122 








RDH P DA,9C 


150C 


CA9F 


FILT 


123 




132 


SWITHD 


BR IF DS4=1 


130E 


5B0 


FILT 


124 




147 


ERRTST 


BR IF DASIO=0 


1510 


5B0F 


FILT 


125 








PO=SDI 


1512' 


6001 


FILT 


126 








PO=POnPl 


1514 


FC98 


FILT 


127 




129 


NOCOMP 


BR IF LZNZ 


13 16 


8E0C 


FILT 


128 




FILX 389 


SETCTL 


BR 


1518 


20C7 


FILT 


129 


NOCGMP 






P1 = 


15 1A 


20 13 


FILT 


130 


SKCHK 






P0=0$K01 


151C 


956A 


FILT 


131 




170 


CHANZ 


BR 


151E 


5E52 


FILT 


132 


SWITHD 






RDH H DA,9A 


1520 


EB31 


FILT 


133 




141 


FIPRO 


BR IF HI BIT6=l 


1522 


0032 


FILT 


134 




142 


NOSEEK 


BR IF PI BITO=0 



CLOAD=*E60 f EC LEVEL=1282 1i 

COMMENTS 



BR IF NO UNUSUAL CONDITIONS 

BR IF NOT SEL GATED ATTENTION 

SET READ GATE BIT 

PUT RD GATE ON BUSS TO FILE 

SET CTL TAG BIT 

ISSUE CTL PULSE 

SET SELECT HEAD BIT 

RESET TAGS 

RESET TRAP LATCH 

PUT HD SEL ON BUSS 

BR IF FROM IPL 

GET NEXT CCW 
BR IF IPL LATCH IS ON 
WAIT FOR DEVICE END FROM RECAL 
GET CCW ADDR 

DECREMENT CCW ADDR 
TO FLAG BYTE 
GET FLAGS 

SET FLAGS IN FLAG REG 
SET READ DATA BITS 
SET READ DATA IN OP REG 
GET PREVIOUS OP I ND 
SET PREV OP 
WAIT FOR INDEX 
STORE PREVIOUS OP 
COLD START RESET 
ISSUE GO PULSE 
SET CONTROL BIT 
SET CTL TAG 
RESTORE CCW ADDR 
IF IPL LATCH ON WAIT HERE 
RETURN FROM TRAP 
BR IF NOT TRAP GATE 
BR IF MULTI-TRACK BIT ON 
RESET TAG REG 

GET TERMINATING CONDITIONS 
BR IF ANY ERRORS 
GET BUFFERED SEEK DATA 
BR IF HEAD SWITCH TIME 
8R IF NOT COMPARE HA 
GET HA FROM READ BUFFER 
COMPARE HEAD NUMBERS 
BR IF AT WRONG HEAD 

ZERO SENSE BYTE 1 

SET SEEK CHK FOR SENSE 

GET FILE MASK ALG 
BR IF FILE PROTECTED 
BR IF NO PREV SEEK 
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ADDK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABE 


L STATEMENT 


1524 


2D1B 


FILT 


135 








P1=P1+K01 


1:>26 


7C62 


FILT 


136 








STH P DA,9C 


1528 


5DF9 


FILT 


137 








H1 = P1 


1:>2A 


ODAB 


FILT 


138 








Z=P1QK0A 


152C 


F0B5 


FILT 


139 




143 


HDSEUC 


BR IF LZ=Q 


152E 


8D04 


FILT 


140 




FILX 361 


GETCYL 


BR 


lt>30 


A3D8 


FILT 


141 


FIPRO 


FILX 334 


PROTEC 


BR 


1532 


669C 


FILT 


142 


NOSEEK 


FILX 139 


INVSEQ 


BR 


1534 


2025 


FILT 


143 


HOSEOC 






P1=0$K20 


15)36 


2CC7 


FILT 


144 








P0=0 


1538 


2FC7 


FILT 


145 








H1 = 


1^3A 


956A 


FILT 


146 




170 


CHANZ 


BR 


1-5 3C 


2DC7 


FILT 


147 


ERRTST 






P1=0 


it>3E 


2C45 


FILT 


148 








P0=0$K40 


15 40 


OEEA 


FILT 


149 




170 


CHANZ 


BR IF DSl^O 


1342 


2E65 


FILT 


150 








H0=0$K80 


1544 


EED9 


FILT 


151 




161 


EQUCHK 


BR IF DS2=i 


1546 


FA9B 


FILT 


152 




130 


SKCHK 


BR IF DS7=1 


1548 


5ACF 


FILT 


153 








PO=TC 


154A 


C4DC 


FILT 


154 




163 


SETSNS 


BR IF ZNZ 


154C 


7C6 2 


FILT 


155 








STH P 0A,9C 


154E 


2EC3 


FILT 


156 








HO=0$KOC 


15 50 


D8F5 


FILT 


157 




175 


SETUEX 


BR IF FGA5=1 


15 52 


C8F7 


FILT 


158 




176 


STR9A 


BR IF FGA4^i 


1554 


2DC7 


FILT 


159 


SELSTA 






P1=0 


1556 


2E15 


FILT 


160 








H0=0$K10 


1558 


2C15 


FILT 


161 


EQUCHK 






P0=0$K10 


155A 


956C 


FILT 


162 




171 


STR9C 


BR 


155C 


5CDB 


FILT 


163 


SETSNS 






P1=P0H 


155E 


ICF5 


FILT 


164 








P0=P0*-KF0 


1560 


ED64 


FiLT 


165 




167 


TSTMAM 


BR IF PI BIT2=0 


1562 


3083 


FILT 


166 








P1=P1$K08 


1564 


F068 


FILT 


167 


TSTMAM 


169 


STRIP 


BR IF Pi BIT3=0 


1566 


3023 


FiLT 


168 








P1=P1$K02 


1568 


1035 


FILT 


169 


STRIP 






P1=P1*-K30 


156A 


2EC7 


FILT 


170 


CHAN2 






H0=0 


156C 


7E62 


FILT 


171 


STR9C 






STH H DA,9C 


156E 


2EE3 


FILT 


172 








H0=0$K0E 


1D70 


3C25 


FILT 


173 








P0=P0SK20 


1572 


D8F6 


FILT 


174 




176 


STR9A 


BR IF FGA5=0 


1574 


3E13 


FILT 


175 


SETUEX 






HO=H0$K0l 


1576 


7C52 


FILT 


17b 


STR9A 






STH P DA f 9A 


15?8 


2F07 


FILT 


177 








H1=0 


15 7A 


FOFE 


FILT 


178 


TSTSM 


180 


TSTPCI 


BR IF FFI3=0 


157C 


3E45 


FILT 


179 








H0=H0$K40 


157E 


C982 


FILT 


180 


TSTPCI 


182 


RSTTRP 


BR IF FFI4=0 


1580 


3F85 


FILT 


181 








Hl=Hi$K80 


1582 


1004 


FILT 


182 


RSTTRP 






RST FIA K=A0 


1584 


C8 8D 


FILT 


183 




187 


SETICL 


BR IF FGA4=1 


15 86 


F9 8F 


FILT 


184 




188 


ZERT 


BR IF FFI7=1 


1588 


4886 


FILT 


185 








1=1 


158A 


C48F 


FILT 


186 




188 


ZERT 


BR IF Z=0 


158C 


3F45 


FILT 


187 


SETICL 






Hl=Hl$K40 



CL0AD=*E60, EC LEVEL=128211 

COMMENTS 

ADD 1 TO HEAO NUMBER 
STORE NEW HD 

MASK FOR HO 10 

BR IF END OF CYL-HD 10 



SET END OF CYL FOR SENSE 
ZERO SENSE BYTE 
ZERO CHAN STATUS 



PRESET INTERVENTION REQ SNS 

BR IF NOT READY 

PRESET UNSAFE SENSE 

BR IF UNSAFE 

BR IF SEEK CHECK 

GET TERMINATING CONDITIONS 

BR IF ANY ERRORS 

STORE SNS BYTE 2 

SET CE+DE FOR STATUS 

BR IF UNIT EXCEPTION 

BR IF ICL 

SET U SELECTED STATUA FOR SNS 
SET EQUIPMENT CHF FOR SNS 

SET SENSE BYTE 1 

STRIP EXTRA BITS FROM SNS BYTE 

BR IF NOT NO REC FOUND 

SET NO REC FOUND SENSE 

BR IF NOT MISSING ADDR MARK 

SET MISS AM FOR SENSE 

STRIP EXTRA BITS FROM SNS BYTE 1 

ZERO SNS BTTE 2&CHAN STATUS 

STORE SNS BYTE 2 

SET CE+DE+UC FOR STATUS 

SET CONTINGENT CONNECTION BIT 

BR IF NO UNIT EXCEPTION 

SET UNIT EXCEPTION IN STATUS 

STORE SNS BYTES 0£1 

ZERO CHAN STATUS 

BR IF MO STATUS MOD 

SET STAT MOD STATUS 

BR IF NOT PCI 

SET PCI IN STATUS 

RESET PCI AND TRAP LATCHES 

BR IF INCORRECT LENGTH 

BR IF SLI 

TEST FOR CCW COUNT 

BR IF LENGTH OK 

SET ICL FOR STATUS 
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ADDR 


fcORD 


SEQUENCE NO. 


LA8EL 


I58E 


2AC7 


FILT 


188 


ZERT 


1590 


CF83 


FILT 


189 




1592 


C496 


FILT 


190 




1594 


EA20 


FILT 


191 




1596 


2B43 


FILT 


192 


SETAUX 


1598 


3B15 


FILT 


193 




159A 


5C42 


FILT 


194 




159C 


7£A8 


FILT 


195 




159E 


7CA0 


FiLT 


196 




15A0 


8E40 


FILT 


197 


PASS 






FILT 


198 


AEND 



CL0AD=*E60, EC L£VEL=1282U PAGE 255 
NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

T0=0 

Z=H1*~K08 TST FOR CHAN ERROR STATUS 

192 SETAUX BR IF ZNZ BR IF HAO ERROR 

197 PASS BR IF HO 8IT6=0 BR IF NO UNIT CHECK 

T1=0$K04 SET AUX AOOR 0014 T/ 

T1=T1$K10 ADDR CE AIO BUFFER 

ROH P DA,98 GEI FAILING CCW ADDR+8 

STH H AS,T+2 STORE ERROR STATUS IN AUX 0014 

STH P AS f T+0 STORE ERROR CCW AOOR IN AUX 0016 
FILX 415 CHNEND BR 

*********** ************** ********* 

* CROSS REFERENCE FOR CSECT FILT * 
********************************** 



FILT Oil FILT 0C9 

FILT 016 FILT 013 FILX 087 FILX 116 

FiLT 024 FILE 231 

FILT 028 FILT 020 

FILT 031 FILT 028 

FILT 043 FILT 039 

FILT 049 FILT 048 FILT 053 FiLT 056 FILT 057 

FILT 056 FILT 052 

FILT 058 FILT 050 FILT 051 

FILT 060 FILT 018 FILT 025 FILT 027 FILT 030 FILT 069 

FILT 063 FILT 035 FILT 037 

FILT C67 FILT 023 

FILT 071 FILT Oil FILT 012 

FILT 075 BMCK 038 

FILT 076 FILT 073 

FILT 077 BfcRP 022 

FILT 078 FILT 076 

FILT 079 BWRP 013 

FILT 080 FILT 078 

FILT 081 FILT 064 

FILT 083 FILT 072 

FILT 096 FILT 094 

FILT 097 FILT 0S7 FILX 329 

FILT 107 FILT 1C7 

FILT 114 FILT 114 

FILT 115 FILT 0S6 

FILT 116 FILT 0£5 

FILT 120 FILT 116 FILT 117 

FILT 129 FILT 127 

FILT 130 FILT 152 

FILT 132 FILT 123 

FILT 141 FILT 133 

FILT 142 FILT 134 

FILT 143 FILT 139 

FILT 147 FILT 121 FILT 124 

FILT 159 FILX 0C7 

FILT 161 FILT 151 

FILT 163 FILT 154 

FILT 167 FILT 165 



FILT 


169 


FILT 


167 


FILT 


170 


FILT 


131 


FILT 


171 


FILT 


162 


FILT 


175 


FILT 


157 


FILT 


176 


FILT 


158 


FILT 


178 


FILT 


062 


F ILT 


180 


FILT 


178 


MLT 


182 


FILT 


180 


FILT 


187 


FILT 


183 


FILT 


188 


FILT 


184 


FILT 


192 


FILT 


190 


FILT 


197 


FILT 


191 



CLQA0=*E60, EC LE VEL-128'211- PAGE 256 
********************************** 

* CROSS REFERENCE FOR CSECT FILT * 
********************************** 



FILT 146 FILT 149 



FILT 174 



FILT 186 



FILX DESCRIPTIVE TEXT 



ENTRY POINTS 
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DECODE N THIS ENTRY IS FROM THE FILT ROUTINE TO 
DECODE THE COMMAND. A SIXTEEN WAY BRANCH 
MAKES THE INITIAL COMMAND SELECTION ON THE 
FOUR LOW ORDER BITS. FINAL SELECTION AND 
VERIFICATION OF EACH COMMAND IS MADE BEFORE 
PROCEEDING TO THE EXECUTION SEQUENCE* 

NTORST THIS ENTRY PROVIDES A RESET OF THE NTO 

LATCH TO ALLOW ORIENTING THE FILE FOR THE 
NEXT COMMAND, IT IS USED FOLLOWING THE 
DE TESTING FOR A CONTROL COMMAND* 

INVSEQ THIS ENTRY SETS THE INVALID SEQUENCE AND 
COMMAND REJECT SENSE BITS. IT IS USED 
FROM VARIOUS POINTS THAT DETECT COMMAND 
SEQUENCE ERRORS* 

GET8E THIS IS AN ENTRY USED TO END THE MICRO- 
ROUTINE FOR THE COMMAND. IF THE OPERATION 
ORIGINALLY ENTERED THE ROUTINE DURING THE 
INITIAL SEQUENCE, THE ACTIVE BIT IS SET 
AND THE OPERATION RETURNED TO ICYCLES. 
WHEN THE ROUTINE IS ENTERED THROUGH THE 
TRAP, THE OPERATION ENDS WITH RETURN FROM 
TRAP. 



PROTEC THIS ENTRY IS USED TO SET THE CONTINGENT 
CONNECTION INDICATOR AND THE FILE PROTECT 
SENSE BIT BEFORE SETTING THE SENSE BYTES 
TO END THE OPERATION. 

GETCYL THIS ENTRY IS USED TO ENTER THE SEEK 
ROUTINE FOR A HEAD ADVANCE DURING A 
MULTIPLE TRACK READ OR SEARCH OPERATION. 

SETCYL THIS ENTRY IS USED TO REINITIATE THE READ 
OR SEARCH OPERATION AFTER TESTING FOR A 
SUCCESSFUL HEAD COMPARE FOLLOWING A 
MULTIPLE TRACK HEAD ADVANCE. 

ZR0SN2 THIS IS AN ENTRY INTO THE CHAIN END SEQUENCE 
ROUTINE THAT FIRST RESETS SENSE BYTE 2 
BEFORE ENTERING THE NORMAL ENDING SEQUENCE. 

CHNEND THIS IS THE NORMAL CHAIN END SEQUENCE ENTRY 
USED TO SET THE INTERRUPT BUFFER AND THE 
INTERRUPT LATCH. THE RETURN FROM TRAP 
OCCURS AFTER RESETTING THE FILE CONTROL OP 
AND FLAG REGISTERS- 



TRPRTN THIS ENTRY IS USED TO RESTART A RECALIBRATE 
OR SEEK OPERATION THAT WAS STOPPED BECAUSE 
THE FILE WAS STILL ERASING. THE EXIT WAS 
MADE FROM THE ROUTINE WITHOUT RESETTING THE 
COMMAND DATA. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 







FILX 001 


T 








FILX 002 


* 








FILX 003 


* 








FILX 004 


♦ 








FILX 005 


* 








FILX 006 


* 




0!>80 


9554 


FILX 007 


DECODE 





Ot>82 


8FFD 


FILX 008 


DECODE 


1 


0584 


EFB8 


FILX 009 


DECODE 


2 


0i>86 


EFD6 


FILX OiO 


DECODE 


3 



2311 FEATURE COMMAND VERIFICATION AND EXECUTION 

****************************** ******** ********************************* 
* ** 

* FILE OP DECODE - COMMON ** 

* ** 
*********************************************************************** 

FILT 159 SELSTA BR OP REG FAILURE SET EQUIP CHK 

173 ERASE N N=FOP BITS23 ERASE OR SEARCH ID 

049 IPLRCT BR IF F0P2=0 READ IPL OR READ COUNT 

069 CTLGP BR IF F0P2=0 NO OP OR RECALIBRATE 



A DOR 


WORD 


SEQUENCE NO. 


LABEL 




0588 


9774 


FILX 


Oil 


DECODE 


4 


058A 


8F90 


FILX 


012 


DECODE 


5 


5 8C 


EFCC 


FILX 


013 


DECODE 


6 


J58£ 


EFD6 


FILX 


014 


DECODE 


7 


0D90 


86AC 


FILX 


015 


DECODE 


8 


0592 


8FBD 


FILX 


016 


DECODE 


9 


5 94 


EFC8 


FILX 


017 


DECODE 


A 


•J -j 96 


EFD6 


FILX 


018 


DECODE 


B 


J:>9d 


86AC 


FILX 


019 


DECODE 


C 


059A 


8F0D 


FILX 


020 


DECODE 





059C 


EFC6 


FILX 


021 


DECODE 


E 


059E 


EF91 


FILX 


022 


DECODE 


F 


05A0 


0F9i 


FILX 


023 






J5A2 


5E32 


FILX 


024 






05 A 4 


FFF2 


FILX 


02 5 






0t>A6 


3E00 


FILX 


026 






05A8 


C02C 


FILX 


027 






5 A A 


8 69C 


FILX 


028 


SEQ 




05F2 


0E2D 


FILX 


029 


SPACE 




U5F4 


F5AB 


FILX 


030 






05F6 


EC31 


FILX 


031 






05F8 


2C3 3 


FILX 


032 






5FA 


4FCF 


FILX 


033 






5FG 


5D00 


FILX 


034 






05FE 


3DB5 


FILX 


035 






0600 


5E4 2 


FILX 


036 






U602 


86EA 


FILX 


037 






5 AC 


IE45 


FILX 


038 


RMVSIO 




05AE 


7E32 


FILX 


039 






05B0 


2CC7 


Ff LX 


040 


PI.ND 




05B2 


FFE1 


FILX 


041 






J:>B4 


F8B4 


FILX 


042 


SCINDX 




0!>B6 


B228 


FILX 


043 










FILX 


044 


* 








FILX 


045 


* 








FILX 


046 


* 








FILX 


047 


* 








FILX 


048 


* 




u5Q8 


FFC8 


FILX 


049 


IPLRCT 




05BA 


DF9i 


FILX 


050 






OdOC 


COil 


FILX 


051 






O^BE 


3E00 


FILX 


052 






05C0 


F5Ci 


FILX 


053 


IPLRD 




05C2 


2C65 


FILX 


054 






05C4 


4DCF 


FILX 


055 






05C6 


A39A 


FILX 


056 






05C8 


FF90 


FILX 


057 


RDHA 




05CA 


86EA 


FILX 


058 


SETPO 




05CC 


E851 


FILX 


059 


RDDARO 




05CE 


F84A 


FILX 


060 


RDCKD 




5 DO 


FFCB 


FILX 


061 


SMTST 




0502 


01CA 


FILX 


062 






504 


8694 


FILX 


063 







NEXTSEQ NEXTLABEL STATEMENT 



195 

125 
059 

069 
147 
141 
057 
069 
147 
157 
060 
015 
015 



SENSE 
WRDARO 
RDDARO 
CTLOP 

I-NVCMN 

WRHA 

ROHA 

CTLOP 

INVCMN 

WRKD 

RDCKD 

DECODE 

DECODE 



079 

042 

106 

***** 

* 

♦ 

* 

***** 
058 
015 
015 



BR 
N N^FOP 8ITS23 
BR IF F0P2=0 
BR IF FGP2=0 
BR 
N N=FOP BITS23 
BR IF F0P2=0 
BR IF FOP2=0 
BR 
N N=FQP BITS23 
BR IF F0P2=0 
8 BR IF F0P2=1 
8 BR IF FOP 1*1 
RDH H DA, 8E 
BR IF F0P3^0 
SET FIB K=80 
RMVSIO BR IF Pi BITO^O 

INVSEQ BR 

RMVSIO BR IF HO BITl^i 

SEQ BR IF DAS 13*1 

PINO BR IF PO BIT2=l 

P0*0$K03 
FOP*PO 
P1*P1L 
Pi=Pl$KBO ., 
RDH H DA, 98 
BR 

H0*HO*-K40 
STH H DA f 8E 
P0*0 

BR IF F0P3*i 
BR IF FGA7=0 
BR 



029 SPACE 



038 
139 
038 

028 
040 



178 RSPOGO 



CLOAD=*E60t EC LEVEL=1282 11 
COMMENTS 

SENSE OP 

WRITE DATA OR RO 

READ DATA OR RO 

SEEK OR RESTORE 

INVALID CMND 

WRITE HA OR SEARCH KEY 

READ HA 

SEEK CYL OR SEEK HD 

INVALID CMND 

WR ITE KEY &DATA OR SCAN 

READ COUNT KEY DATA 

SET FILE MASK OR SPACE COUNT 

BR IF INVALID COMMAND 

GET STATS 

BR IF SPACE COUNT OP 

SET NON TIME ORIENTED 

BR IF SET FILE MASK ALLOWED 

BR IF FIRST OP IN CHAIH 
BR IF ERASE GATE ON 
BR IF CHND FRM SNS,CTL 
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SETFM 
SCINDX 

STRFM 
******** 



******** 
SETPO 

DECODE 
DECODE 



STRIP KEYSDATA BITS FROM OP REG 
SAVE SEEK MASK 
SET MASK TO INH ALL WRITES 
GET CCW ADDR 

SET PREV OP AND GO PULSE 
STRIP CAME FROM SIO STAT 
STORE STATS 
SET PREVIOUS OP 
BR IF SET FILE MASK OP 
WAIT FOR INDEX 
GO STORE PREV OP AND ENO 
********************************************************** 

** 
I PL OR READ COUNT ** 

** 
********************************************************** 



053 IPLRD 



315 
015 
178 
061 
058 
058 
058 
135 



RECAL 

DECODE 

RSPOGO 

SMTST 

SETPO 

SETPO 

SETPO 

SET04 



BR IF F0P3=1 
8 BR IF F0P1=1 
8 BR IF PI BIT0*1 
SET FIB K = 80 
BR IF DAS 1 3= 1 
P0*0$K60 
FFO=PO 
BR 
8 BR IF F0P3=0 
BR 

BR IF PO BIT6=1 
BR IF PO BIT7=0 
BR IF F0P3=U 
BR IF DASI5=0 
BR 



BR IF READ COUNT OP 

BR IF INVALID CMND 

BR IF PREVIOUS SET FILE MASK I PL 

SET NON TIME ORIENTED 

BR IF ERASE GATE ON 

TURN ON CC AND SLI 

SET CNND CHN IN FLAG REG 

GO EXECUTE RECALIBRATE 

BR IF INVALID CMND 

BR IF PREVIOUS SEARCH 

BR IF NO PREV SEARCH 

BR IF READ RO OR READ CKD 

BR IF NO STATUS MODIFIER 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, EC LEVEL=1282 11 
COMMENTS 
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0506 
0508 
050A 
05 DC 
050E 



05E0 
05E2 
05E4 
05 E6 
05E8 
05EA 
05EC 
05EE 
05F0 
31FE 
3200 
3202 
3204 
320C 
320E 
3210 
32 12 
32 14 
3216 
3218 
32 1A 
32 iC 
32 IE 
32 20 
3222 
3224 
32 26 
3228 
322A 
32 2C 
322E 
3230 
32 32 
3234 
3236 
3238 
32 3A 
32 3C 



0F91 
3E00 
2C25 
7C52 
A384 



50B8 
CDE9 
5686 
BiFE 
5886 
C4E6 
7C5 2 
5E42 
86 2A 
0083 
FC84 
EDOC 
97A6 
3013 
2C25 
C916 
F01C 
3DF3 
FD1C 
3DD3 
1015 
C025 
3D85 
DD28 
10F0 
0029 
30A5 
7C52 
2F45 
CD89 
F9B5 
4886 
C488 
DD86 
2EC8 
CE04 
5E42 
86 2A 



FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 



064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
78 
079 
080 
081 
082 
083 
84 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 



CTLOP 



SETFM 



IGNROC 
DC I DEC 



CCWADR 
FMRETN 



INVFM 
NONSNS 



TSTB3 
TSTBO 

TSTB1 

STRFM 
COMEND 



CORLEN 
NTORST 
CLDRST 



***************************** 
* 

* CONTROL OPS 
* 
***************************** 

015 DECODE 8 BR IF F0P1=1 
SET FIB K=80 
P0=0$K20 
STH P DA,9A 

298 CTLS BR 

***************************** 

* 

* SET FILE MA 
* 
***************************** 

RDB PI T + l 



083 OCIDEC 



088 FMRETN 



082 IGNRDC 



FILT 016 FRSTBT 



091 
092 
273 



097 
100 



118 
112 

118 
117 



INVFM 
NONSNS 
CHNS ET 



TSTB3 
TSTBO 



100 TSTBO 



104 TSTBl 



106 STRFM 



106 STRFM 



STASET 
CORLEN 

STASET 

CEADE 



FILT 016 FRSTBT 



BR IF FFIO=l 

1=1-1 

BR 

I^I-l 

BR IF IHl 

STH P DA,9A 

RDH H DA, 98 

BR 

Z=P1*-K08 

BR IF L2NZ 

BR IF PI BIT 

BR 

P1=P1$K01 

P0=0$K20 

BR IF PI BIT 

BR IF PI BIT 

P1=P1$K0F 

BR IF Pi BIT 

P1=P1$K0D 

P1=P1*~K10 

BR IF PI BIT 

Pi=Pl$K80 

BR IF PI BIT 

P1=P1QKF0 

BR IF PI BIT 

P1=P1$KA0 

STH P DA,9A 

H1=0$K40 

BR IF FFI0=1 

BR IF FFI7=1 

1=1 

BR IF ZNZ 

BR IF FFI1=0 

SET FIB K=40 

RST FIB K=20 

RDH H DA, 98 

BR 



****************************************** 

** 
(NTO RESET! ** 

** 
****************************************** 
BR IF INVALID CMND 
SET NON TIME ORIENTED LATCH 
SET PREV OP IND 
STORE PREV OP 

****************************************** 

** 

SK ** 

** 

****************************************** 

GET FILE MASK BYTE 
BR IF DATA CHAIN 
DECREMENT CCW COUNT 

CONTINUE WITH SET FILE MASK 
DECREMENT CCW COUNT 
BR IF COUNT NOT ZERO 
SAVE FILE MASK BYTE 
RESTORE CCW ADDRESS IN H 

GET NEXT CCW FOR DATA CHAIN 
TEST FOR VALID MASK LO 
BR IF MASK INVALID 
BR IF VALID MASK HI 



2=0 



SET NONSENSE STORED BIT 

SET PREVIOUS OP 
4=0 BR IF INH ALL SALLOW ALL SEEKS 
3=0 MASK ALLOWS ALL SEEKS TST WRITES 

SET ALG TO INH ALL SEEKS 
3=0 BR IF ALLOW ALL SEEKS 

SET ALG TO INH SEEKCSEEK CYL 

REMOVE BIT 3 OF ALGORITHM 
0=1 BR IF ALLOW ALLS INH RO-HA-CKD 

SET ALG TO INH SET FILE MASK 
1=0 BR IF ALGORITHM COMPLETE 

SETS ALG TO INHIBIT ALL WRITES 
1=1 BR IF ALG IS COMPLETE 

SET ALG TO INH WR HA-RO-CKD 

STORE FILE MASK AND PREV OP ALGS 

PRESET INCORRECT LENGTH BIT 

BR IF DATA CHAIN 

BR IF SLI ON 

TEST FOR CCW COUNT 

BR IF INCORRECT LEGNTH 

BR IF NOT COMMAND CHAIN 

SER FLAG BITS TO ZERO 

COLD START RESET 

GET CCW ADDR 

GET NEW CCW 



A DDR 

3206 
42 8 
320A 



06 80 
0682 
0684 
0686 
0688 
068A 
068C 
068E 
0690 
0692 
0694 
06 96 
06 9 8 
069A 
069C 
U69E 
06A0 
06A2 
06A4 
6 A 6 
06A8 
06AA 
ObAC 
OoAE 
06B0 
ObB2 
0bB4 
06 B6 
6 88 
6BA 
06BC 
06BE 
06C0 
06C2 
06C4 
06C6 
06C8 
OuCA 
06CC 

06 ce 

06DO 
0602 
0gU4 
J6D6 
06D8 



WORD SEQUENCE NO. LABEL 



NEXfSEQ 



NEXTLABEL STATEMENT 



2F07 
2EC3 

8E3A 



DF88 
DF8E 
86AC 
86AC 
2D10 
E833 
869C 
C81B 
FC1C 
DD36 
3D00 
2C43 
86EE 
D193 
2F15 
8688 
86AC 
86D8 
2C23 
FFE8 
2C83 
CFEC 
2F07 
86B8 
F81C 
D19C 
FD6A 
2F43 
2LA5 
7E52 
2E23 
8E38 
DFBO 
DFC8 
EFEB 
86 AC 
E89D 
E853 
D81C 
ED14 
86B6 
2D 1C 
D1CF 
669C 
DFAD 



FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 



117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 



CEADE 
STASET 



WRDARO 
WRDARO i 
WRDARO 2 
WRDARO 3 
WRDATA 



WRROOP 

P1TEST 

SET 04 



TDASI 
INVSEQ 

WRHA 

WRHA 1 

WRHA 2 

WRHA 3 



INVCMN 

WRKDOP 
DASI5 

FIPROT 
COMRE J 
SETSEN 



WRKD 
WRKD 
WRKD 
WRKD 
WRCKD 



P2TEST 
SETCKD 

WRHAOP 



412 ZR0SN2 
*************** 
* 
* 
* 
*************** 

129 WRCATA 

132 WRROOP 

147 INVCMN 

147 INVCMN 



H1=0 

HO=0$KOC 
BR 
******************** 



CL0AD=*E60, EC LEVEL=l282ll 

COMMENTS 

ZERO CHAN STATUS 

SET CHAN END AND DEVICE END 
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WRITE DATA OR RO (05 



150 
139 
138 
139 
152 



180 
134 

153 

147 
169 



153 
139 
139 
178 



411 
149 
161 
178 
147 
139 
166 
139 
135 
152 

164 
139 
147 



DAS 15 

INVSEQ 

TDASI 

INVSEQ 

FIPROT 



STPO 
P1TEST 

COMREJ 
INVCMN 
WRHAOP 



******************** 
BR IF FOP 1=0 
BR IF FOPl=0 
BR 
BR 

SET FIA K=01 
BR IF PO BIT6=1 



177 TSTOP 



179 DATAOP 



COMREJ 
INVSEQ 
INVSEQ 
RSPOGO 



ZROSTA 

WRKOOP 

WRCKD 

RSPOGO 

INVCMN 

INVSEQ 

SETCKD 

INVSEQ 

SET04 

FIPROT 

P2TEST 
INVSEQ 
INVCMN 



BR 

BR 
BR 



If PO BIT4=1 
IF PO 8IT3=0 



BR IF PI BIT 1=0 

SET FIA K = 80 

P0=0$K04 

BR 

BR IF DAS 15= 1 

H1=0$K10 

BR 

BR 

BR 

P0=0$K02 

BR IF FOP3=0 

P0=0$K08 

BR IF FOP0=O 

H1=0 

BR 

BR IF PO BIT7=0 

BR IF DAS15=Q 
BR IF PI BIT3=0 
H1=0$K04 
HO=0$KAO 
STH H CA f 9A 
H0=0$K02 
BR 

BR IF FOP 1=0 
BR IF F0P1=0 
BR IF F0P2=1 
BR 

BR IF FGA6=1 
BR IF PO BIT6=1 
BR IF PO BIT5=0 
BR IF PI BIT2=0 
BR 

SET FIA K=01 
BR IF DAS 15=1 
BR 
BR IF FOP 1=1 



************************************ 

** 

R 15) ** 

** 

************************************ 
BR IF WRITE DATA OP 
BR IF WRITE RO OP 
INVALID COMMAND DECODED 
INVALID COMMAND DECODED 
SET READ CLOCK CONTROL 
BR IF PREVIOUS SEARCH ID OR KEY 
INVALID SEQUENCE 
BR IF PREVIOUS SEARCH HA 
BR IF NOT PREV WRITE HA 
BR IF FILE PROTECTED 
ISSUE GO PULSE 
SET PREVIOUS OP 

BR IF STATUS MOD&NOT SHORT SCH 
SET INVALID SEQ BIT FOR SENSE 



WRITE HOME ADDRESS 

PRESET SEARCH KEY ALGORITHM 

BR IF SEARCH KEY OP 

PRESET SEARCH HA ALGORITHM 

BR IF SCH HA EQUAL 

ZERO SENSE BYTE 1 

BR IF NO PREV SEARCH 

BR IF NO STATUS MOD 

BR IF NO FILE PROTECT 

SET FILE PROTECT FOR SENSE 

SET CMND REJ&CONTINGENT CONN SNS 

STORE SENSE BYTES Ofil 

SET UNIT CHECK FOR STATUS 

BR IF WRITE KEY DATA OP 

BR IF WRITE COUNT KEY DATA OP 

BR IF SCAN OP 

BR IF ON DEFECTIVE TRACK 

BR IF PREV SCH ID OR KEY 

BR IF NOT PREV WRITE CKD 

BR IF NOT FILE PROTECT 

SET READ CLOCK CONTROL 

BR IF STATUS MOD&NOT SHORT SCH 

BR IF INVALID COMMAND 



AUDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


uoCA 


2C15 


FILX 


170 








P0=0$K10 


5 DC 


DD6D 


FILX 


171 




179 


DATAOP 


BR IF PI BITl=l 


06 DE 


86B6 


FILX 


172 




152 


FIPROT 


BR 


ObEO 


86AC 


FILX 


173 


ERASE 


147 


1NVCMN 


BR 


06fc2 


DFC8 


FILX 


174 


ERASE 1 


161 


WRCKD 


BR IF FOPi*0 


06E4 


8 6 AC 


FILX 


175 


ERASE 2 


147 


INVCMN 


BR 


06E6 


2C33 


FILX 


176 


ERASE 3 






P0 = 0S>K03 


06E8 


CFEC 


FILX 


177 


TSTOP 


179 


DATAOP 


BR IF FOPO^O 


06EA 


2CC7 


FILX 


178 


RSPOGG 






P0 = 


06EC 


3D00 


FILX 


179 


DATAOP 






SET FIA K=80 


06EE 


7C52 


FILX 


180 


STPO 






STH P DA,9A 


06E0 


2C15 


FILX 


181 








PO^OSKIO 


06F2 


4BCF 


FILX 


182 








TGRO=P0 


06F4 


1D0O 


FILX 


183 


GET8E 






RST FIA K>80 


06F6 


5C32 


FILX 


184 


CDEND 






RDH P DA,8E 


06F8 


EC7D 


FILX 


185 




187 


RTNIC 


BR IF PO BIT2==1 


06FA 


0222 


FILX 


186 








RTN V MMSK1=0 


OfcFC 


2C85 


FILX 


187 


RTNIC 






P0=0$K80 


06FE 


7C32 


FILX 


188 








STH P DA,8E 


0700 


B362 


FILX 


189 




CCON 154 


CCOB 


BR 






FILX 


190 


* 


*^*«**^********^**^****^**********^* 






FILX 


191 


* 


* 










FILX 


192 


* 


* 




SENSE L SEEK-SENSE 






FILX 


193 


* 


* 










FILX 


194 


* 


tit********************************* 


1774 


3EC0 


FILX 


195 


SENSE 






SET FIB K=80 


1776 


5FFF 


FILX 


196 








Hi=FOP 


1778 


EODD 


FILX 


197 




199 


SNSEX 


BR IF HZ=0 


177A 


86AC 


FILX 


198 




147 


I NVCMN 


BR 


17 5C 


IC25 


FILX 


199 


SNSEX 






P0=P0*-K20 


1756 


7C52 


FILX 


200 








STH P DA,9A 


1760 


5E32 


FILX 


201 


SKSNS 






RDH H DA,8E 


1762 


1E45 


FILX 


202 








H0=H0*-K40 


1764 


7E3 2 


FILX 


203 








STH H DA f 8E 


1766 


2EC7 


FILX 


204 








H0=0 


1768 


2F25 


FILX 


205 








H1=0$K20 


176A 


3F43 


FILX 


206 








H1=H1$K04 


176C 


FBA6 


FILX 


207 




211 


SNSRD 


BR IF F0P7=0 


176E 


5DB8 


FILX 


208 


SKRD 






RDB PI T+l 


1770 


7DE8 


FILX 


209 








STB PI AStH+I 


17 72 


974E 


FILX 


210 




231 


SKIPON 


BR 


1726 


F92E 


FILX 


211 


SN.SRD 


215 


STROI 


BR IF PI BIT7^0 


1728 


2CC7 


FILX 


212 








P0 = 


172A 


2DC7 


FILX 


213 








P1=0 


172C 


7C62 


FILX 


214 








STH P DA t 9C 


172E 


7CE8 


FILX 


215 


STROi 






STH P AS f H*2 


1730 


5C62 


FILX 


216 








RDH P DA,9C 


17 32 


5EDF 


FILX 


217 








PUDS 


17 34 


1DA3 


FILX 


218 








P1-P1*-K0A 


17 36 


DD3A 


FILX 


219 




221 


DUMPSN 


BR IF PI BIT 1-0 


1738 


3D83 


FILX 


220 








PI-PUK08 


173A 


7CE0 


FILX 


221 


DUMPSN 






STH P AS,H4-0 


173C 


2CC7 


FILX 


222 








P0 = Q 



CLOAD=*E60, EC LEVEL = 1282 11 

COMMENTS 

SET WRITE HA ALGORITHM 
BR IF NOT FILE PROTECT 

INVALID COMMAND***WRlTE SPECIAL 
BR IF WRITE COUNT KEY DATA OP 
INVALID COMMAND DECODED 
SET SEARCH ID ALGORITHM 
BR IF SEARCH EQUAL 
SET PREVIOUS OP ALG 
ISSUE GO PULSE 
STORE PREVIOUS OP ALG 
SET CONTROL BIT 
RA ISE CONTROL TAG 
RESET TRAP LATCH 
GET STATS 

BR IF RETURN TO I CYCLES 
RETURN FROM TRAP 
SET ACTIVE STAT 
STORE STATS 
SET CCO 

** 

COMMON ** 

** 

SET NON TIME ORIENTED 

GET OP 

BR IF VALID OP 

STRIP CONTINGENT CONNECTION BIT 
SAVE ALTERED SENSE 
GET STATS 

REMOVE CAME FROM SI STAT 
SAVE STATS 
SET 
AUX ADDRESS 
0024 
BR IF SENSE OP 
GET A BYTE OF SEEK DATA 
SAVE BYTE IN AUX 

BR IF SENSE IS STORED 

ZERO 

SENSE 

BYTES 
STORE SNS BYTES 0£l IN AUX 
GET SNS BYTE 2 
SET SENSE BYTE 3 
STRIP BITS 4,6 
BR IF NOT ON LINE 
OR IN ON LINE BI T 

ZERO SENSE 
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A OCR 


1*0 RD 


SEQUENCE NO* 


LABEL 


17 3E 


2DC7 


F I L X 


223 




i J40 


3F15 


FILX 


224 




1/42 


7CEA 


FILX 


22 5 




1 744 


1F1D 


FILX 


226 


ADRINK 


1746 


FBEF 


FILX 


227 


TSTFGP 


I 748 


5DE8 


FILX 


228 




17 4A 


05CF 


F 1LX 


229 




17 4 C 


7DB8 


FILX 


230 




174E 


5886 


FILX 


231 


SKIPQN 


17 50 


C4FD 


FILX 


232 




17 52 


CB46 


FILX 


233 


LASTST 


17 54 


iFEB 


FILX 


234 




i /56 


FF44 


FILX 


23 5 




1758 


F8A5 


FILX 


23 6 




17 5A 


B2 2A 


FILX 


237 




172 4 


978E 


FILX 


238 


SKX 


17 7C 


CO SB 


FILX 


239 


TSTCTR 


1776 


CB06 


FILX 


240 




17 BO 


FFG6 


FILX 


241 




1782 


FB8F 


FILX 


2 42 




1 784 


B22A 


FILX 


243 


SLIISN 


1 786 


2F45 


FILX 


244 


SHORT 


1/88 


FBC9 


F ILX 


245 




178A 


F985 


F ILX 


246 




17 8C 


B208 


FILX 


247 




171A 


2C07 


FILX 


24 8 


SETAQR 


171C 


2035 


FILX 


249 




WiE 


3043 


FILX 


250 




172 


7EC0 


FILX 


2 51 




1722 


85EE 


FILX 


252 




1 7C8 


2CU 


FILX 


253 


SKERR 


i 7CA 


F9CE 


FILX 


254 




17CC 


2FC7 


FILX 


255 


CHNZER 


17Cfc 


3CA5 


FltX 


256 


CMREJ 


1 7D0' 


20 C 7 


FILX 


257 




1702 


7C5 2 


FILX 


258 




I JO* 


2EE3 


FILX 


2 59 




17D6 


EE3A 


FILX 


260 




1/8E 


2A07 


FILX 


261 


SEEKQP 


1790 


2B25 


FILX 


262 




1792 


3B43 


FILX 


263 




1794 


5CA8 


FILX 


264 




1796 


4CC6 


FILX 


265 




1/98 


C4A4 


FILX 


266 




179A 


5CAQ 


FILX 


267 




179C 


3BI5 


FILX 


268 




179E 


5EAA 


FILX 


269 




17A0 


6EC5 


FILX 


270 




17A2 


C<tAF 


F 1 1 X 


271 




I7A4 


2C13 


FILX 


272 


S KC H K 


17A.6 


2F45 


f I L X 


2 73 


CHNSET 


17A8 


C0C7 


FILX 


274 




17AA 


F9C2 


FILX 


27 5 





NEXTSEQ 



NEXTLABEL STATEMENT 







P1 = 






H1^H1$K10 






STH P AS,H-2 






'Hl=HlaKiO 


208 


SKRD 


BR IF FQP7=1 

RDB PI AS,H*1 


231 


SKI PON 


BR IF OASIl= 1 
STB PI T+l 
1=1-1 


239 


TSTCTR 


BR IF Z=0 


227 


TSTFOP 


BR IF HI BIT4=0 
Hl=HlaK0E 


226 


ADRINK 


BR IF HI BIT3=0 


238 


SKX 


BR IF F0P7=1 


107 


COMEND 


BR 


261 


SEEKOP 


BR 


248 


SET ADR 


BR IF FFIO^l 


244 


SHORT 


BR IF HI BIT 4=0 


244 


SHORT 


BR IF HI BIT3=0 


261 


SEEKOP 


BR IF F0P7=1 


107 


COMEND 


BR 
H1=0$K40 


253 


SKERR 


BR IF F0P7=l 


243 


SLIISN 


8R IF FF!7=1 


118 


STASET 


BR 

P0^=0 

P1=0$K30 

Pi^Pl$K04 

STH H AStP+O 


086 


CCWAOR 


BR 
P0=0$K01 


256 


CMREJ 


BR IF FFI7=0 

Hi=0 

P0=-P0$KA0 

Pi = 

STH P DA,9A 

HQ-0$KOE 


412 


ZRCSN2 


BR 

TO^O 

T1 = 0$K20 

T1=T1$K04 

ROH P AS,T+2 

P=P 


272 


SKCHK 


BR IF ZNZ 

ROH P AS f T+0 
Ti^TlSKiO 
RDH H AS,T~2 

H0=H0$P0 


280 


SAVCYL 


BR IF Z=0 

P0=0$K01 
Hl*0$K40 


279 


ILON 


6R IF FF 10=* I 


27 7 


TSTI 


BR IF FFI7=0 



CL0AD=*E60, EC LEVEL=12821l 

COMMENTS 

8YTES 4£5 
SET AUX ADDR 003 4 
STORE BYTES 465 IN AUX 
SET AUX ADDR FOR NEXT BYTE 
BR IF SEEK OP 
GET AS SENSE BYTE 
BR IF SKIP I S ON 
STORE A SENSE BYTE 
DECREMENT CCtf COUNT 
BR IF COUNT AT ZERO 
BR IF NOT LAST BYTE 
RESTORE LO AUX AODR 
BR IF NOT LAST BYTE 
BR IF SEEK 



BR IF DATA CHAIN 

Bft IF NOT LAST BYTE 

BR IF NOT LAST BYTE 

BR IF SEEK 

PRESETN INCORECT LENGNTH 
BR IF SEEK OP 
BR IF SL I 

SET AUX 
ADDRESS 
0034 
STORE NEXT BYTE AODR FOR DATA CH 

SET SEEK CHECK FOR SNS 

BR IF NOT SLI 

ZERO CHAN STATUS 

SET CMND REJECTSCONTIN CONN BITS 

ZERO SNS BYTE 1 

STORE SNS 

SET CE&DE&UC 

SET AUX 
ADDRESS 
0024 
GET BYTES 0€1 OF SEEK DATA 

BR IF BYTES ARE NON ZERO 

GET BYTES 2&3 OF SEEK DATA 

SET AUX AOOR 36 

GET BYTES 4£5 OF SEEK DATA 

MASK BYTES 2£4 FOR ZERO 

BR IF BYTES 2€4 ARE VALID 

SET SEEK CHECK FOR SENSE 

SET WtR 

BR IF DATA CHAIN 

BR IF NOT SLI 
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ADDR 


WORD 


SEQUENCE NO, 


LABEL 


L7AC 


97CC 


FILX 


2 76 


NOIL 


1/C2 


4866 


FILX 


111 


TSTI 


17C4 


C4AD 


FILX 


278 




17C6 


97CE 


FILX 


279 


ILON 


17AE 


5DE9 


FILX 


280 


SAVCYL 


17B0 


3B13 


FILX 


281 




17B2 


6BE3 


FILX 


282 




17B4 


F4BA 


FILX 


283 




17B6 


OEFF 


FILX 


284 




17B8 


C4A4 


FILX 


285 




17BA 


2CA3 


FILX 


286 


TSTHD 


1/BC 


7CF3 


FILX 


287 




17BE 


F4A4 


FILX 


288 




17C0 


8DCE 


FILX 


289 








FILX 


290 


* 






FILX 


291 


* 






FILX 


292 


* 






FILX 


293 


* 






FILX 


294 


* 


2J7E 


1D00 


FILX 


295 


TRPRTN 


2i80 


E964 


FILX 


296 




2382 


5C52 


FILX 


297 




2384 


F590 


FILX 


298 


CTLS 


2386 


2D23 


FILX 


299 




2388 


3D15 


FILX 


300 




2 38A 


1D00 


FILX 


301 


RSTwD 


23 8C 


4BDF 


FILX 


302 




238E 


C222 


FILX 


303 


RTN WD 


23E4 


CDE9 


FILX 


304 


CETIME 


23E6 


F9EB 


FILX 


305 




23E8 


8E24 


FILX 


306 


feiLRSET 


23EA 


DD8F 


FILX 


307 


NQWLR 


23EC 


2E83 


FILX 


30 8 




23EE 


8E38 


FILX 


309 




2390 


FFDF 


FILX 


31C 


EXCTLS 


2392 


CBD7 


FILX 


311 




2394 


DBBA 


FILX 


312 




2396 


C959 


FILX 


313 


P4TST 


2398 


FFE2 


FILX 


314 




239A 


2DC7 


FILX 


315 


RECAL 


239C 


4BDF 


FILX 


316 




239E 


2023 


FILX 


317 




23A0 


4EDF 


FILX 


318 




23A2 


2D1B 


FILX 


319 


TMREC 


2 3A4 


F0A2 


FILX 


320 




23A6 


4B0F 


FILX 


321 




23A8 


5E32 


FILX 


322 




23AA 


1000 


FILX 


323 




23 AC 


EEOE 


FILX 


324 




23AE 


2E85 


FILX 


325 




2380 


7E32 


FILX 


326 




23B2 


C3B7 


FILX 


327 




23B4 


B362 


FILX 


32 8 





NEXTSEQ NEXTLABEL STATEMENT 



255 


CHNZER 


BR 

1=1 

BR IF Z=0 


276 


NOIL 


256 


CMREJ 


BR 

H0=P1 
T1=T1$K01 
T1=T1+H0 


286 


TSTHD 


BR IF AC=0 
Z=HOaKFF 


272 


SKCHK 


BR IF ZNZ 

P0=0$K0A 

P0=P0-H1 


272 


SKCHK 


BR IF AC=0 


358 


FWDSET 


BR 


************************************* 
* 


* 
* 




RECALIBRATE OR SEEK 


************************************* 






RST FIA K = 80 


304 


CETIME 


BR IF PI BIT6=0 
RDH P DA,9A 


310 


EXCTLS 


BR IF DAS 13=0 

P1=0$K02 

P1=P1$K10 

RST FIA K = 80 

TGR0=P1 

RTN V MMSK1=0 


306 


WLRSET 


BR IF FF10=1 


307 


NOWLR 


BR IF FFI7=1 



401 


ICL 


BR 


303 


RTNWD 


b<* IF FFU=1 

H0=0$K08 


411 


ZRCSTA 


BR 


330 


TST0P4 


BR IF F0P3=i 


333 


P5TST 


BR IF F0P'*~1 


338 


NOOP 


BR IF F0P5=0 


334 


PROTEC 


BR IF PI BIT4=1 


332 


SKEX 


BR IF F0P3=0 

P1=0 

TGR0=P1 

Pi=0$K02 

FB0=P1 

P1=P1+K01 


319 


TMREC 


BR IF LZNZ 
TGR0=P1 
RDH H DA,8E 
RST FIA K = 8G 


303 


RTNWD 


BR IF HO BIT2=0 

H0=0$K80 
STH H DA,8E 


329 


IPLOP 


BR IF BA4=1 


CCOM 154 


CCOB 


BR 



CL0AD=*E60 f EC LEVEL=i282 1i 

COMMENTS 



MASK FOR CCW COUNT ZERO 
BR IF COUNT ZERO 

SAVE CYL NQ 
SET CONSTANT 35 
MASK FOR VALID CYL NO 
BR IF VALID CYL 
MASK FOR CYL 255 
BR IF INVALID CYL 
SET CONSTANT 
MASK FOR VALID HD 
BR IF INVALID HD 

********************************** 

** 
** 

f AFTER ERASE IS FINISHED ** 
********************************** 

RESET TRAP LATCH 

BR IF CHANNEL END TIME FOE RECAL 

GET FILE MASK ALGORITHM 

BR IF NOT ERASE GATE 

SET TRAP GATE BIT 

SET CONTROL BIT 

RESET TRAP LATCH 

SET TRAP GATE 

RETURN FROM TRAP 

BR IF DATA CHAIN 

BR IF SLI 

BR IF COMMAND CHAIN 

SET CHANNEL END FOR STATUS 

BR IF RECAL RESTORE OR SEEK HD 

BR IF SEEK CYL 

BR IF NO OP 

FULL SEEK OR RECAL-TST FILE PROT 

BR IF FULL SEEK 

ZERO TAG REG 
SET RTN TO 000 BIT 
SET RTN TO 000 ON BUSS 
ADD TO GET TIME OUT 
BR IF NOT TIMED OUT 
SET CONTROL TAG 
GET STATS 
RESET TRAP LATCH 
BR IF CAME FROM TRAP 
SET ACTIVE STAT 
STORE STATS 
BR IF IPL LATCH ON 
SET CCO 
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CLOAD=*E60, EC LEVEL^12l 


AODR 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


23B6 


9408 


FILX 


329 


I PLOP 


FILT 


097 


IPL 


BR 


GO TO IPL WAIT LOOP 


230E 


CBB8 


FILX 


330 


tstop* 




337 


TST0P5 


BR IF FQP4=0 


BR IF RECAL OR RESTORE 


2360 


E959 


FiLX 


331 






334 


PROTEC 


BR IF PI BIT6=l 


SEEK HD TEST FOR FILE PROTECT 


23E2 


9760 


FILX 


332 


SKEX 




201 


SKSNS 


BR 




23C6 


D962 


FILX 


33 3 


P5TST 




332 


SKEX 


BR IF PI BIT5=0 


SEEK CYL TEST FOR FILE PROTECT 


23D8 


2E25 


FILX 


334 


PROTEC 








H0=0$K20 


SET CONTINGENT CONNECTION BIT 


2 3 DA 


2F43 


FILX 


335 










H1=0$K04 


SET FILE PROTECT BIT FOR SNS 


2 3DC 


86BA 


FILX 


336 






154 


SETSEN 


BR 




2388 


DB96 


FILX 


337 


TSTUP5 




313 


P4TST 


BR IF FQP5^0 


BR IF RECALIBRATE 


23BA 


5E32 


FILX 


338 


NOOP 








RDH H DA, 8E 


GET STATS 


23BC 


1E45 


FILX 


339 










H0=H0*-K40 


STRIP SIO IND 


23BE 


FFCE 


FILX 


340 






346 


I SNOOP 


BR IF F0P3=0 


BR IF NO OP 


23C0 


F9CA 


FILX 


341 


NOPSLI 




350 


TSTCP3 


BR IF FFI7=0 


BR IF NOT SLI 


23C2 


CDCB 


FILX 


342 






350 


TST0P3 


BR IF FFI0=1 


BR IF DATA CHAIN 


23C4 


DDCA 


FILX 


343 






350 


TST0P3 


BR IF FFI1=0 


BR IF NOT CMND CHAIN 


2 3C6 


7E32 


FILX 


344 


STRNOP 








STH H DA,8E 


STORE STATS 


2 3C8 


B238 


FILX 


345 






114 


CLORST 


BR 


BR TO GET NEXT CCW 


23CE 


F5C1 


FILX 


346 


I SNOOP 




341 


NOPSLI 


BR IF DASI3^l 


BR IF ERASING 


2300 


COCO 


FILX 


347 






351 


DCIL 


BR IF FF10=1 


BR IF DATA CHAIN 


23D2 


0DC7 


F ILX 


348 






344 


STRNOP 


BR IF FFIi^l 


BR IF COMMAND CHAIN 


23D4 


B2C6 


FILX 


34 9 






117 


CEAOE 


BR 




23CA 


7E32 


FILX 


350 


TST0P3 








STH H DA,8E 


STORE STATS 


23GC 


B22A 


FILX 


351 


DCIL 




107 


COMEND 


BR 








FILX 


352 


* 


*********************************************************************** 






FILX 


353 


* 


* 








** 






FILX 


354 


* 


* 








** 






FILX 


355 


* 


* 






SEEK EXECUTE 


** 






FILX 


356 


* 


*********************************************************************** 






FILX 


357 


ASEQ 


ALQ7^4E 










ODCE 


if 85 


FILX 


358 


F WD SET 








H1=H1$K80 


SET FORWARD INDICATOR 


ouoo 


7E62 


FILX 


35 9 










STH H DA,9C 


SAVE SEEK DATA 


0DD2 


f FD6 


FILX 


360 






362 


GETCAR 


BR IF F0P3=0 


BR IF NOT HEAD SEEK 


0004 


51EF 


FILX 


361 


GETCYL 








HO^FBI 


SET CYL NUMBER FOR HD SEEK 


0DD6 


51CF 


FILX 


362 


GETCAR 








PO=FBI 


GET CYL ADDR TO COMPUTE DIFF 


0D08 


2DC7 


FILX 


363 










PL=0 




ODDA 


4BDF 


FILX 


364 










TGRO=PI 


RESET TAG REG 


ODOC 


2015 


FILX 


365 










Pl=0$K10 


CONTROL TAG&RST HEAD BIT 


ODOE 


7CE3 


FILX 


366 










P0=P0-H0 


COMPUTE DIFFERENCE 


ODEO 


F4E8 


FILX 


367 






371 


RSTHD 


BR IF AO=0 


BR IF DIR FWD-NO RECOMP NEEDED 


00E2 


2CIB 


FILX 


368 










P0=P0-H<01 


ADD CARRY 


0DE4 


iCFF 


FILX 


369 










PO^POnKFF 


RECOMPLIMENT 


0DE6 


5FFD 


FILX 


370 










H1=H1L 


REMOVE FORWARD BIT 


0DE8 


4EDF 


FILX 


371 


RSTHO 








FB0=P1 


PUT RESET HO ON BUSS 


ODEA 


4BDF 


FILX 


372 










TGR0=P1 


SET CONTROL TAG 


OOEC 


2DC7 


FILX 


373 










P1 = 




OOEE 


4BDF 


F ILX 


374 










TGR0=P1 


RESET TAG REG 


ODEO 


4EEF 


FILX 


375 










FB0=H0 


PUT CYL NO ON BUSS 


0DF2 


2E45 


FILX 


376 










H0=0$K40 


SET THE SET CYL BIT 


00F4 


4BEF 


FILX 


377 










TGRO=HO 


PUT SET CYL IN TAG REG 


OOF 6 


4BDF 


FILX 


378 










TGR0=P1 


RESET TAG REG 


0DF8 


4EFF 


FILX 


3 79 










FB0=H1 


PUT HD NO ON BUSS 


OUFA 


2E25 


FILX 


380 










H0=0$K20 


SET THE SET HO BIT 


OOFC 


4BEF 


FILX 


381 










TGR0=H0 


RA ISE SET HD TAG 



PAGE 264 



ADDR 


WORD 


SEQUENC 


:e NO* 


LABEL 


ODFE 


4BDF 


FILX 


382 




OfcOO 


OCFF 


FILX 


383 




OE02 


C496 


FILX 


384 




0604 


2F43 


FILX 


385 




OfcOb 


4EFF 


FILX 


386 




0E08 


2EC3 


FILX 


387 




OEOA 


UFA6 


FILX 


388 




OEOC 


2015 


FILX 


3 89 


SETCTL 


OEOE 


4BQF 


FILX 


39 




Ot 10 


5E42 


FILX 


391 




0E12 


1D00 


FILX 


392 




0E14 


0222 


FILX 


393 




Ofclb 


4ECF 


FILX 


394 


MOTION 


Ofci8 


2F65 


FILX 


395 




0E1A 


4BFF 


FILX 


396 




0E1C 


4B0F 


FILX 


397 




otie 


4EEF 


FILX 


398 




Ot20 


2013 


FILX 


399 




GE22 


4BDF 


FILX 


400 




QL24 


2E83 


FILX 


401 


ICL 


0E26 


2F4 5 


FILX 


402 


IS. SEEK 


0L28 


COBB 


FILX 


403 




0L2A 


F9B1 


FILX 


404 




0E2C 


48 86 


FILX 


405 




0E2E 


C4BA 


FILX 


406 




0E30 


DDB8 


FILX 


407 


SLION 


0E32 


0A36 


FILX 


408 




GE34 


B236 


FILX 


409 




0E36 


86F4 


FILX 


410 


SETA 


OE38 


2FC7 


FILX 


411 


ZROSTA 


0E3A 


2AC7 


FILX 


412 


ZR0SN2 


0E3C 


2BG7 


FILX 


413 




0L3E 


7A62 


FILX 


414 




0E40 


IE 00 


FILX 


415 


CHNENO 


0E42 


1000 


FILX 


416 




0E44 


2EC8 


FILX 


417 




0E46 


5C32 


FILX 


418 




0E48 


C30C 


FILX 


419 




0E4A 


0EC3 


FILX 


420 




Gfc4C 


F0D1 


FILX 


421 




0E4E 


5007 


FILX 


422 


STOP 


0E5Q 


OF 85 


FILX 


423 


CHANTS 


0E52 


C4CE 


FILX 


424 




0E54 


2C07 


FILX 


425 




0E56 


7C32 


FILX 


426 




0E58 


0212 


FILX 


427 




UE5A 


8776 


FILX 


428 




GE5C 


2B43 


FILX 


429 


NOIPL 


0E5E 


7CA8 


FILX 


430 




0E60 


DC6E 


FILX 


431 




0fc62 


7A32 


FILX 


432 




0E64 


C9EA 


FILX 


433 




0E66 


3F85 


FILX 


434 





NEXTSEG NEXTLA8EL STATEMENT 



394 MOTICN 



402 ISSEEK 



412 
407 

412 
411 
410 
11.3 
183 



429 
423 



ZR0SN2 
SLION 

ZRGSN2 

ZRCSTA 

SETA 

NTORST 

GET8E 



NOIPL 
CHANTS 



422 STOP 



DCLL 036 PICKUP 



438 
436 



STRINT 
NOPCI 



TGR0=P1 

Z=P0aKFF 

BR IF ZNZ 

H1=0$K04 

FB0=H1 

H0=0$K0C 

BR IF F0P1=0 

P1=0$K10 

TGR0=P1 

ROH H DA, 98 

RST FIA K=80 

RTN V MMSK1=0 

FB0=P0 

Hi=0$K80 

TGR0=H1 

TGRO^Pl 

FB0=H0 

Pi=0$K01 

TGRO=Pi 

H0=0$K08 

H1=0$K40 

BR IF FFI0=1 

BR IF FFI7^=1 

1 = 1 

BR IF ZNZ 

BR IF FFU^O 

BR IF HO BIT5=0 

BR 

BR 

Hi=0 

T0 = 

T1 = 

STH T DA f 9C 

RST FIB K=80 

RST FIA <=80 

SET FIB K=40 

RDH P 0A,8E 

BR IF BA4=0 

Z=HO*-KOC 

BR IF LZ=0 

STOP 

Z=H1*-K80 

BR IF ZNZ 

P0=0 

STH P CA,8£ 

RST MMSK K«li 

BR 

Ti=0$K04 

STH P AS,T*2 

BR IF PO BIT 1=0 

STH T 0A,8E 

BR IF FFI4=0 

H1=H1$K80 



CL0AD=*E60, EC LEVEL=128211 

COMMENTS 

RESET TAG REG 
MASK FOR ZERO DIFF 
BR IF DIFF NOT ZERO-MOTION SEEK 
SET SELECT HO BIT 
PUT SELECT HO ON BUSS 
SET CE+DE FOR DEVICE STATUS 
BR IF NOT FROM HO SSITCH ROUTINE 
SET CONTROL BIT 
RAISE CONTROL TAG 
GET CCW ADDR 
RESET TRAP LATCH 
RETURN FROM TRAP 
PUT DIFFERENCE ON BUSS 
SETV THE SET DIFF BIT 
RASSE SET DIFF TAG 
RESET TAG REG 
PUT SEEK START ON BUSS 
SET CTL PULSE BIT 
ISSUE CONTROL PULSE 
SET CHANNEL END FOR STATUS 
PRESET INCORRECT LEN STATUS 
BR IF DATA CHAIN 
BR IF SLI I S ON 
TST FOR CCW COUNT 
BR IF ICL 

BR IF NOT CMND CHAIN 
BR IF SEEK HAD MOTION 
GET NEXT CCW 

ZERO CHAN STATUD 



ZERO SENSE BYTE 2 

CHAIN END RESET 

RESET TRAP LATCH 

RESET FLAG BITS 6,7 

GET STATS 

BR IF NOV IPL 

MASK FOR CORRECT DEVICE STATUS 

BR IF DEVICE STATUA OK 

IPL STOP WORD 
MASK FOR GOOD CHAN STATUS 
BR IF CHAN STATUA BAD 
REMOVE ACTIVE STAT 

RESET PRIORITY 

BR TO LOAD PSW 
SET AUX ADOR 0004 
STORE I/O ADDR FOR CONT CONN 
BR IF NOT FROM SCO 
RESET STATS 
BR IF PCI OFF 
SET PCI IN STATUS 



PAGE 265 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXT! 


iEQ 


Jt68 


0004 


FILX 435 








QE6A 


2410 


FILX 436 


NO PC I 






0E6C 


A030 


FILX 437 




CCOM 


135 


0E6E 


7EA0 


FiLX 438 


STRINT 






OE 70 


2D08 


FILX 439 








0E72 


4DAF 


FiLX 440 








0E74 


4FAF 


FILX 441 








0E76 


EC7E 


FILX 442 






446 


0E78 


2C€5 


FILX 443 








0E7A 


7C32 


FILX 444 








OE 7C 


8362 


FILX 445 




CCOM 


154 


0E7E 


0222 


FILX 446 
FILX 44 7 


NORIC 
AENO 







NEXTLABEL STATEMENT 

RST FIA K=20 
SET MODE K=0i 
STATUS BR 

STH H ASfT+O 

SET FIA K=40 

FFO=TO 

FQP=TO 
NORIC BR IF PQ BIT2=0 

P0=0$K80 

STH P DA,8E 
CCOB BR 

RTN V MMSKI=0 



CL0AD=*E60» EC LEVEL=1282 1l 

COMMENTS 

RESET PCI LATCH 

SET CPU MOOE FILE ZONE 

SET CCI 
STORE STATUS IN INTERRUPT BUFF 
SET INTERUPT LATCH 
RESET FLAG REG 
RESET OP REG 

BR IF NOT RETURN TO I CYCLES 
SET ACTIVE STAT 
STORE STATS 

SET CCO 
RETURN FROM TRAP 



PAGE 266 



FILX 
FILX 
FILX 
FILX 
FiLX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 



007 
015 
028 
029 
038 
040 
042 
049 
053 
057 
058 
059 
060 
061 
C69 
079 
082 
083 
086 
088 
091 
092 
097 
100 
104 
106 
107 
112 
113 
114 
117 
118 
125 
129 
132 
134 
135 



FILT 
F ILX 
FiLX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
F ILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILT 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILT 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 
FILX 



04 2 
022 
030 
025 
027 
031 
042 
CC9 
053 
017 
049 
013 
021 
C59 
010 
041 
0E4 
080 
252 
055 
0E9 
090 
094 
0S5 
ICO 
043 
237 
1C9 
CS5 
345 
112 
1C8 
012 
125 
126 
138 
063 



**************** ****** ************ 

* CROSS REFERENCE FOR CSECT FILX * 
********************************** 



FILX 023 FILX 050 FILX 051 FILX 057 FILX 069 



FILX 029 



FILX 060 FILX 061 FILX 062 



FILX 014 FILX 018 



FILX 082 



FILX 097 

FILX 102 FILX 104 
FILX 243 FILX 351 

FILX 409 

FILX 349 

FILX 111 FILX 247 



FILX 164 



FILX 


138 


FILX 


132 








FILX 


139 


FILT 


142 


FILX 


02 8 


FILX 131 


MIX 


141 


FILX 


016 








f ILX 


147 


FILX 


015 


FILX 


019 


FILX 127 


FILX 


149 


FILX 


157 








FILX 


150 


FILX 


130 








FILX 


152 


FILX 


134 


FILX 


165 


FILX 172 


FILX 


153 


FILX 


140 


FILX 


148 




FILX 


154 


FILX 


336 








FILX 


157 


FILX 


020 








FILX 


161 


FILX 


158 


FILX 


174 




FILX 


164 


FILX 


167 








FILX 


166 


FILX 


162 








FILX 


169 


FILX 


142 








FILX 


173 


FILX 


0C8 








FILX 


177 


FILX 


144 








FILX 


178 


FILX 


037 


FILX 


058 


FILX 151 


FILX 


179 


FILX 


146 


FILX 


171 


FILX 177 


FILX 


180 


FILX 


137 








FILX 


183 


FILX 


410 








FILX 


184 


FILT 


059 








FILX 


187 


FILX 


165 








FILX 


195 


FILX 


Oil 








FILX 


199 


FILX 


197 








FILX 


201 


FILX 


332 








FILX 


208 


FILX 


227 








FILX 


211 


FILX 


2C7 








FILX 


215 


FILX 


211 








FiLX 


221 


FILX 


219 








FILX 


226 


FILX 


235 








FILX 


227 


FILX 


233 








FILX 


231 


FILX 


210 


FILX 


229 




FILX 


233 


FILT 


049 








FILX 


238 


FILX 


236 








FILX 


239 


FILX 


232 








FILX 


243 


FILX 


246 








FILX 


244 


FILX 


240 


FILX 


241 




FILX 


248 


FILX 


239 








FILX 


253 


FILX 


245 








FILX 


255 


FILX 


276 








FILX 


256 


FILX 


254 


FILX 


279 




FILX 


261 


FILX 


238 


FILX 


242 




FILX 


272 


FILX 


266 


FILX 


285 


FILX 288 


FILX 


273 


FILX 


091 








FILX 


276 


FILX 


278 








FILX 


277 


FILX 


275 








FILX 


279 


FILX 


274 








FILX 


280 


FILX 


271 








FILX 


286 


FILX 


283 








FILX 


295 


FILT 


119 









CLQAD^*E60 t EC LEVEL=1282li PAGE 267 
********************************** 

* CROSS REFERENCE FOR CSECT FILX * 
********************************** 

FILX 133 FILX 149 FILX 150 FILX 161 FILX 163 FILX 168 

FILX 128 FILX 141 FILX 160 FILX 169 FILX 173 FILX 175 FILX 198 



FILX 159 



CL0AD=*E60, EC LEVEU=1282 1I PAGE 268 
********************************** 

* CROSS REFERENCE FOR CSECT F IL X * 
********************************** 



FILX 


298 


FILX 


073 






FILX 


303 


FILX 


3C7 


FILX 


324 


FILX 


304 


FILX 


2S6 






FILX 


306 


FILX 


304 






FILX 


307 


FILX 


3C5 






FILX 


310 


FILX 


2S8 






FILX 


313 


FILX 


337 






FILX 


315 


FILX 


056 






FILX 


319 


FILX 


320 






FILX 


329 


FILX 


327 






FILX 


330 


FILX 


310 






FILX 


332 


FILX 


314 


FILX 


333 


FILX 


333 


FILX 


311 






FILX 


334 


FILT 


141 


FILX 


313 FILX 331 


FILX 


337 


FILX 


330 






FILX 


338 


FILX 


312 






FILX 


341 


FILX 


346 






FILX 


344 


FILX 


348 






FILX 


346 


FILX 


340 






FILX 


350 


FILX 


341 


FILX 


342 FILX 343 


F ILX 


351 


FILX 


347 






FILX 


358 


FILX 


2 89 






FILX 


361 


FILT 


140 






FILX 


362 


FILX 


360 






FILX 


371 


FILX 


367 






FILX 


389 


FILT 


128 






FILX 


394 


FILX 


384 






FILX 


401 


FILX 


3C6 






FILX 


402 


FILX 


388 






FILX 


407 


FILX 


4C4 






FILX 


410 


FILX 


4C8 






F ILX 


411 


FILX 


156 


FILX 


309 FILX 407 


FILX 


412 


FILT 


066 


FILX 


119 FILX 260 


FILX 


415 


FILT 


197 






FILX 


422 


FILX 


424 






FILX 


423 


FILX 


421 






FILX 


429 


FILX 


419 






FILX 


436 


FILX 


433 






FILX 


438 


FILX 


421 






FILX 


446 


FILX 


442 







FILX 403 FILX 406 



ENTRY POINTS 



INTRPF 



THIS 
WHEN 
BSWI 
FILE 



CL0AD=*E60, EC LEVEL=1282 11 PAGE 269 



PINT DESCRIPTIVE TEXT 



IS THE NORMAL ENTRY INTO THE ROUTINE 
A FILE INTERRUPT IS DETECTED IN THE 

ROUTINE, THIS ROUTINE TESTS FOR 
CONDITIONS BEFORE SETTING THE CSW 



SETCSW THIS IS A BAL ENTRY TO SET THE CSW 

INFORMATION INTO THE CPU REGISTERS FOR 
STORING BY THE CCOM ROUTINE- 



INFORMATION INTO THE APPROPRIATE REGISTERS 
FOR THE CCOM ROUTINE. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLA8EL 


STATEMENT 






FINT 


001 


T 






2311 FEATURE INTERUPT 


25FC 


7CC2 


FINT 


002 


INTRPT 








STH P DA,B8 


2t>FE 


5P59 


FINT 


003 










Gi=Hl 


2600 


DS8E 


FINT 


004 






Oil 


TSTPCI 


BR IF FFI5=0 


2602 


5A32 


FINT 


005 










RDH T CA f 8£ 


2604 


2A13 


FINI 


006 










T0=0$K01 


2606 


7A32 


FINT 


007 










STH T CA,8E 


2608 


8420 


FINT 


008 






052 


SETCSW 


BAL 


260A 


A024 


FINT 


009 


STUFCS 


CCOM 


127 


CSWADR 


BAL 


2b OC 


A64C 


FINT 


010 






042 


GET10A 


BR 


260E 


C996 


FINT 


Oil 


TSTPCI 




015 


SETIOA 


BR IF FFI4=0 


2610 


2EC7 


FINT 


012 










H0=0 


2612 


8428 


FINT 


013 






056 


PC I CSW 


BAL 


26 14 


A60A 


FINT 


014 






009 


STUFCS 


BR 


2616 


2B43 


FINT 


015 


SETIOA 








T1=0$K04 


2618 


4FBF 


FINT 


016 










FOP=Ti 


261A 


5AA0 


FINT 


017 










RDH T AS,T+0 


26 1C 


2A13 


FINT 


018 










T0=0$K0l 


261E 


7A32 


FINT 


019 










STH T 0A,8E 


2620 


E1A8 


FINT 


020 






024 


TSTDE 


BR IF DAS 16=0 


2622 


0D02 


FINT 


021 










RST FIA K=10 


2624 


2E25 


FINT 


022 










H0=0$K20 


2626 


A644 


FINT 


023 






038 


STOSTA 


BR 


2628 


E5AF 


FINT 


024 


TSTDE 




027 


RSTDE 


BR IF DAS 12= 1 


262A 


948E 


FINT 


025 




FILE 


264 


SNSSTA 


BAL 


2 62C 


A644 


FINT 


026 






038 


STOSTA 


BR 


262E 


AFEA 


FINT 


02 7 


RSTDE 


FILE 


280 


SETDA 


BAL 


2630 


5DDD 


FINT 


028 










P1=P1L 


2632 


5BBB 


FINT 


029 










T1=T1H 


2634 


6BD5 


FINT 


030 










T1=T1$P1 


26 36 


7A32 


FINT 


031 










STH T 0A,8E 


2638 


FABF 


FINT 


032 






035 


SEKINC 


BR IF DS7=1 


263A 


82 24 


FINT 


033 




FILE 


319 


RSTATT 


BAL 


263C 


A642 


FINT 


034 






03? 


SETDE 


BR 


263E 


8224 


FINT 


035 


SE KINC 


FILE 


319 


RSTATT 


BAL 



COMMENTS 

ROUTINE FOR FILES 
SAVE CPU P REG 
SAVE CPU Hi REG 
BR IF NOT INETRUPT LATCH 
GET STATS AND IOA 
RESET STATS 
STORE STATS AND IOA 
SET REGS FOR CPU CSW STORE 
STORE CSW 

BR IF NOT PCI 

SET DEVICE STATUS 

SET CHAN STATUS PCI INFO 

SET AUX ADDR 0004 

SE? CONTIN CONECT CLEAR I ND 

GET BUFFERED 10 ADDR FROM 0004 

RESET STATS 

STORE STATSai /O ADDR 

BR IF NOT CUE 

RESET CUB LATCH 

SET CUE FOR STATUS 

BR IF GATTED ATTENTION 
ERROR-NO REASON FOR INT-SET SNS 

SET DEV ADQRGSELECT MODULE 
BUILD 
DEVICE ADDRESS 

AND 
STORE IT IN AUX 
BR IF SEEK INCOMPLETE 
RESET GATED ATTN 

RESET GATED ATTN 



AUUR 


WORD 


SEQUENCE NO. 


LABEL 


2640 


94S6 


FINT 


036 




2642 


3643 


FIN! 


03 7 


SETDE 


2644 


2FC7 


FINT 


038 


STGSTA 


2646 


2400 


FINT 


039 


MODE 


2648 


2AG7 


FINT 


040 




2b4A 


A01E 


FINT 


041 




264C 


5A32 


FINT 


042 


GETIQA 


2o4E 


2A13 


FINT 


043 




2650 


1000 


FINT 


044 




2652 


5CC2 


FINT 


045 




2654 


A43C 


FINT 


046 








FINT 


047 


* 






FINT 


048 


* 






FINT 


04-9 


* 






FINT 


050 


* 






FINT 


051 


* 


0420 


2AC7 


FINT 


052 


SETCSW 


0422 


2B6 3 


FINI 


053 




0424 


5EA0 


FINT 


054 




04 26 


0D08 


FINT 


055 




0428 


526F 


FINT 


056 


PCICSW 


042A 


566B 


FINT 


057 




04 2C 


27C7 


FINI 


058 




042E 


C962 


FINT 


059 




0430 


3F85 


FINT 


060 




u432 


249C 


FINT 


061 


NO PC I 


0434 


78A2 


FINT 


062 




04 36 


0DG4 


FINT 


063 




J438 


2400 


FINT 


064 




043A 


50A2 


FINT 


065 




J43C 


5242 


FINT 


066 




04 3E 


128E 


FINT 


067 





HINT 


002 


DCLT 


0*2 


FINT 


009 


FINT 


014 


F INT 


Oil 


FINT 


0C4 


PINT 


015 


FINT 


Oil 


FINT 


024 


FINT 


020 


FiNT 


027 


FINT 


024 


FINT 


035 


FINT 


032 


FINT 


037 


FINT 


034 


FINT 


038 


FINT 


023 


FINT 


042 


FINT 


010 


FINT 


052 


FILE 


017 


FINT 


056 


FINT 


013 


FINT 


061 


FINT 


059 



CCGM 123 STATOS 



DCHN 074 FRMFIL 



NEXTSEQ NEXTLABEL STATEMENT 

FILE 268 SNSSTC BAL 

H0=H0$K04 
Hl^O 

SET MODE K=00 
T0=0 
BAL 

RDH T DA, 8E 
T0=0$K01 
RST SO 
RDH P DA,B8 
BR 
************************************** 

* SET CSW 

************************************** 

T0=0 

T1=0$K06 

RDH H AS,T-K) 

RST FIA K=40 

DO^STPO 

D0= DO H 

D1 = 

BR IF FFI4=0 

H1=H1$K80 

SET MODE K=09 

STH 

RST 

SET 

ROH 

RDH 

RTN 
******************************* 

♦ CROSS REFERENCE FOR CSECT FIN 
******************************* 



CLQAD=*E60, EC LEVEL=12821l 

COMMENTS 

SET SEEK CHECK SNS 
SET DE FOR STATUS 
ZERO CHAN STATUS 
SET CPU ZONE&MODE 

ZERO CSW THEN STORE STATUS 
GET I/O ADDRESS 
SET CHAN 1 

RESTORE P REG 

********************************* 

** 

- SUBROUTINE ** 

** 
********************************* 

SET AUX ADDR 0006 
GET BUFFERED STATUS 
RESET INTURRUPT LATCH 
GET PROTECT KEY 



PAGE 270 



061 NOPCI 



I DA, AC 
FIA K=20 
MODE K=00 
U DA, AC 
V DA, 98 



BR IF NOT PCI INT 

SET PCI IN STATUS 

SET FILE MODE, FILE ZONE 

BUFFER RESIDUAL COUNT 

RESET PCI LATCH 

SET CPU MODE AND ZONE 

GET BUFFERED RESID COUNT 

GET CCW NEXT ADDR 

*** 
T * 
*** 



FINT 026 



FINT 008 



ADDRESS LIST 
CONTROL ADDRESS 2 



DATE U/C8/68 
A C 
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00— 



-OOCG- 



-0010- 



-0020- 



-0030- 



-0040- 



-0050- 



-0060- 



-0070- 



BCPL 003 
8000 

BCPL 009 
3210 

BCPL 017 
C48F 

BCPL 025 
2B08 

BCPL 033 
2B23 

BCPL 041 
EDCE 

BCPL 049 
8100 

BCPL 057 
DE6E 



BCPL 004 

OBAD 

BCPL 010 
2610 

BCPL 018 
OCEF 

BCPL 026 
C9 83 

BCPL 034 
4FBF 

BCPL 042 
5FFF 

BCPL 050 
2406 

BCPL 058 
5B3F 



BCPL 004 
OBAD 

BCPL 0L1 
50CF 

BCPL 019 
C4E3 

BCPL 027 
4FAF 

BCPL 035 
2B42 

BCPL 043 
F05B 

BCPL 051 
2617 

BCPL 059 

6348 



BCPL 004 
08AD 

BCPL 012 
5 1AF 

BCPL 020 
OCFF 

BCPL 028 
2B04 

BCPL 36 
FDC6 

BCPL 044 
7F48 

BCPL 052 
2783 

BCPL 060 
736A 



BCPL 00 4 
OBAD 

BCPL 013 
2413 

BCPL 02 1 
C4A8 

BCPL 029 
2B44 

BCPL 037 
5FBF 

BCPL 045 
F0 5C 

BCPL 053 
3775 

BCPL 061 

FOEE 



BCPL 004 

OBAD 

BCPL 014 
OCCF 

BCPL 022 
8 ODE 

BCPL 030 
C9BA 

BCPL 038 
C4CA 

BCPL 046 
6F48 

BCPL 054 
250 7 

BCPL 062 
1618 



8CPL 004 
OBAD 

BCPL 015 
C4AD 

BCPL 023 
2486 

BCPL 031 
2B40 

BCPL 039 
2B48 

BCPL 047 
055D 

BCPL 055 
4066 

BCPL 06 3 
F0E7 



BCPL 005 
80AC 

BCPL 016 
OCDF 

BCPL 024 
2507 

BCPL 032 
CDBE 

BCPL 040 
FDCF 

BCPL 048 
C4CC 

BCPL 056 
5EEF 

BCPL 064 
8100 



-0000- 



-OOiO- 



-0020- 



-0030- 



-0040- 



-0050- 



-0060- 



-0070- 



008- 



-0080- 


BCPL 065 


BCPL 066 


BCPL 067 


BCPL 068 


BCPL 069 


BCPL 070 


BCPL 071 


BCPL 072 


-0080- 




6EE3 


6EE3 


6EE3 


0E08 


0E04 


49EF 


4EDF 


4BFF 




-0090- 


BCPL 073 


BCPL 074 


BCPL 07 5 


BCPL 076 


BCPL 077 


BCPL 078 


BCPL 079 


BCPL 080 


-0090- 




2E63 


3E15 


4FEF 


2E43 


E598 


4EEF 


4BFF 


3D00 




-OOAO- 


BCPL 081 


BCPL 082 


BCPL 083 


BCPL 084 


BCPL 085 


BCPL 086 


BCPL 08 7 


BCPL 088 


-OOAO- 




E5A1 


1D00 


50EF 


CA25 


C1A9 


810A 


240E 


2507 




-OOBO- 


BCPL 089 


BCPL 090 


BCPL 091 


BCPL 092 


BCPL 093 


BCPL 094 


BCPL 095 


BCPL 096 


-OOBO- 




2F04 


5FDF 


DAB8 


ED33 


2F10 


DAC6 


CAB9 


58FF 




-OOCO- 


BCPL 097 


BCPL 098 


BCPL 099 


BCPL 100 


BCPL 101 


BCPL 102 


BCPL 103 


BCPL 104 


-OOCO- 




5AEF 


4EF3 


6F48 


2B14 


055D 


C4B4 


8100 


FFFF 




-OODO- 


BCPL 104 


BCPL 104 


BCPL 104 


BCPL 104 


BCPL 104 


BCPL 104 


BCPL 105 


BCPL 106 


-OODO- 




FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


2807 




-OOEO- 


BCPL 107 


BCPL 108 


BCPL 109 


BCPL 110 


BCPL 111 


BCPL 112 


BCPL 113 


BCPL 114 


-OOEO- 




6A02 


2490 


2813 


2907 


4A86 


4C02 


2F15 


5FE9 




-OOFO- 


BCPL 115 


BCPL 116 


BCPL 117 


BCPL 118 


BCPL 119 


BCPL 120 


BCPL 121 


BCPL 122 


-OOFO- 




2D23 


4D9F 


8811 


54E8 


6488 


FA76 


0608 


88FE 




CONTROL ADDRESS 


















00 — 
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-0100- DCLA 109 
846C 

-0110- ETRP 020 
22 08 

-0120- FILT 049 
9752 

-0130- FILT 057 
CBAO 

-01 40- FILT 003 
2222 

-0150- C1CV 102 
C4C5 

-0160- CiCY 110 
C4C9 

-0170- DCLD 010 
2240 



DCLA 110 
AF0 2 

ETRP 021 
8FA4 

FILT 050 

8132 

FILT 058 
5E42 

FILT 009 

8DAD 

CICY 103 

5EA8 

CICY 111 
6AA4 

DCLO Oil 
8153 



DCLA 111 

A340 

FILE 336 
2C07 

FILT 051 
8132 

FILT 059 
86F6 

CICY 118 
2F07 

CICY 104 
56A0 

CICY 112 
56AA 

CCOM 086 
3002 



CICY 051 
9A6A 

FILE 337 
2D13 

FILT 052 
FFAE 

CFCO 069 
4E52 

CICY 119 
C4DD 

CICY 105 
617B 

CICY 113 
637B 

CCOM 087 
7F1D 



CICY 052 

BO 09 

FILE 338 
7C52 

FILT 053 
DSAO 

CFCO 071 
48E6 

CICY 120 
2707 

CICY 106 
606F 

CICY 114 
626F 

CCOM 088 
7E0D 



CBIN 046 
A770 

FILE 339 

2D07 

FILT 054 
5C52 

CFCO 072 
42Efr 

CICY 121 
128E 

CICY 107 
6FAD 

CICY 115 
56A0 

CCOM 89 
7730 



CBIN 047 
8174 

FILE 340 
7C62 

FILT 055 
BIFE 

CFCO 073 
40E6 

CICY 100 
5098 

CICY 108 
5298 

CICY 116 
67AD 

CCOM 090 
762D 



CBIN 048 
ACIC 

FILE 341 
128E 

FILT 056 
DBAO 

CFCO 074 
128E 

CICY 101 
50BB 

CICY 109 

52BB 

CICY 117 
128E 

CCOM 091 
128E 



-0100- 



-0110- 



-0120- 



-0130- 



-0140- 



-0150- 



-0160- 



-0170- 



018- 



-OldO- DCLE 010 DCLE Oil 
2244 3613 

-0190- OCLE 018 DCLE 019 
5119 C49C 

-OlAO- OCLE 026 DCLE 02 7 
93FA A254 

-01B0- ETTR 018 ETTR 019 
2206 5ACF 

-01C0- DCLD 013 DCLD 014 



81EC 

-0100- DCLD 021 
2B48 

-OlfcO- DCLD 029 
C4DA 



-01F0- 



DCLD 037 
3543 



8 IDC 

DCLD 022 
81CA 

DCLD 030 
C569 

DCLD 038 
0240 



OCLE 012 
CCA4 

DCLE 020 
5230 

OCLE 028 
9A34 

ETTR 020 
8ECC 

DCLD 015 
F554 

DCLD 023 
7F3C 

DCLD 031 
1573 

CBIN 042 
8A70 



OCLE 013 
D123 

DCLE 021 
0383 

CMPU 32 
5B3A 

CMPU 003 
5B3A 

DCLD 016 
F551 

DCLD 024 
5006 

DCLD 032 
0240 

CBIN 043 
8 IOC 



DCLE 014 
5212 

DCLE 02 2 
F09C 

CMPU 033 
4B73 

CMPU 004 
5F10 

DCLD 017 
7F3E 

DCLD 02 5 
C4E3 

DCLD 033 
3D00 

DCLA 310 
52FF 



DCLE 015 
5038 

DCLE 023 
93F4 

CMPU 034 
771A 

CMPU 005 
4BF3 

DCLD 018 
5006 

DCLD 026 
0240 

DCLD 034 
0240 

DCLA 311 
526C 



DCLE 016 
008B 

DCLE 024 
5212 

CMPU 035 
5B75 

CMPU 006 
5B75 

DCLD 019 
C4E3 

DCLD 02 7 
5F3C 

DCLD 035 
2B42 

DCLA 312 
52EF 



DCLE 017 
FOAO 

DCLE 025 
93C2 

CMPU 036 
AE1E 

CMPU 007 
AE88 

DCLD 020 
0240 

DCLD 028 
5006 

DCLD 036 
D169 

DCLA 313 
51F2 



CONTROL ADDRESS 



-0180- 

-0190- 

-01A0- 

-01B0- 

-01C0- 

-01D0- 

-01E0- 

-OlFO- 
01 — 
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02- 



-0200- 



-0210- 



-0220- 



-0230- 



-0240- 



-02 50- 



-0260- 



-0270- 



DCLA 317 
C606 

BfcRP 008 
887C 

BMCK 003 
3262 

FILE 325 
2D07 

BDIA Old 
2810 

8DIA 062 
2810 

CDVD 040 
757D 

CNVR 123 
5220 



DCLA 319 
41E5 

CFCO 090 
5EA8 

BMCK 004 
8CA6 

FILE 326 
4BDF 

BDIA 030 
3210 

BDIA 066 

D553 

CDVD 041 
746D 

CNVR 124 
6223 



DCLA 323 
C609 

CFCO 091 
58A8 

FILE 319 
2C07 

FILE 327 

4EDF 

BDIA 048 
2400 

BDIA 067 
2810 

CDVD 042 

F5D9 

CNVR 125 
5239 



DCLA 325 
41EB 

CFCO 092 

F41D 

FILE 320 
4BCF 

FILE 328 

4F0F 

BDIA 053 
F8CB 

8DIA 072 
E53C 

CDVD 043 
A6F6 

CNVR 126 
6223 



DCLA 326 
42EF 

CFCO 093 
52A8 

FILE 321 
2D45 

FILE 329 

49 DF 

BDIA 054 
B7C9 

CDVD 036 
A6F6 

CDVD 044 
1002 

CNVR 127 
6223 



DCLA 327 
536C 

CFCO 094 
50A0 

FILE 322 
4EDF 

FILE 330 
128E 

BDIA 056 
2810 

CDVD 037 
3002 

CDVD 045 
825C 

CNVR 128 
6233 



DCLA 328 
42FF 

CFCO 095 
1B73 

FILE 323 
2D15 

BDIA 075 
2810 

BDIA 057 
25F3 

CDVD 038 
79FD 

BDIA 083 
2810 

CNVR 129 
62C3 



DCLA 329 
128E 

CFCO 096 
128E 

FILE 324 
4BDF 

BDIA 080 
F56C 

BDIA 061 
C54F 

CDVD 039 
78ED 

BDIA 084 
9FFC 

CNVR 130 
128E 



-0200- 



-0210- 



-022 0- 



-0230- 



-0240- 



-0250- 



-026 0- 



-0270- 



-0280- 



028- 



-0280- 



-0290- 



-0290- 



-02A0- 



-02A0- 



-0260- 



-02B0- 



-02CO- 



-02E0- 



CMLT 130 CMLT 131 
8344 82E0 



CMLT 132 
B078 



-02D0- CHLT 138 CMLT 139 CMLT 140 



B076 



B34E 



CMLT 146 CMLT 147 
9CD2 8344 



-02FO- DPTR 099 DPTR 100 
68A3 128E 



A36E 

DPTR 093 
2DA5 

DPTR 101 
68D3 



CONTROL ADDRESS 



CMLT 133 

BOEE 

CMLT 141 
8390 

DPTR 094 
3D93 

DPTR 102 
128E 



CMLT 134 CMLT 135 CMLT 136 CMLT 137 -02C0- 



B0F4 



BOFO 



88E2 



B070 



CMLT 142 CMLT 143 CMLT 144 CMLT 145 



87FC 



8392 



A376 



3G02 



DPTR 095 DPTR 096 DPTR 097 DPTR 098 



2BA5 



3B73 



6B83 



F4F5 



CMLT 014 CMLT 015 CMLT 016 CMLT 017 
ADA8 8DC2 2907 C604 



-02D0- 

-02E0- 

-02F0- 
02 — 



ADDRESS LIST 
CONTRUL ADDRESS 2 



DATE 11/08/68 
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-0300- 



-0310- 



-0320- 



-0330- 



-0340- 



-0350- 



-0360- 



-0370- 



CMLT 018 
29F7 

CMLT 026 
7CF2 

CMLT 034 
7EC8 

CMLT 042 
46C6 

CMLT 050 
1002 

CMLT 058 
BF55 

CMLT 066 
E068 

CMLT 074 
7EAA 



CMLT 019 
2C13 

CMLT 027 
4C52 

CMLT 035 
856E 

CMLT 043 
4E06 

CMLT 051 
8855 

CMLT 059 
2C2B 

CMLT 067 
3002 

CMLT 075 
F47A 



CMLT 020 
0275 

CMLT 028 

2D1D 

CMLT 036 
856E 

CMLT 044 
40C6 

CMLT 052 

DD53 

CMLT 060 
9468 

CMLT 068 
2D15 

CMLT 076 

1B15 



CMLT 021 
E08B 

CMLT 029 
2D8B 

CMLT 037 
8314 

CMLT 045 
2C13 

CMLT 053 
C5CC 

CMLT 061 
C838 

CMLT 069 
9CD2 

CMLT 077 
76A8 



CMLT 022 
3C23 

CMLT 030 

CD29 

CMLT 038 

2D07 

CMLT 046 
C5BE 

CMLT 054 
2F1D 

CMLT 062 
C1DC 

CMLT 070 

9256 

CMLT 078 
70AA 



CMLT 023 
5989 

CMLT 031 
78C8 

CMLT 039 
48C6 

CMLT 047 
2F18 

CMLT 055 
F4D3 

CMLT 063 
95F6 

CMLT 071 
2A07 

CMLT 079 

A8DE 



CMLT 024 
4A86 

CMLT 032 
7AC8 

CMLT 040 
4AC6 

CMLT 048 
F4D3 

CMLT 056 
2D55 

CMLT 064 
54F2 

CMLT 072 
55BB 

CCOM 029 
55B3 



CMLT 025 
OOCO 

CMLT 033 
76C8 

CMLT 041 
44C6 

CMLT 049 
2D 15 

CMLT 057 
1002 

CMLT 065 
C5E9 

CMLT 073 
72A8 

CCOM 030 
56A8 



-0300- 
-0310- 
-0320- 
-0330- 
-0340- 
-0350- 
-0360- 
-0370- 



038- 



-03 80- 


CCOM 031 


CCOM 032 


CCOM 033 


CCOM 034 


BCHK 098 


BCHK 098 


BCHK 098 


BCHK 098 


-0380- 




5EAA 


55BB 


0008 


128E 


07FF 


C48A 


8800 


4E08 




-0390- 


CMLT 177 


CMLT 178 


CMLT 179 


CMLT 180 


BCHK 101 


BCHK 101 


BCHK 104 


BCHK 104 


-0390- 




3002 


9CD2 


3002 


B0F4 


00C8 


0000 


4E08 


128E 




-03A0- 


DYPE 226 


DYPE 227 


DYPE 228 


DYPE 229 


BCHK 108 


BCHK 10 8 


BCHK 108 


BCHK 108 


-03A0- 




8DC4 


A568 


9028 


9F20 


0000 


0000 


0000 


0000 




-03B0- 


DCLR 196 


OCLR 197 


DCLR 198 


DCLR 199 


BCHK 123 


BCHK 123 


BCHK 123 


BCHK 123 


-03B0- 




2343 


5612 


3613 


A29C 


2FF7 


2F IB 


C4BC 


OFOl 




-03C0- 


BDIA 347 


BDIA 348 


BDIA 349 


BDIA 350 


BDIA 351 


BDIA 352 


BDIA 353 


BDIA 354 


-03C0- 




C4C0 


4AC2 


4CD2 


4EF2 


2A1B 


2C1B 


2E1B 


E0F2 




-03D0- 


BDIA 355 


BDIA 356 


BDIA 357 


BDIA 358 


BDIA 331 


BDIA 332 


BDIA 333 


BDIA 334 


-03D0- 




6AC2 


6CD2 


6EF2 


83B8 


4812 


3935 


292B 


68E2 




-03E0- 


BDIA 335 


BDIA 336 


BDIA 337 


BDIA 338 


BDIA 339 


BDIA 340 


BDIA 341 


BDIA 342 


-03E0- 




2A2 5 


2BF5 


3873 


2C25 


2D15 


3DB3 


2E05 


2F13 




-03F0- 


BDIA 343 


BDIA 373 


BDIA 374 


BDIA 375 


BDIA 376 


BDIA 377 


BDIA 381 


BDIA 332 


-03F0- 




83D0 


2505 


251B 


F4FD 


C4F4 


500 7 


2413 


883C 




NTROL ADDRESS 
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-O4C0- CICY 203 
AEE8 

-0410- CICY 211 
9AB0 

-0420- FINT 052 
2A07 

-0430- FINT 060 
3F85 

-0440- BDIA 122 
5007 

-0450- DCLB 015 
7212 

-0460- DCLB 023 
C4F1 

-0470- DCLB 029 
5651 



CICY 204 
ACBO 

CICY 217 
A05A 

FINT 053 
2B63 

FINT 061 
2490 

DCLB 006 
2045 

DCLB 016 
24F6 

DCLB 024 
C15C 

DCLB 030 
5212 



CICY 205 
A93A 

CICY 219 
A05A 

FINT 054 

5EA0 

FINT 062 
78A2 

DCLB 007 
7022 

DCLB 017 
562 2 

DCLB 025 
25CB 

DCLB 031 
93F4 



CICY 206 
AE6C 

CICY 220 
A05A 

FINT 055 
0DO8 

FINT 063 

0D04 

DCLB 009 
2625 

DCLB 018 
2407 

DCLB 026 
F55D 

DCLR 106 
3425 



CICY 207 
AE22 

CICY 22 1 
8CB8 

FINT 056 
526F 

FINT 064 
2400 

DCLB 010 
2787 

DCLB 019 
2585 

DCLB 027 
2507 

DCLR 107 
9616 



CICY 208 
AC7A 

CICY 222 

8CB8 

FINT 057 
566B 

FINT 065 
50A2 

DCLB Oil 
81F8 

DCLB 020 
3543 

DCLB 028 
8472 

FILE 008 
7CC2 



CICY 209 
ABF6 

CICY 223 
8CB8 

FINT 058 
2707 

FINT 066 
5242 

DCLB 013 
2486 

DCLB 021 
5148 

DCLB 004 
C642 

FILE 009 
2480 



CICY 210 
AD72 

CICY 224 
8CB8 

FINT 059 
C9B2 

FINT 067 
128E 

DCLB 014 
2B80 

DCLB 022 
6171 

DCLB 005 
AC74 

FILE 010 
C628 



-0400- 
-0410- 
-0420- 
-0430- 
-0440- 
-0450- 
-0460- 
-0470- 



048- 



-0480- 


FILE Oil 


FILE 012 


FILE 013 


FILE 014 


FILE 015 


FILE 016 


FILE 017 


FILE 018 


-048O- 




E011 


F01E 


D99E 


6711 


C49E 


703 2 


8420 


A024 




-0490- 


FILE 019 


FILE 020 


FILE 021 


FILE 022 


FILE 023 


FILE 024 


FILE 025 


FILE 026 


-0490- 




5DBF 


1BC5 


D9A1 


3210 


2D04 


4DBF 


1210 


AC 74 




-04AO- 


FILE 027 


FILE 028 


FILE 029 


FILE 030 


FILE 031 


FILE 032 


FILE 033 


FILE 034 


-04A0- 




F5BB 


2E07 


D9BE 


B362 


3065 


7032 


E021 


F5BB 




-04BO- 


FILE 035 


FILE 036 


FILE 037 


FILE 038 


FILE 039 


FILE 040 


FILE 041 


FILE 042 


-04B0- 




E1C1 


F054 


DBFD 


8702 


DBFC 


2E55 


2D02 


854E 




-04C0- 


FILE 043 


FILE 044 


FILE 045 


FILE 046 


FILE 047 


FILE 048 


FILE 049 


FILE 050 


-04C0- 




DBCA 


8702 


DBBB 


2E43 


4FEF 


2E25 


F051 


2E35 




-04D0- 


FILE 051 


FILE 052 


FILE 053 


FILE 054 


FILE 055 


FILE 056 


FILE 057 


FILE 058 


-0400- 




0D02 


854E 


7242 


5AF2 


42AF 


5A30 


0A4B 


C4E4 




-04E0- 


FILE 059 


FILE 060 


FILE 061 


FILE 062 


FILE 063 


FILE 064 


FILE 065 


FILE 066 


-04E0- 




AFC6 


8C92 


DBEB 


8702 


DBBB 


0A3B 


C4FD 


0A1D 




-04F0- 


FILE 067 


FILE 068 


FILE 069 


FILE 070 


FILE 071 


FILE 072 


FILE 073 


FILE 074 


-04FO- 


ADORESS 


E0F6 


0A7B 


FOFD 


0133 


FOFO 


850C 


5ECF 


C487 


04 — 



ADDRESS LIST 
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05 — 
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05 CO- 


FILE 075 


FILE 076 


FILE 077 


FILE 078 


FILE 079 


FILE 080 


FILE 081 


FILE 082 


-0500- 




2C43 


9490 


854A 


AFC6 


EE93 


DE97 


8114 


2A45 




0510- 


FILE 083 


FILE 084 


FILE 085 


FILE 086 


FILE 087 


FILE 088 


FILE 089 


FILE 090 


-0510- 




8548 


2C85 


8502 


2E15 


FAA9 


CEBC 


E5B5 


F023 




0520- 


FILE 091 


FILE 092 


FILE 093 


FILE 094 


FILE 095 


FILE 096 


FILE 097 


FILE 098 


-0520- 




8 BE 8 


49AF 


5CC2 


8362 


8114 


0A33 


F0C4 


0A1D 




05 30- 


FILE 099 


FILE 100 


FILE 101 


FILE 102 


FILE 103 


FILE 104 


FILE 105 


FILE 106 


-0530- 




E0C4 


8C92 


8224 


2E43 


F03D 


3E15 


8230 


F051 




0540- 


FILE 107 


FILE 108 


FILE 109 


FILE 110 


FILE ill 


FILE 112 


FILE 113 


FILE 114 


-0540- 




8114 


855A 


8224 


2A13 


9496 


2B43 


70A0 


F058 




0550- 


FILE 115 


FILE 116 


FILE 117 


FILE 118 


FILE 119 


FILE 120 


FILE 121 


FILE 122 


-0550- 




2400 


5CC2 


2F07 


A01E 


E063 


2348 


5630 


2F85 




0560- 


FILE 123 


FILE 124 


FILE 125 


FILE 126 


FILE 127 


FILE 128 


FILE 129 


CMLT 100 


-0560- 




C365 


2F07 


2A07 


C3ED 


2400 


A030 


5007 


6FFB 




05 70- 


CMLT 101 


CMLT 102 


CMLT 103 


CMLT 104 


CMLT 105 


CMLT 106 


CMLT 107 


CMLT 108 


-0570- 




6EED 


677D 


666D 


6BBD 


6AAD 


699D 


6880 


128E 





-0580- FILX 007 FILX 008 
9554 8FFD 

-0590- FILX 015 FILX 016 

86AC 8FBD 

-05A0- FILX 023 FILX 024 
DF91 5E32 

-05B0- FILX 040 FILX 041 
2C07 FFE1 

-05C0- FILX 053 FILX 054 
F5C1 2C65 



-05D0- FILX 061 
FFCB 



FILX 062 
D1CA 



-05EO- FILX 079 FILX 080 

5DB8 CDE9 

-05F0- FILX 087 FILX 029 

862A DE2D 
CONTROL ADDRESS 



FILX 009 
EFB8 

FILX 017 
EFC8 

FILX 025 
FFF2 

FILX 042 
F8B4 

FILX 055 
40CF 

FILX 063 
8694 

FILX 081 
5886 

FILX 030 
F5AB 



58- 

FILX 010 
EFD6 

FILX 018 
EFD6 

FILX 026 

3E00 

FILX 043 
B228 

FILX 056 
A39A 

FILX 069 
DF91 

FILX 082 
B1FE 

FILX 031 
EC31 



FILX Oil 
9774 

FILX 019 
86AC 

FILX 027 

CD2C 

FILX 049 

FFCB 

FILX 057 
FF90 

FILX 070 
3E00 

FILX 083 
5886 

FILX 032 
2C33 



FILX 012 
8F9D 

FILX 020 
8FDD 

FILX 028 
869C 

FILX 050 
DF91 

FILX 058 
86EA 

FILX 071 
2C25 

FILX 084 
C4E6 

FILX 033 
4FCF 



FILX 013 
EFCC 

FILX 021 
EFCE 

FILX 038 
1E45 

FILX 051 
CD11 

FILX 059 
E851 

FILX 072 
7C52 

FILX 085 
7C52 

FILX 034 
5DDD 



FILX 014 
EF06 

FILX 022 
EF91 

FILX 039 
7E32 

FILX 052 
3E00 

FILX 060 

F84A 

FILX 073 
A384 

FILX 086 
5E42 

FILX 035 
3DB5 



-0580- 

-0590- 

-05A0- 

-05BO- 

-05C0- 

-0500- 

-05EO- 

-05F0- 
05 — 
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0600- 


FILX 036 


FILX 037 


DPTC Oil 


DPTC 012 


DPTC 013 


DPTC 014 


DPTC 007 


DPTC 008 


-0600- 




5E42 


86EA 


EB09 


F213 


1F43 


861C 


F213 


3F23 




0610- 


DPTC CC9 


DPTC 024 


DPTC 025 


OPTC 016 


DPTC 017 


DPTC 018 


DPTC 021 


DPTC 022 


-0610- 




861C 


3F85 


9D3A 


EB1B 


F213 


3F43 


2EC3 


8D58 




0620- 


FILT Oil 


FILT 012 


FILT 013 


FILT 014 


FILT 015 


FILT 016 


FILT 017 


FILT 018 


-062 0- 




94A4 


94A4 


862A 


2F7B 


5EE4 


1D00 


5CF8 


A96D 




063 0- 


FILT 019 


FILT 020 


FILT 02 1 


FILT 322 


FILT 023 


FILT 024 


FILT 025 


FILT 026 


-0630- 




0C8B 


F0C2 


5EF0 


0F83 


FOEE 


5CF8 


A96D 


0C8B 




064 0- 


FILT 027 


FILT 028 


FILT 029 


FILT 030 


FILT 031 


FILT 032 


FILT 033 


FILT 034 


-0640- 




C4E1 


CDC9 


4FCF 


F0E1 


5AF8 


5CF8 


5 8F8 


0C83 




0650- 


FILT 035 


FILT 036 


FILT 037 


FILT 038 


FILT 039 


FILT 040 


FILT 041 


FILT 042 


-0650- 




F0E6 


4886 


C4E7 


7E42 


CDF5 


4DCF 


5C52 


BB9B 




066 0- 


FILT 060 


FILT 061 


FILT 062 


FILT 063 


FILT 064 


FILT 065 


FILT 066 


FILT 067 


-0660- 




6EE4 


6EE4 


6EE4 


7E42 


2F25 


2E0 7 


8E3A 


5E42 




0670- 


FILT 068 


FILT 069 


FILT 043 


FILT 044 


FILT 045 


FILT 046 


FILT 047 


FILT 048 


-0670- 




6EE4 


8660 


4DCF 


2C07 


2D35 


3D43 


5EC0 


8BA3 





-0680- FILX 125 
DF88 



-0690- 



-06A0- 



-0660- 



-06C0- 



-06D0- 



-06E0- 



FILX 133 
FC1C 

FILX 141 
86AC 

FILX 149 
F81C 

FILX 157 

DFBO 

FILX 165 
86B6 

FILX 173 
86AC 



-06F0- FILX 181 
2C15 



FILX 126 
DF8E 

FILX 134 

DD36 

FILX 142 
86D8 

FILX 150 
D19C 

FILX 158 
DFC8 

FILX 166 
2D10 

FILX 174 
DFC8 

FILX 182 

48CF 



FILX 127 
86 AC 

FILX 135 
3D00 

FILX 143 
2C23 

FILX 151 
FD6A 

FILX 159 

EFEB 

FILX 167 
D1CF 

FILX 175 
86AC 

FILX 183 

1D00 



068- 

FILX 128 
86AC 

FILX 136 
2C43 

FILX 144 
FFE8 

FILX 152 
2F43 

FILX 160 
86AC 

FILX 168 
869C 

FILX 176 
2C33 

FILX 184 
5C32 



FILX 129 
2D10 

FILX 137 

86EE 

FILX 145 
2C83 

FILX 153 
2EA5 

FILX 161 
E89D 

FILX 169 

DFAD 

FILX 177 
CFEC 

FILX 185 
EC7D 



FILX 130 
E833 

FILX 138 
D193 

FILX 146 
CFEC 

FILX 154 
7E52 

FILX 162 
E853 

FiLX 170 
2C15 

FILX 178 
2C0 7 

FILX 186 
0222 



FILX 131 
869C 

FILX 139 
2F15 

FILX 147 
2F07 

FILX 155 
2E23 

FILX 163 
D81C 

FILX 171 
DD6D 

FILX 179 
3DO0 

FILX 187 
2C85 



FILX 132 
C81B 

FILX 140 
86B8 

FILX 148 
86B8 

FILX 156 
8E38 

FILX 164 
ED14 

FILX 172 
86B6 

FILX 180 
7C52 

FILX 188 
7C32 



CONTROL ADDRESS 



-0680- 

-0690- 

-06A0- 

-06B0- 

-06C0- 

-0600- 

-06E0- 

-06F0- 
06— 
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-07C0- FILX 189 
B362 

-0710- FILE 257 
6F11 

-072O- ALDP 202 
AAA2 

-0730- ALDP 210 
2440 

-0740- ALDP 184 
3F00 

-0750- ALDP 194 
EEA2 

-0760- DCLL 024 
0313 

-0770- DCLL 033 
2B08 



FILE 250 
5C52 

FILE 258 
C497 

ALDP 203 
3BE9 

ALDP 211 
7872 

ALDP 185 
C4CE 

ALDP 195 
1F2A 

DCLL 025 
C4DA 

DCLL 034 
C9F3 



FILE 251 
F917 

FILE 259 
4FDF 

ALDP 204 
76AA 

ALOP 212 
2400 

ALDP 187 
2F20 

ALDP 196 
E31A 

DCLL 027 
04C3 

DCLL 035 
0214 



FILE 252 
EC16 

FILE 260 
5CC2 

ALDP 205 
72AA 

ALOP 213 
E338 

ALDP 188 
3F02 

ALDP 197 
FA9B 

DCLL 028 
C4DA 

DCLL 036 
2400 



FILE 253 
2C07 

FILE 261 
128E 

ALDP 206 
74AA 

ALDP 214 
1600 

ALOP 189 
1683 

ALDP 198 
8002 

DCLL 029 

D55B 

DCLL 037 

8ADA 



FILE 254 

2D4 3 

ALOP 199 

2400 

ALDP 207 
70A0 

ALDP 215 
AAA2 

ALDP 190 
C4D0 

DCLL 021 

3BO0 

DCLL 030 
0D04 

DCLL 038 
10F5 



FILE 255 
5EC0 

ALDP 200 
AAAF 

ALDP 208 
2B2D 

ALDP 182 
2315 

ALDP 192 
2345 

DCLL 022 
5007 

DCLL 031 
2407 

DCLL 039 
2B23 



FILE 256 
4FCF 

ALDP 201 
0610 

ALDP 209 
7EA0 

ALDP 183 
3353 

ALDP 193 
2F0A 

DCLL 023 
875C 

DCLL 032 
7432 

DCLL 040 
70B0 



-0700- 



-0710- 



-0720- 



-0730- 



-0740- 



-0750- 



-0760- 



-0770- 



078- 



-0780- 


DCLL 041 


CMLT 006 


CMLT 002 


CMLT 003 


CMLT 004 


CMLT 005 


CMLT 007 


CMLT 008 


-0780- 




A1CA 


AE98 


F503 


3515 


A770 


82FA 


E191 


3485 




-0790- 


CMLT 009 


CMLT 010 


CMLT Oil 


CMLT 012 


DCLA 063 


DCLA 065 


DCLA 066 


DCLA 067 


-0790- 




F503 


3515 


8A70 


82FA 


5EB8 


7EF2 


0EF5 


F0A3 




-07AO- 


DCLA 068 


DCLA 069 


DCLA 075 


DCLA 083 


DCLA 085 


DCLA 086 


DCLA 087 


DCLA 089 


-07A0- 




B0C4 


AB3F 


52BA 


0249 


F4A1 


0383 


FOAO 


5C09 




-0780- 


DCLA 090 


DCLA 091 


DCLA 093 


DCLA 094 


DCLA 099 


DCLA 101 


DCLA 102 


DCLA 103 


-07B0- 




C4B4 


8888 


00 IB 


C4C6 


5632 


2BA1 


5FAA 


6F11 




-07C0- 


DCLA 104 


DCLA 108 


DCLA 113 


DCLA 116 


BSWI 007 


BSWI 008 


BSWI 009 


BSWI Oil 


-07C0- 




E0C5 


8003 


847A 


BOFA 


2F07 


3600 


B2F8 


5AEF 




-07D0- 


BSWI 012 


BSWI 013 


BSWI 020 


BSWI 021 


BSWI 022 


BSWI 023 


BSWI 030 


BSWI 031 


-07D0- 




1EFF 


C4F7 


5E09 


6EE3 


6EE3 


6E03 


2B55 


5 0B8 




-07E0- 


BSWI 032 


BSWI 033 


BSWI 034 


BSWI 035 


BSWI 036 


BSWI 038 


BSWI 040 


BSWI 041 


-07E0- 




52BA 


2002 


72E9 


71A9 


70A9 


42AF 


70B8 


72BA 




-07F0- 


BSWI 043 


BSWI 045 


BSWI 046 


BSWI 047 


BSWI 048 


BSWI 049 


CMLT 175 


CMLT 176 


-07F0- 




A7FA 


F5F9 


2608 


AA84 


E976 


9CC6 


3002 


B0F4 
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-08C0- 



-0810- 



-0820- 



-0830- 



-0840- 



-0850- 



-0860- 



-0870- 



8DIA 280 
4E02 

8DIA 304 
E190 

BDIA 312 
8802 

BDIA 320 
4E22 

BDIA 388 
3808 

BDIA 400 
886E 

BDIA 408 
1212 

BDIA 416 
3804 



BDIA 281 
2E1B 

BDIA 305 
2EC5 

BDIA 313 
0020 

BDIA 321 
6E12 

BDIA 389 
05 OD 

BDIA 401 
0E3F 

BDIA 409 
886E 

BDIA 417 
6E80 



BDIA 282 
2F1D 

BDIA 306 
3E43 

BDIA 314 
E1A5 

BDIA 322 
3EC9 

BDIA 390 
3800 

BDIA 402 
FED4 

BDIA 410 
0F1F 

BDIA 418 
CAF4 



BDIA 283 
CAOO 

BDIA 307 
2F85 

BDIA 315 
D1AC 

BDIA 323 
5EF1 

BDIA 391 
DAC6 

BDIA 403 
4E80 

BDIA 411 
FEE6 

BDIA 419 
3800 



BDIA 284 
6E02 

BDIA 308 
3FA3 

BDIA 316 
0040 

BDIA 324 
8802 

BDIA 392 
1212 

BDIA 404 
6E80 

BDIA 412 
4E80 

BDIA 420 
128E 



BDIA 285 
8388 

BDIA 309 
6E12 

BDIA 317 
83D8 

BDIA 385 
6443 

BDIA 393 
2800 

BDIA 405 

FA DA 

BDIA 413 
6E80 

BWRP 020 
97E5 



BDIA 302 
E1A3 

BDIA 310 
2EF7 

BDIA 318 
2040 

BDIA 386 
2505 

BDIA 394 
C43A 

BDIA 406 
0E3F 

BDIA 414 
02E2 

BWRP 010 
D4FA 



BDIA 303 
2020 

BDIA 311 
3F89 

BDIA 319 
D1AE 

BDIA 387 
7543 

BDIA 399 
2440 

BDIA 407 
EADE 

BDIA 415 
4E80 

BWRP Oil 
9795 



-0800- 



-0810- 



-0820- 



-0830- 



-0840- 



-0850- 



-0860- 



-0870- 



088- 



-08 80- DCLA 303 
8948 

-0890- DCLA 128 
5BE8 

-08A0- DCLA 216 
07FD 

-08B0- DCLA 228 
B362 

-08C0- DCLA 261 
93F4 

-08D0- DCLA 220 
15C5 

-08EO- CICY 044 
A9C0 

-08F0- BDIA 271 
2E87 



DCLA 305 
9EAA 

DCLA 129 
6B11 

DCLA 217 

EOCE 

DCLA 242 
F045 

DCLA 285 
AC 74 

DCLA 221 
7460 

CMLT 154 
3D25 

BDIA 272 
2F05 



DCLA 306 
9EAA 

DCLA 130 
C49B 

DCLA 218 
8EAC 

DCLA 243 
DB43 

DCLA 277 
DB4A 

DCLA 222 
88AC 

CMLT 155 
9C02 

BDIA 273 
6E12 



DCLA 308 
96F4 

OCLA 131 
DBOF 

DCLA 223 
C42C 

DCLA 252 
CE4D 

DCLA 281 
CE42 

CICY 062 

814C 

CMLT 156 
1D25 

BDIA 274 
6E22 



DCLA 124 
2543 

DCLA 134 
BOFA 

DCLA 224 

D131 

DCLA 256 
5669 

DCLA 282 

DF43 

CICY 063 

B0 3B 

CMLT 157 
9CD4 

BDIA 275 
3EE9 



DCLA 125 
4E66 

DCLA 201 
5E60 

DCLA 225 
DA 31 

DCLA 257 
EOBF 

DCLA 283 
3613 

CICY 053 
AF4E 

CMLT 158 
8344 

BDIA 276 
2F77 



DCLA 126 
1FCB 

DCLA 202 
E032 

DCLA 226 
4E52 

OCLA 258 
81F8 

DCLA 284 
8711 

CICY 054 

B01D 

BDIA 269 
DIED 

BDIA 277 
8802 



DCLA 127 
271D 

DCLA 215 
A078 

DCLA 227 
A030 

DCLA 259 
3773 

DCLA 219 
D526 

DCLA 183 
889A 

BDIA 270 
E1EF 

BDIA 008 
8240 



CONTROL ADDRESS 



-0880- 

-0890- 

-08A0- 

-08B0- 

-08C0- 

-08D0- 

-08E0- 

-08F0- 
08— 
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-0900- 



-0910- 



-0920- 



-09 30- 



-0940- 



-0950- 



-0960- 



-09 70- 



DPTT 026 
154B 

DPTT 034 
7068 

DPTT 046 
5E29 

DPTT t>56 
B14C 

DPTT 065 
OD08 

DPTT 010 
DED4 

DPTT 024 
AA03 

ERRQ 108 
C4EA 



DPTT 027 
B31E 

DPTT 035 
CI 16 

DPTT 047 
CEB1 

DPTT 057 
5F39 

DPTT 066 
F22F 

DPTT Oil 
B362 

DPTT 025 
AC74 

CFAD 007 
3835 



DPTT 028 
DAOF 

DPTT 036 

3485 

DPTT 049 
DA39 

DPTT 058 
6664 

DPTT 067 
3E15 

DPTT 013 
2E23 

ERRQ 102 
2A15 

CFAD 008 
9 AGO 



DPTT 029 
CAOE 

DPTT 037 
54F9 

DPTT 050 
2E15 

DPTT 059 
726 A 

DPTT 068 
A030 

DPTT 014 
2F07 

ERRQ 103 
F76E 

CFAD 009 
5E79 



DPTT 030 
E40F 

DPTT 038 
7A68 

DPTT 051 
54F9 

DPTT 061 
B31E 

DPTT 006 
2482 

DPTT 015 
A01E 

ERRQ 104 
2BF5 

CFAD 010 
5AE2 



DPTT 031 
2085 

DPTT 039 
5068 

DPTT 052 
1F85 

DPTT 062 
7460 

DPTT 007 
A078 

DPTT 020 
0D08 

ERRQ 105 
7CAA 

CFAD Oil 
8212 



DPTT 032 
8910 

DPTT 040 
5260 

DPTT 053 
F246 

DPTT 063 
54F9 

DPTT 008 
D15B 

DPTT 021 
5FB9 

ERRQ 106 
128E 

CFAD 012 
2C07 



DPTT 033 
2007 

DPTT 041 
AOOE 

DPTT 054 
A01E 

DPTT 064 
E243 

DPTT 009 
C421 

DPTT 023 

E401 

ERRQ 107 
2BB1 

CFAD 013 
5E69 



-0900- 



-0910- 



-0920- 



-0930- 



-0940- 



-0950- 



-0960- 



-0970- 



098- 



-09 80- 


CFAD 014 


CFAD 015 


CFAO 016 


CFAD 018 


CFAD 019 


CFAO 020 


CFAD 021 


CFAD 022 


-0980- 




5ED9 


2040 


7671 


E48E 


F491 


56C9 


8996 


F48B 




-0990- 


CFAD 023 


CFAD 025 


CFAD 026 


CFAO 027 


CFAD 028 


CFAD 029 


CFAD 030 


CFAD 031 


-0990- 




0040 


57E9 


7C61 


F01A 


1C8D 


CC1E 


3002 


IC85 




-09A0- 


CFAD 032 


CFAD 033 


CFAD 034 


CFAD 035 


CFAD 036 


CFAD 037 


CFAD 038 


CFAD 039 


-09AO- 




E0A5 


2CF3 


FOBF 


D1B6 


3B35 


8212 


A656 


9AD0 




-09B0- 


CFAD 040 


CFAD 041 


CFAD 042 


CFAD 043 


CFAD 044 


CFAD 045 


CFAD 046 


CFAD 047 


-09B0- 




5AE2 


8212 


89C0 


1E85 


CD3C 


3E8 5 


A656 


0040 




-09C0- 


CFAD 048 


CFAD 049 


CFAD 050 


CFAD 051 


CFAD 052 


CFAD 053 


CFAD 054 


CFAD 055 


-09C0- 




3B35 


0008 


D1CB 


75AD 


89CE 


C5C6 


755B 


D052 




-09D0- 


CFAD 056 


CFAD 057 


CFAD 058 


CFAD 059 


CFAD 060 


CFAD 061 


CFAD 062 


CFAD 063 


-09D0- 




0008 


A7D4 


5AE2 


C5EE 


F5DE 


0002 


89EE 


1E8D 




-09E0- 


CFAD 064 


CFAO 065 


CFAD 066 


CFAD 067 


CFAD 068 


CFAD Ob9 


CFAD 070 


CFAO 071 


-09E0- 




E070 


0008 


2002 


755B 


D06C 


0008 


9364 


E07F 




-09F0- 


CFAD 072 


CFAD 073 


CFAD 074 


CFAD 075 


CFAD 077 


CFAD 078 


CFAD 079 


CFAD 080 


-09F0- 




9258 


D5F9 


F5F9 


A8DC 


CE7D 


ACA4 


A91A 


F5A9 




CONTROL ADDRESS 
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-OACO- 



-0A10- 



--0A20- 



-OA30- 



-0A40- 



-0A60- 



CFAD 082 
5CC2 

CFAD 090 
F499 

CFAO 100 
1E8D 

CFAD 109 
2A07 

CFAD 117 
2080 



-0A50- CFAD 126 
9 ADO 



BWRP 021 
9018 



•0A7G- CCOM 036 
55B3 



CFAD 083 
D5CA 

CFAD 091 
2507 

CFAD 101 
27D3 

CFAD 110 
2E1B 

CFAD 118 
2C25 

CFAD 127 
925A 

BWRP 022 
94 BO 

CCOM 037 
52A8 



CFAD 084 
D043 

CFAD 092 
8A06 

CFAO 102 
2507 

CFAD ill 
E4BB 

CFAD 119 
CE48 

CFAD 128 
2C07 

BWRP 023 
9268 

CCOM 038 
50AA 



CFAD 085 
0FF3 

CFAD 093 
F493 

CFAD 103 
8A06 

CFAD 112 
F4BD 

CFAD 120 
1C7D 

CFAD 129 
FD5B 

BWRP 024 
926A 

CCOM 039 
55BB 



CFAO 086 
C4C2 

CFAD 094 
ED1F 

CFAD 104 
2A13 

CFAO 113 
8A42 

CFAD 121 
B266 

CFAD 130 
A8DE 

BWRP 02 5 
926A 

CCOM 040 
56A8 



CFAD 087 
A1E4 

CFAD 097 
2C07 

CFAD 106 
2C13 

CFAD 114 
F4B9 

CFAD 123 
FD4F 

CFAD 131 
2BE3 

BWRP 026 
5007 

CCOM 041 
5EAA 



CFAD 088 
2EFF 

CFAD 098 
B260 

CFAD 107 
A656 

CFAD 115 

1E8D 

CFAD 124 
2E07 

CFAD 132 
9C70 

BWRP 02 7 
9268 

CCOM 042 
100E 



CFAD 089 
E496 

CFAD 099 
2080 

CFAD 108 
5CC2 

CFAD 116 
2 7C3 

CFAD 125 
1E85 



5007 

BWRP 028 
9614 

CCOM 043 
128E 



-OAOO- 



-0A10- 



-0A20- 



-0A30- 



-0A40- 



-0A5O- 



-0A60- 



-0A70- 



0A8- 



-0A80- BWRP 012 
F790 



-0A90- 



BWRP 037 
E1AE 



-OAAO- BWRP 054 
56F2 

-OABO- BWRP 065 
A9C0 

-OACO- CICY 036 
6FAD 

-OADO- DCLL 019 
0214 

-OAEO- CCOM 076 
3002 



-OAFO- 



DCLC 015 
7602 



BWRP 013 
94B4 

BWRP 040 
08CD 

BWRP 055 
16C5 

BWRP 061 
E22D 

CICY 037 
55ED 

DCLt 020 
8AD2 

CCOM 077 
7FFB 

DCLC 016 
2D40 



BWRP 014 
B35E 

BWRP 048 
C4AE 

BWRP 056 
372B 

BWRP 062 

6886 

CICY 038 

63EB 

CSTS 063 
8ADA 

CCOM 078 
7EEB 

DCLC 017 
8AF8 



BWRP 015 
9270 

BWRP 049 
092 B 

BWRP 057 
4660 

BWRP 063 
8AAA 

CICY 039 
62AD 

CSTS 064 
7098 

CCOM 079 
777B 

DCLC 018 
0D40 



BWRP 016 
92 70 

BWRP 050 
C4AE 

BWRP 058 
D633 

CICY 032 
814C 

CICY 040 
67AD 

CSTS 065 

A8DE 

CCOM 080 
766B 

DCLC 019 
2B80 



BWRP 017 
5007 

BWRP 051 
2440 

BWRP 059 
240 7 

CICY 033 
55E5 

CICY 041 
6F75 

CSTS 066 
5 OOF 

CCOM 081 
100A 

DCLC 020 
4F7F 



BWRP 018 
926E 

BWRP 05 2 
78F2 

BWRP 060 
A9C0 

CICY 034 
61EB 

CICY 042 
AB71 

CSTS 067 
511F 

CCOM 082 
128E 

DCLC 021 
2B84 



BWRP 019 
8476 

BWRP 053 
2400 

BWRP 064 
2A07 

CICY 035 
60AD 

CICY 043 

B01B 

CSTS 068 
128E 

DCLC 014 
C176 

DCLC 022 
2BC4 



CONTROL ADDRESS 



-0A80- 

-0A90- 

-OAAO- 

-OABO- 

-OACO- 

-OADO- 

-OAEO- 

-OAFO- 
OA — 



ADDRESS LIST 
CONTROL ADDRESS 2 
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-OBGO- 



-GB10- 



-0B20- 



-OB30- 



-0B40- 



-0B50- 



-0B60- 



-0B70- 



DCLC 023 

C9DD 

DCLC 031 
2207 

DCLC 039 
5F4F 

DCLC 047 
F21F 

DCLC 055 
5EA2 

DCLC 063 
C4B6 

DCLC 071 
E61F 

DCLC 079 
C49E 



DCLC 024 
FDAi 

DCLC 032 

8B3A 

DCLC 040 
FC9F 

DCLC 048 
E149 

DCLC 056 
2A07 

DCLC 064 
2B00 

DCLC 072 
CDE9 

DCLC 080 
054B 



DCLC 025 
262 B 

DCLC 033 

0D9F 

DCLC 041 

2B84 

DCLC 049 
F149 

DCLC 057 
A01E 

DCLC 065 
B362 

DCLC 073 
262B 

DCLC 081 

C4D7 



DCLC 026 
E600 

DCLC 034 
2 BOO 

DCLC 042 
E61F 

DCLC 050 
5429 

DCLC 058 
AF44 

DCLC 066 
2B84 

DCLC 074 

CDEO 

DCLC 082 
28C2 



DCLC 027 
05C3 

DCLC 035 
F21F 

DCLC 043 
FDAE 

DCLC 051 
2307 

DCLC 059 

C3D8 

DCLC 067 
2307 

DCLC 075 
4F4F 

DCLC 083 
9E06 



DCLC 028 
F094 

DCLC 036 
C3CB 

DCLC 044 
2628 

DCLC 052 
72A2 

DCLC 060 
875A 

DCLC 068 
A78A 

DCLC 076 
5F4F 

CICY 013 
5892 



DCLC 029 
F514 

DCLC 037 
AAF4 

DCLC 045 
FDA7 

DCLC 053 
2B00 

DCLC 061 
F537 

DCLC 069 
2BC0 

DCLC 077 
FC9F 

CICY 014 
2020 



DCLC 030 
2323 

DCLC 038 
A254 

DCLC 046 
2B80 

DCLC 054 
2400 

DCLC 062 
5449 

DCLC 070 
0D10 

DCLC 078 
6471 

CICY 015 
87C8 



-OB0O- 



-0B10- 



-0B20- 



-0B30- 



-0B4<H 



-0B50- 



-0B60- 



-0B70- 



-0B80- 



-0B90- 



CDMD 150 
A520 

CDMD 113 
2B07 



-OBAO- CDMD 121 
7B38 



-OBBO- 



CDMD 129 
77AF 



-OBCO- CDMD 137 
9AF0 



-OBDO- 



CDMD 145 
5F10 



-OBEO- CFCO 059 
F467 

-QBFO- FILE 141 
2302 



CDMD 106 
571A 

CDMD 114 
E597 

CDMD 122 
ZfFF 

CDMD 130 
C181 

CDMD 138 
54F9 

CDMD 146 
6F75 

CFCO 060 
4226 

FILE 142 
2304 



CDMD 107 
A317 

CDMD 115 
2040 

CDMD 123 
C498 

CDMD 131 
E5C2 

CDMD 139 
9254 

CDMD 147 
7F10 

CFCO 061 
4006 

FILE 143 
3110 



0B8- 

CDMD 108 
2FFf 

CDMD 116 
0004 

CDMO 124 
5006 

CDMD 132 
B1BC 

CDMO 140 
27C3 

CDMD 148 
2A07 

CFCO 062 
128E 

FILE 144 
3D29 



CDMD 109 
F483 

CDMD 117 
77AF 

CDMD 125 
5226 

CDMD 133 
0B9D 

CDMO 141 
C94C 

COMD 149 
A8DE 

FILE 137 
8114 

FILE 145 
4FDF 



CDMD 110 
5004 

CDMD 118 
5730 

CDMD 126 
D1C3 

CDMD 134 
E0C2 

CDMO 142 
176B 

CFCO 056 
0008 

FILE 138 
3E00 

FILE 146 
43DF 



CDMD 111 
5224 

CDMD 119 
DIAL 

CDMD 127 
577B 

CDMD 135 
4086 

CDMD 143 
EF51 

CFCO 057 
6FF5 

FILE 139 
2490 

FILE 147 

8344 



CDMD 112 
5EF9 

CDMD 120 
7718 

CDMD 128 
7710 

CDMD 136 
1002 

CDMO 144 
3713 

CFCO 058 
4886 

FILE 140 

0E08 

FILE 148 
5FCF 



CONTROL ADDRESS 



-0B80- 

-0B90- 

-OBAO- 

-OBBO- 

-OBCO- 

-OBDO- 

-OBEO- 

-OBFO- 
OB — 
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OC — 



-ocoo- 
-ocio- 

-0C20- 
-0C30- 
-0C40- 
-0C50- 
-0C60- 
-0C70- 



FILE 149 
1CFF 

FILE 157 

5ECF 

FILE 165 
3110 

FILE 173 
3D23 

FILE 181 
1D00 

FILE 189 
1D00 

FILE 197 
3114 

FILE 205 
2308 



FILE 150 
C4FE 

FILE 158 

C4FE 

FILE 166 

8CD6 

FILE 174 
B346 

FILE 182 
CAFF 

FILE 190 
2390 

FILE 198 
2380 

FILE 206 
2D55 



FILE 151 

4FCF 

FILE 159 
2310 

FILE 167 
2035 

FILE 175 
3073 

FILE 183 
2380 

FILE 191 
3114 

FILE 199 
2308 

FILE 207 

3 0B3 



FILE 152 
5FCF 

FILE 160 
2390 

FILE 168 
2D18 

FILE 176 
B342 

FILE 184 
3114 

FILE 192 
2308 

FILE 200 
2D35 

FILE 208 
B342 



FILE 153 
C4FE 

FILE 161 
2D13 

FILE 169 
4FDF 

FILE 177 
3114 

FILE 185 
8CD2 

FILE 193 
2D75 

FILE 201 
30A3 

FILE 209 

1000 



FILE 154 
8CCA 

FILE 162 
4FDF 

FILE 170 
8CCE 

FILE 178 

8CD2 

FILE 186 
2D45 

FILE 194 
3DA3 

FILE 202 
B342 

FILE 210 
2480 



FILE 155 
5BCF 

FILE 163 
2D25 

FILE 171 
5BCF 

FILE 179 
2DA3 

FILE 187 
3DE3 

FILE 195 
B342 

FILE 203 
1D00 

FILE 211 
8C8C 



FILE 156 
B346 

FILE 164 

43DF 

FILE 172 
2D85 

FILE 180 
B342 

FILE 188 
8 342 

FILE 196 
1D00 

FILE 204 
3114 

FILE 212 
2100 



-ocoo- 



-OCIO- 



-0C20- 



-0C3 0- 



-0C40- 



-0C50- 



-0C60- 



-0C70- 



0C8- 



-0C80- 


FILE 213 


FILE 214 


FILE 215 


FILE 216 


FILE 217 


FILE 218 


FILE 219 


FILE 220 


-OC80- 




1E00 


0E08 


1210 


2480 


3C83 


8502 


2100 


3E00 




-0C90- 


FILE 221 


FILE 222 


FILE 223 


FILE 224 


FILE 225 


FILE 226 


FILE 227 


FILE 228 


-0C90- 




8C92 


0E08 


0E04 


1210 


2D43 


4EDF 


5CC2 


2A07 




-OCAO- 


FILE 229 


FILE 230 


FILE 231 


BMCK 006 


BMCK 007 


BMCK 008 


BMCK 009 


BMCK 010 


-QCAO- 




2490 


5E42 


863 A 


7612 


566F 


577F 


7672 


2610 




-OCBO- 


BMCK Oil 


BMCK 012 


BMCK 018 


BMCK 19 


DCLA 002 


DCLA 03 


DCLA 004 


DCLA 005 


-OCBO- 




A2CF 


2400 


2135 


98FA 


10CE 


F93E 


B35A 


2C07 




-OCCO- 


DC LA 006 


OCLA 007 


DCLA 008 


DCLA 009 


DCLA 010 


FILE 233 


FILE 234 


FILE 235 


-OCCO- 




2845 


3B83 


46 A6 


17FD 


80 IF 


2308 


2308 


2308 




-OCDO- 


FILE 236 


FILE 237 


FILE 238 


FILE 239 


FILE 240 


FILE 241 


DPTR 006 


DPTR 007 


-OCDO- 




2308 


2308 


2308 


2308 


2308 


128E 


EB60 


2D20 




-GCEO- 


DPTR 008 


DPTR 009 


DPTR 010 


DPTR Oil 


DPTR 012 


DPTR 013 


DPTR 015 


DPTR 019 


-OCEO- 




4DCF 


2813 


2985 


294B 


2A25 


2ACB 


2C75 


5D38 




-OCFO- 


DPTR 020 


DPTR 021 


DPTR 022 


DPTR 023 


DPTR 024 


DPTR 025 


DPTR 026 


DPTR 027 


-OCFO- 




5BC0 


4F8F 


2D04 


OBFF 


C4FC 


3F83 


4BBF 


5006 




CONTROL ADDRESS 
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00— 



-0000- 



-0D10- 



-0020- 



-0030- 



-0040- 



-0D50- 



-00 60- 



-0070- 



DPTR 028 
C48B 

DPTR 036 
3445 

DPTR 045 
EAA8 

DPTR 055 
0440 

DPTR 064 
3E83 

OPTR 072 
9D52 

OPTR 084 
0547 

CFLS 036 
8212 



OPTR 029 
29FF 

DPTR 037 
82E4 

OPTR 046 
3E23 

OPTR 056 
C538 

DPTR 065 
3485 

DPTR 073 
9054 

OPTR 085 
F251 

CFLS 037 

7E78 



OPTR 030 
C49F 

OPTR 038 
4F8F 

DPTR 047 
3F15 

OPTR 057 
4006 

OPTR 066 
0550 

OPTR 077 
4DCF 

OPTR 086 
DA68 

CFLS 038 
7878 



DPTR 031 
82E4 

DPTR 039 
2004 

DPTR 048 
1545 

DPTR 058 
C4C0 

OPTR 067 
8106 

DPTR 078 
2002 

DPTR 087 
1485 

CFLS 039 

F47D 



DPTR 032 
8CEE 

DPTR 040 
2B05 

OPTR 049 

0B2C 

OPTR 060 

E53E 

DPTR 068 
1E83 

DPTR 080 
C55C 

DPTR 088 
9D3C 

CFLS 040 
7278 



DPTR 033 
C56B 

DPTR 041 
4BBF 

DPTR 050 
1F83 

DPTR 061 
1445 

DPTR 069 
DA52 

DPTR 081 
15E5 

DPTR 043 
9044 

CFLS 041 
7070 



OPTR 034 
29FF 

DPTR 042 
8D0C 

DPTR 051 
3D02 

DPTR 062 
8040 

OPTR 070 
9258 

DPTR 082 
3485 

CFLS 034 
4606 

CFLS 042 
925A 



DPTR 035 
C4Ai 

DPTR 044 
3445 

DPTR 054 
IF23 

DPTR 063 
1545 

DPTR 071 
9044 

DPTR 083 
3E83 

CFLS 035 

45BB 

CFLS 043 

A8DE 



-0000- 



-ODIO- 



-0D2 0- 



-0D30- 



-0040- 



-0050- 



-0060- 



-0070- 



0D8- 



-0D80- CICY 241 
A05A 

-0090- CXCY 249 
914C 

-OOAO- CICY 225 
A05A 

-ODBO- CICY 233 
A05A 

-ODCO- CCOM 056 
70A2 



-ODDO- 



-ODEO- 



FILX 359 
7E62 

FILX 367 

F4E8 



-ODFO- FILX 375 
4EEF 
CONTROL ADDRESS 



CICY 242 
81B6 

CICY 250 
91BA 

CICY 226 

AE48 

CICY 234 
A05A 

CCOM 057 
74B2 

FILX 360 
FFD6 

FILX 368 

2C1B 

FILX 376 
2E45 



CICY 243 
AE84 

CICY 251 
914E 

CICY 227 
AEAA 

CICY 235 
A05A 

CCOM 058 
7CC2 

FILX 361 
51EF 

FILX 369 
1CFF 

FILX 377 

4BEF 



CICY 244 
AE7E 

CICY 252 
91B8 

CICY 228 
AE5A 

CICY 236 
A05A 

CCOM 059 
E1CC 

FILX 362 
51CF 

FILX 370 
5FFD 

FILX 378 
4BDF 



CICY 245 

A05A 

CICY 253 
A582 

CICY 229 
A9AA 

CICY 237 

AD7C 

CCOM 060 
7892 

FILX 363 
2D07 

FILX 371 

4EDF 

FILX 379 
4EFF 



CICY 246 
A05A 

CICY 254 
A582 

CICY 230 
AC88 

CICY 238 

A07C 

CCOM 061 
002 

FILX 364 

4BDF 

FILX 372 
4BDF 

FILX 380 
2E25 



CICY 247 
A05A 

CICY 255 
A05A 

CICY 231 
ADFA 

CICY 239 
A9F8 

CCOM 062 
128E 

FILX 365 
2D15 

FILX 373 

2D07 

FILX 381 
4BEF 



CICY 248 
A05A 

CICY 256 
A05A 

CICY 232 
ADEO 

CICY 240 
A9F8 

FILX 358 
3F85 

FILX 366 
7CE3 

FILX 374 
48DF 

FILX 382 
4BDF 



-0080- 

-0090- 

-ODAO- 

-ODBO- 

-OOCO- 

-ODDO- 

-ODEO- 

-ODFO- 
00 — 



ADDRESS LIST 
CONTROL ADORESS 2 
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-OEOO- FILX 383 
OCFF 

-0E10- FILX 391 
5E42 

-0E20- FILX 399 
2D13 

-0E30- FILX 407 
0DB8 

-0E40- FILX 415 
iEOO 

-0E50- FILX 423 
OF 85 

-0E60- FILX 431 
DC6E 

-0E70- FILX 439 
2D08 



FiLX 384 
C496 

FILX 392 
1D0Q 

FILX 400 
4BDF 

FILX 408 
DA36 

FILX 416 

IDOO 

FILX 424 
C4CE 

FILX 432 
7A32 

FILX 440 

4DAF 



FILX 385 
2F43 

FILX 393 
0222 

FILX 401 
2E83 

FILX 409 
B236 

FILX 417 

2E08 

FILX 425 

2C07 

FILX 433 
C9EA 

FILX 441 
4FAF 



FILX 386 
4EFF 

FILX 394 
4ECF 

FILX 402 
2F45 

FILX 410 
86F4 

FILX 418 
5C32 

FILX 426 
7C32 

FILX 434 
3F85 

FILX 442 
EC7E 



FILX 387 
2EC3 

FILX 395 
2F85 

FILX 403 
CDBB 

FILX 411 
2F07 

FILX 419 
C3DC 

FILX 427 
0212 

FILX 435 

0004 

FILX 443 
2C85 



FILX 388 
DFA6 

FILX 396 
4BFF 

FILX 404 
F9B1 

FILX 412 
2A07 

FILX 420 
0EC3 

FILX 428 

8776 

FILX 436 
2410 

FILX 444 
7C32 



FILX 389 
2D 15 

FILX 397 
4BDF 

FILX 405 
4886 

FILX 413 
2B07 

FILX 421 
F0D1 

FILX 429 
2B43 

FILX 437 
A030 

FILX 445 
B362 



FILX 390 
4BDF 

FILX 398 
4EEF 

FILX 406 
C4BA 

FILX 414 
7A62 

FILX 422 
5007 

FILX 430 
7CA8 

FILX 438 
7EA0 

FILX 446 
0222 



-OEOO- 



-0E10- 



-0E20- 



-0E30- 



-0E40- 



-0E50- 



-0E60- 



-0E70- 



0E8- 



-0E80- 


CICY 163 


CICY 164 


CICY 165 


CICY 166 


CICY 167 


CICY 168 


CICY 169 


CICY 170 


-0E80- 




AD14 


A 996 


AEB8 


AEDC 


AC56 


A89C 


ABD8 


A8C2 




-0E90- 


CICY 171 


CICY 172 


CICY 173 


CICY 174 


CICY 175 


CICY 176 


CICY 177 


CICY 178 


-0E90- 




ADOO 


B388 


9A7C 


B176 


82F8 


A05A 


A9C4 


A9C4 




-OEAO- 


DYPE 216 


DYPE 221 


DYPE 1ZZ 


DYPE 223 


DYPE 224 


DYPE 225 


DYPE 210 


DYPE 211 


-OEAO- 




88AC 


D52A 


3E83 


6664 


7E6A 


88CE 


A078 


2404 




-OEBO- 


DYPE 212 


DYPE 213 


DYPE 214 


DYPE 215 


DYPE 217 


DYPE 218 


DYPE 219 


DYPE 220 


-OEBO- 




C423 


D139 


EEAO 


AAF4 


1F00 


2F08 


3483 


88D0 




-OECO- 






BCHK 095 


BCHK 095 


ETTR 046 


ETTR 047 


ETTR 022 


ETTR 023 


-OECO- 








0000 


0000 


3625 


8EF6 


EAFC 


5BDF 




-OEDO- 


ETTR 024 


ETTR 025 


ETTR 026 


ETTR 027 


ETTR 028 


ETTR 029 


ETTR 030 


ETTR 031 


-OEDO- 




5F00 


7D08 


6CF1 


C4E9 


CDE9 


3B00 


2E15 


57FD 




-OEEO- 


ETTR 032 


ETTR 033 


ETTR 034 


ETTR 035 


ETTR 036 


ETTR 037 


ETTR 038 


ETTR 039 


-OEEO- 




2FFD 


5DE0 


60C5 


7 DEO 


271B 


FOFO 


276B 


E0F3 




-OEFO- 


ETTR 040 


ETTR 041 


ETTR 042 


ETTR 043 


ETTR 044 


ETTR 045 


ETTR 048 


ETTR 049 


-OEFO- 




0206 


CDC9 


DDF8 


2B20 


0D04 


8EFE 


5BDF 


30B9 
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-OFOO- 
-OFIO- 
-0F20- 
-OF30- 
-0F40- 
-QF50- 



ETTR 050 
21A5 

BSTP 007 
B2F8 

BDIA 424 
1212 

BCHK 085 
0D8D 

BMCK 028 
C6D3 

BMCK 036 
8C82 



-0F6O- BMCK 044 
021C 



-0F70- 



DPTS 088 
7B38 



ETTR 051 
2745 

BSTP 008 
4E86 

BDIA 425 
5EFF 

BCHK 086 
C4B6 

BMCK 029 
D6D5 

BMCK 037 
83B0 

BMCK 045 
iDOO 

OPTS 089 
2E43 



ETTR 052 
8EEC 

BSTP 016 
26C3 

BDIA 426 
C4A4 

BCHK 087 
2D4D 

BMCK 030 
E6D3 

BMCK 038 
94AC 

BMCK 046 
8F4E 

OPTS 090 
5006 



BSTP 002 
2404 

BSTP 017 
2707 

BDIA **27 
2800 

BCHK 088 
42C0 

BMCK 031 
F6D7 

BMCK 039 
2D02 

DPTS 083 
IF45 

DPTS 091 
C57B 



BSTP 003 
CF8F 

BSTP 018 
2213 

BDIA 428 
2020 

BCHK 089 
6A21 

BMCK 032 
C2D8 

BMCK 040 
8EF6 

DPTS 084 
F573 

DPTS 092 
C4FF 



BSTP 004 
DF8F 

BSTP 019 
96C4 

80IA 432 
B024 

BCHK 090 
6B31 

BMCK 033 
02DF 

BMCK 041 
2D40 

DPTS 085 
5FB9 

DPTS 093 
3445 



BSTP 005 
CE90 



5007 

BCHK 083 
0C2B 

BCHK 091 
128E 

BMCK 034 
E2E1 

BMCK 042 
8FF2 

DPTS 086 
E271 

DPTS 094 
8D38 



BSTP 006 

AAA2 

BDIA 423 
EE9E 

BCHK 084 
C4B6 



5007 

BMCK 035 
021E 

BMCK 043 
021 A 

OPTS 087 
1863 

DPTS 095 
8D40 



-OFOO- 



-0F10- 



-0F2Q- 



-0F30- 



-0F40- 



-0F50- 



-0F60- 



-0F70- 



0F8- 



-0F80- 


DCLA Oil 


DCLA 012 


DCLA 013 


DCLA 014 


DCLA 018 


DCLA 020 


DCLA 041 


DCLA 042 


- OF 8.0- 




8798 


87AE 


87AE 


5009 


C490 


C78F 


8362 


A0F4 




-0F90- 


DCLA 044 


DCLA 045 


DCLA 047 


DCLA 049 


DCLA 050 


DCLA 052 


DCLA 053 


DCLA 058 


-0F90- 




001 B 


C497 


BOFC 


2486 


D88F 


2480 


E98F 


5632 




-OFAO- 


DCLA 059 


DCLA 060 


ETRP 023 


ETRP 024 


ETRP 025 


ETRP 026 


ETRP 027 


ETRP 029 


-OFAO- 




C60C 


AC74 


FAF4 


5ACF 


5BFF 


5F2C 


F25F 


D232 




-OFBO- 


ETRP 030 


ETRP 031 


ETRP 032 


ETRP 033 


ETRP 034 


ETRP 035 


ETRP 03ft 


ETRP 037 


-OFBO- 




DFC5 


236D 


23CB 


5D20 


7F20 


337F 


5F20 


6DF7 




-Q.FC.O- 


ETRP 038 


ETRP 039 


ETRP 040 


ETRP 044 


ETRP 045 


ETRP 046 


ETRP 047 


ETRP 048 


-OFCO- 




7D20 


23CB 


223D 


5F20 


6CF1 


C4DD 


CADC 


3F40 




-OFDO- 


ETRP 049 


ETRP 050 


ETRP 051 


ETRP 052 


ETRP 053 


ETRP 054 


ETRP 055 


ETRP 056 


-OFDO- 




2E55 


54FD 


3FF5 


5 DEO 


6DC5 


7DE0 


2215 


24 IB 




-OFEO- 


ETRP 057 


ETRP 05 8 


ETRP 059 


ETRP 060 


ETRP 061 


ETRP 062 


ETRP 063 


ETRP 064 


-OFEO- 




FOEA 


F266 


1613 


246B 


EOED 


0208 


DFF2 


CFF2 




-OFFO- 


ETRP 065 


ETRP 066 


ETRP 067 


ETRP 068 


ETRP 069 


ETRP 070 


EIRP 071 


ETRP 072 


-OFFO- 




2F20 


0D80 


2215 


2307 


5F2C 


3613 


2435 


8FE6 
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-1000- CICY 195 
A8C2 

-1010- CICY 050 
9BF4 

-1020- DCLB 209 
9CFC 

-1030- DYPE 172 
5C68 

-1040- DCLB 199 
8AEE 

-1050- EXFR 007 
2455 

•1060- EXFR 015 
4A86 

-1070- EXFR 023 
6B65 



CICY 196 

A05A 

CICY 047 
9A6A 

OCLB 211 
9812 

DYPE 173 
5468 

DPTC 067 
0C3B 

EXFR 008 
2515 

EXFR 016 
4C86 

EXFR 024 
E777 



CICY 197 
AB7E 

CICY 048 
COll 

DCLB 212 
9812 

DYPE 174 
5268 

DPTC 068 
FOCA 

EXFR 009 
3593 

EXFR 017 
4E86 

EXFR 025 
6D65 



CICY 198 

AB8A 

CICY 049 
9001 

DCLB 214 
A4A2 

DYPE 175 
5068 

DPTC 070 

8616 

EXFR 010 
2045 

EXFR 018 
2613 

EXFR 026 
F77B 



CICY 199 
B302 

BWRP 066 
2A07 

DYPE 168 
2791 

DYPE 176 
52 E9 

DPTC 081 
8612 

EXFR Oil 
21A5 

EXFR 019 
5700 

EXFR 027 
6F65 



CICY 200 
B30C 

BWRP 067 
2B43 

DYPE 169 
566D 

DYPE 177 
2771 

DPTC 074 
OCBB 

EXFR 012 
22A3 

EXFR 020 
C76F 

EXFR 028 
C37F 



CICY 201 
ACC8 

BWRP 068 
2F07 

DYPE 170 
16E3 

DYPE 178 
128E 

DPTC 075 
F0C8 

EXFR 013 
2363 

EXFR 021 
6965 

EXFR 029 
6865 



CICY 202 

ACC8 

BWRP 069 
9C72 

DYPE 171 
2404 



5007 

DPTC 077 
8604 

EXFR 014 
4852 

EXFR 022 
D773 

EXFR 030 

D303 



-1000- 



-1010- 



-1020- 



-103 0- 



-1040- 



-1050- 



-1060- 



-1070- 



108- 



-1080- 


EXFR 031 


EXFR 032 


EXFR 033 


EXFR 034 


EXFR 035 


EXFR 036 


EXFR 037 


EXFR 038 


-1080- 




6A65 


E307 


6C65 


F30B 


6E65 


6663 


23FF 


C49F 




-1090- 


EXFR 040 


EXFR 042 


EXFR 043 


EXFR 044 


EXFR 045 


EXFR 047 


EXFR 048 


EXFR 050 


-1090- 




F41A 


21AB 


F498 


201 D 


9068 


319B 


9068 


7940 




-10A0- 


EXFR 051 


EXFR 052 


EXFR 053 


EXFR 054 


EXFR 055 


EXFR 056 


EXFR 057 


EXFR 058 


-10A0- 




6444 


7B40 


6444 


7D40 


6444 


7F40 


6444 


144B 




-10B0- 


EXFR 059 


EXFR 060 


EXFR 061 


EXFR 062 


EXFR 063 


EXFR 064 


EXFR 065 


EXFR 066 


-10B0- 




D03C 


5899 


5AB9 


5CD9 


5EF9 


909E 


22FF 


C4CF 




-10C0- 


EXFR 068 


EXFR 070 


EXFR 071 


EXFR 072 


EXFR 073 


EXFR 075 


EXFR 076 


EXFR 078 


-10C0- 




F44A 


313D 


C048 


20FD 


905C 


213F 


905C 


148B 




-10D0- 


EXFR 079 


EXFR 081 


EXFR 083 


EXFR 084 


EXFR 085 


EXFR 087 


EXFR 088 


EXFR 089 


-10D0- 




C060 


F45A 


211B 


35AD 


90 5A 


21A7 


2507 


905A 




-10E0- 


EXFR 090 


EXFR 091 


EXFR 092 


EXFR 093 


EXFR 094 


EXFR 095 


EXFR 096 


EXFR 097 


-10E0- 




F475 


52E2 


A 06 2 


51A2 


A044 


54B2 


3659 


2845 




-10F0- 


EXFR 098 


EXFR 099 


EXFR 100 


EXFR 104 


EXFR 105 


EXFR 106 


EXFR 107 


EXFR 108 


-1 OF 0- 




2907 


98DE 


2466 


E67E 


1625 


2400 


AAA2 


2406 




CONTRQL ADDRESS 
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1 1 OO- 


EXFR 109 


EXFR 110 


EXFR 111 


EXFR 112 


EXFR 113 


EXFR 114 


EXFR 115 


EXFR 116 


-1100- 




A06A 


A044 


5FB2 


F80A 


2643 


FD8E 


3D15 


C992 




il 10- 


EXFR 117 


EXFR 118 


EXFR 119 


EXFR 120 


EXFR 121 


EXFR 122 


EXFR 123 


EXFR 124 


-1110- 




3D 83 


2E23 


3485 


A923 


2E07 


F822 


E523 


3445 




1120- 


EXFR 125 


EXFR 126 


EXFR 127 


EXFR 128 


EXFR 129 


EXFR 130 


EXFR 131 


EXFR 132 


-1120- 




1545 


8964 


D529 


3E83 


022E 


56F2 


8D58 


51A2 




1130- 


EXFR 133 


EXFR 134 


EXFR 135 


EXFR 136 


EXFR 137 


EXFR 138 


EXFR 139 


EXFR 140 


-1130- 




2007 


D83A 


52 F2 


613B 


602D 


C844 


3E43 


C3C4 




1140- 


EXFR 141 


EXFR 142 


EXFR 143 


EXFR 144 


C8IN 005 


C8IN 006 


CSAS 006 


CSAS 007 


-1140- 




2820 


9D54 


C3C3 


8D44 


8A70 


A8CA 


3443 


1082 




1150- 


CSAS 008 


CSAS 009 


CSAS 010 


CSAS Oil 


CSAS 012 


CSAS 013 


CSAS 014 


CSAS 015 


-1150- 




2E15 


573A 


576D 


0661 


E0F3 


00C4 


F366 


07FB 




1160- 


CSAS 016 


CSAS 017 


CSAS 018 


CSAS 019 


CSAS 020 


CSAS 021 


CSAS 022 


CSAS 023 


-1160- 




F0E7 


C5F5 


3042 


C07C 


D07B 


148B 


57FB 


5710 




1170- 


CSAS 024 


CSAS 025 


CSAS 026 


CSAS 027 


CSAS 028 


CSAS 029 


CSAS 030 


CSAS 031 


-1170- 




9154 


B07C 


1002 


2040 


9166 


1002 


577B 


77FF 





118- 



- 1 1 80- 


CSAS 032 


CSAS 033 


CSAS 034 


CSAS 035 


CSAS 036 


CSAS 037 


CSAS 038 


CSAS 039 


-1180- 




C905 


272B 


D188 


271B 


27AB 


F03 5 


771A 


55B9 




-1190- 


CSAS 040 


CSAS 041 


CSAS 042 


CSAS 043 


CSAS 044 


CSAS 045 


CSAS 046 


CSAS 047 


-1190- 




EOEB 


F0A6 


2707 


2EF3 


D02A 


2F07 


91AC 


7F1A 




-11A0- 


CSAS 048 


CSAS 049 


CSAS 050 


CSAS 051 


CSAS 052 


CSAS 053 


CSAS 054 


CSAS 055 


-11A0- 




75E3 


EOEB 


F095 


573A 


D01B 


5F10 


7F7F 


F01E 




-11B0- 


CSAS 056 


CSAS 057 


CSAS 058 


CSAS 059 


CSAS 060 


CSAS 061 


CSAS 062 


CSAS 063 


-11B0- 




5006 


91A0 


5006 


918E 


1413 


3002 


9150 


573A 




-ilCO- 


CSAS 064 


CSAS 065 


CSAS 066 


CSAS 067 


CSAS 068 


CSAS G69 


CSAS 070 


CSAS 071 


-11C0- 




F5D1 


7A7F 


1A9F 


C4F9 


0002 


1415 


2A07 


91F8 




-11D0- 


CSAS 072 


CSAS 073 


CSAS 074 


CSAS 75 


CSAS 076 


CSAS 077 


CSAS 078 


CSAS 079 


-UDO- 




E5D9 


7A7F 


C4F9 


91CA 


7A7F 


F5E1 


E445 


91CA 




-11E0- 


CSAS 080 


CSAS 081 


CSAS 082 


CSAS 083 


CSAS 084 


CSAS 085 


CSAS 086 


CSAS 087 


-UEO- 




142D 


91F8 


77AF 


91F6 


9172 


FOFD 


C5BF 


5 73 A 




-11F0- 


CSAS 088 


CSAS 089 


CSAS 090 


CSAS 091 


CSAS 092 


CSAS 093 


CSAS 094 


CSAS 095 


-11F0- 




F5E5 


77AF 


C4F9 


2002 


25FF 


FOEC 


C1E9 


C591 
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-1200- CSAS 096 
F589 

-1210- CSAS 104 
F583 

-1220- CSAS 112 
577D 

-1230- CSAS 120 
757F 

•1240- CSAS 128 
A8DE 

•1250- CSAS 136 
FOOT 

-1260- BWRP 086 
9D52 

-1270- BWRP 077 
2EA5 



CSAS 097 

E58B 

CSAS 105 

F047 

CSAS 113 
171B 

CSAS 121 
751A 

CSAS 129 
28 A3 

CSAS 137 
9214 

BWRP 087 
B09E 

BWRP 078 
1773 



CSAS 098 
D1D1 

CSAS 106 
5BB5 

CSAS 114 
7AFF 

CSAS 122 
2507 

CSAS 130 
9C70 

CCOM 064 
50A2 

BWRP 088 
B09E 

BWRP 079 
5460 



CSAS 099 
A8DC 

CSAS 107 
61B9 

CSAS 115 
67 A3 

CSAS 123 

2AFF 

CSAS 131 
01CD 

CCOM 065 
54B2 

BWRP 089 
9F20 

BWRP 080 
64E5 



CSAS 100 
F03C 

CSAS 108 
60AD 

CSAS 116 
771A 

CSAS 124 
C4AE 

CSAS 132 
2040 

CCOM 066 
5CC2 

BWRP 073 
2607 

BWRP 081 
2543 



CSAS 101 

D18F 

CSAS 109 
5710 

CSAS 117 
5BA9 

CSAS 125 
F447 

CSAS 133 
9202 

CCOM 067 
5892 

BWRP 074 
2E95 

BWRP 082 
2EC3 



CSAS 102 
ACA4 

CSAS 110 
57FB 

CSAS 118 
C4BB 

CSAS 126 
2C75 

CSAS 134 
0040 

CCOM 068 
2020 

BWRP 075 
C4F2 

BWRP 083 
7468 



CSAS 103 
AC 84 

CSAS 111 
3002 

CSAS 119 
5710 

CSAS 127 
DD43 

CSAS 135 
9202 

CCOM 069 
128E 

BWRP 076 
2607 

BWRP 084 
7E6A 



-1200- 



-1210- 



-1220- 



-1230- 



-1240- 



-1250- 



-1260- 



-1270- 



■1280- 



BWRP 085 
8765 



-1290- DC LE 050 
2B02 

-12A0- DCLE 059 
0D02 

-12B0- DCLE 067 
0583 



-12C0- 

-12D0- 

-12E0- 

-12F0- 
CONTROL ADORESS 



DCLE 042 
DD9D 

EPCH 041 
930C 

EPCH 020 
3C45 

EPCH 029 
1643 



DCLE 071 
0313 

DCLE 051 
£610 

DCLE 060 
3483 

DCLE 068 
F083 

DCLE 043 
2B00 

EPCH 032 
98B4 

EPCH 021 
DE66 

EPCH 030 
92CC 



DCLE 072 
C4B6 

DCLE 052 
F09B 

DCLE 061 
5439 

DCLE 069 
3345 

DCLE 044 
0244 

EPCH 010 
1F00 

EPCH 022 
3C25 

EPCH 043 
EA52 



128- 

DCLE 073 
9E54 

DCLE 053 
262B 

DCLE 062 
C52A 

DCLE 070 
A782 



5007 

EPCH 014 
FA74 

EPCH 023 
E853 

EPCH 044 
DA53 



DCLE 046 
5F7F 

DCLE 054 
FD92 

DCLE 063 
1565 

DCLE 038 

CD89 

EPCH 034 
2462 

EPCH 016 
6CF7 

EPCH 024 
CA48 

EPCH 045 
0E49 



DCLE 047 
FC9D 

DCLE 055 
A7B0 

DCLE 064 
5F4F 

DCLE 039 
262 B 

EPCH 035 
3643 

EPCH 017 
EA53 

EPCH 026 
3C23 

EPCH 046 
F4D2 



DCLE 048 
2007 

DCLE 045 
A254 

DCLE 065 
FC9D 

DCLE 040 
CD 89 

EPCH 036 
2402 

EPCH 018 
CE62 

EPCH 027 
2F40 

EPCH 047 
EE53 



DCLE 049 
4F0F 

DCLE 058 
FCA4 

DCLE 066 
E503 

DCLE 041 
E638 

EPCH 037 
1C83 

EPCH 019 
DE53 

EPCH 028 
2462 

EPCH 048 
EF84 



-1280- 

-1290- 

-12A0- 

-12B0- 

-12C0- 

-12D0- 

-12E0- 

-12F0- 
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-13C0- 



-1310- 



-1320- 



-1330- 



-1340- 



-1350- 



-1360- 



•1370- 



EPCH 049 
2C07 

EPCH 058 
C4A3 

EPCH 066 
7AF2 

EPCH 078 
5C09 

EPCH 086 
99B0 

EPCH 094 
74C8 

EPCH 102 
9854 

CFCO 109 
7888 



EPCH 050 
98B0 

EPCH 059 
3C53 

EPCH 067 
8964 

EPCH 079 
59C9 

EPCH 087 
2B07 

EPCH 095 
C04C 

EPCH 103 
994A 

CFCO 110 
7FFB 



EPCH 052 
C808 

EPCH 060 
4A06 

EPCH 068 
71A2 

EPCH 080 
C85E 

EPCH 088 
2C45 

EPCH 096 
094C 

CFCO 103 
F46F 

CFCO 111 
E079 



EPCH 053 
2023 

EPCH 061 
2007 

EPCH 069 
72E2 

EPCH 081 
5809 

EPCH 089 

2 DC 3 

EPCH 097 
5884 

CFCO 104 
711B 

CFCO 112 
0002 



EPCH 054 
3C83 

EPCH 062 
21A5 

EPCH 070 
F72C 

EPCH 082 
D83F 

EPCH 090 
28F7 

EPCH 098 
3CE9 

CFCO 105 
700B 

CFCO 113 
128E 



EPCH 055 
1C23 

EPCH 063 
2002 

EPCH 071 
98C4 

EPCH 083 
5224 

EPCH 091 
5899 

EPCH 099 
2D07 

CFCO 106 
7338 

8MCK 047 
2007 



EPCH 056 
3659 

EPCH 064 
7619 

EPCH 073 

C82B 

EPCH 084 
282B 

EPCH 092 
54A0 

EPCH 100 
EE63 

CFCO 107 
722B 

BMCK 048 
2400 



EPCH 057 
5009 

EPCH 065 
7 A 09 

EPCH 074 
CC42 

EPCH 085 
5 8D5 

EPCH 093 
78A8 

EPCH 101 
1CA3 

CFCO 108 
7998 

BMCK 049 
5E3F 



-1300- 



-1310- 



-1320- 



-1330- 



-1340- 



-1350- 



-1360- 



-1370- 



138- 



-1380- 


BMCK 050 


BMCK 051 


BNCK 05 8 


BMCK 059 


BMCK 060 


BMCK 061 


BMCK 062 


8MCK 063 


-1380- 




C4A7 


1212 


5672 


2440 


7672 


2400 


2185 


4 2 OF 




-1390- 


BMCK 064 


BMCK 065 


BMCK 066 


BMCK 067 


BMCK 068 


BMCK 069 


BMCK 070 


BMCK 071 


-1390- 




7618 


7318 


5710 


271B 


7718 


5672 


16C5 


1713 




-13A0- 


BMCK 072 


BMCK 073 


BMCK 074 


BMCK 075 


BMCK 076 


BMCK 077 


BMCK 078 


BMCK 079 


-13A0 




6666 


7618 


A7FA 


2404 


223 3 


1F2E 


2171 


2B07 




-13B0- 


BMCK 080 


BMCK 081 


BMCK 082 


BMCK 083 


BMCK 08 4 


BMCK 085 


BMCK 086 


BMCK 087 


-13B0- 




7A00 


4632 


261 D 


27 ID 


66 62 


17AB 


2185 


873C 




-13C0- 


BMCK 088 


DCLB 106 


DCLB 107 


DCLB 108 


DCLB 109 


DCLB 039 


DCLB 040 


OCLB 041 


-13C0- 




96 8C 


6224 


6224 


6224 


9414 


1683 


3613 


3 773 




-13D0- 


DCLB 042 


DCLB 043 


DCLB 044 


DCLB 045 


OCLB 046 


DCLB 054 


DCLB 056 


DCLB 05 7 


-13D0 




5260 


D25A 


1643 


3363 


6224 


0249 


F4C3 


5038 




-13E0- 


DCLB 058 


DCLB 059 


DCLB 061 


DCLB 062 


DCLB 063 


DCLB 0?1 


DCL8 073 


OCLB 074 


-13E0 




008B 


FOFA 


5119 


C4C4 


5030 


0049 


F4C5 


0183 




-13F0- 


DCLB 075 


DCLB 76 


OCLB 077 


OCLB 078 


DCLB 079 


OCLB 080 


DC LB 081 


OCLB 082 


-13F0 




F0C4 


4206 


5038 


008B 


F0C5 


5119 


C4C4 


5049 




NTROL ADDRESS 
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-1400- 



-1410- 



-1420- 



-1430- 



-1450- 



-1460- 



DCLB 083 
6224 

0C4.B 091 
C035 

DCLB 115 
15F5 

DCLB 110 
153B 



-1440- DCLB 129 
1343 



DCLB 175 
F25F 

DCLB 180 
6664 



-1470- CMLT 085 
5019 



DCLB 084 
5038 

DCLB 092 
D033 

DCLB 116 
6505 

DCLB 111 
151B 

DCLB 131 
5230 

DCLB 176 
5FF2 

DCLB 181 
42FF 

CMLT 086 
5709 



DCLB 085 
0083 

DCLB 093 
6224 

DCLB 117 
5038 

DCLB 112 
153B 

DCLB 142 
0659 

DCLB 177 
7F60 

DCLB 183 
8721 

CMLT 087 
5679 



DCLB 086 
F094 

DCLB 095 
06 39 

DCLB 118 
4006 

DCLB 113 
9420 

DCLB 144 
C54A 

DCLB 178 
9460 



5007 

CMLT 088 
5B69 



DCLB 087 
C51F 

DCLB 096 
3763 

DCLB 119 
C497 

DCLB 103 
7212 

DCLB 145 
1565 

DCLB 190 
A041 

CMLT 081 
5EF9 

CMLT 089 
5AB9 



DCLB 088 
1537 

DCLB 100 
7260 

DCLB 121 
D63D 

DCLB 104 
B082 

DCLB 165 
1763 

DCLB 191 
1DO0 

CMLT 082 
53E9 

CMLT 090 
55A9 



DCLB 089 
F031 

DCLB 101 
B082 

DCLB 123 
726A 

DCLB 126 
7212 

DCLB 166 
7 56 A 

DCLB 195 
0244 

CMLT 083 
5239 

CMLT 091 
5459 



DCLB 090 
E033 

DCLB 114 
2405 

DCLB 124 
943E 

DCLB 128 
6226 

DCLB 174 
6666 

DCLB 179 
5F60 

CMLT 084 
5129 

CMLT 092 
2407 



-1400- 
-1410- 
-1420- 
-1430- 
-1440- 
-1450- 
-1460- 
-1470- 



148- 



-1480- 


CMLT 093 


CMLT 094 


CMLT 095 


CMLT 096 


CMLT 097 


CMLT 098 


CMLT 099 


FILE 264 


-1480- 




C50C 


058F 


E08A 


C10C 


C58C 


24F7 


128E 


2C15 




-1490- 


FILE 265 


FILE 266 


FILE 267 


FILE 268 


FILE 269 


FILE 270 


FILE 271 


FILE 272 


-1490- 




2D07 


7C62 


2A15 


3A25 


2B07 


7A52 


2A07 


2E23 




-14A0- 


FILE 273 


FILE 274 


FILT 071 


FILT 072 


FILT 073 


FILT 074 


FILT 075 


FILT 076 


-14A0- 




49BF 


128E 


50FF 


FOBD 


DB2E 


8220 


2F43 


EB32 




-14B0- 


FILT 077 


FILT 078 


FILT 079 


FILT 080 


FILT 081 


FILT 082 


FILT 083 


FILT 084 


-14B0- 




2F15 


FB36 


2F25 


0680 


2EC3 


957A 


2F07 


C1B8 




-14C0- 


FILT 085 


FILT 086 


FILT 087 


FILT 088 


FILT 089 


FILT 090 


FILT 091 


FILT 092 


-14C0- 




E5FE 


2045 


4EDF 


2E15 


4BEF 


2E4 3 


4BFF 


1D00 




-14D0- 


FILT 093 


FILT 094 


FILT 095 


FILT 096 


FILT 097 


FILT 098 


FILT 099 


FILT 100 


-14D0- 




4EEF 


FBD6 


B236 


C3FD 


F059 


5E42 


6EE6 


6EE6 




-14E0- 


FILT 101 


FILT 102 


FILT 103 


FILT 104 


FILT 105 


FILT 106 


FILT 107 


FILT 108 


-14E0- 




5CF8 


4DCF 


2C63 


4FCF 


5C52 


2C07 


F8EC 


7C52 




-14F0- 


FILT 109 


FILT 110 


FILT 111 


FILT 112 


FILT 113 


FILT 114 


FILT 115 


FILT 116 


-14F0- 




0E04 


3D00 


2C15 


4BCF 


6EE4 


C3FB 


0222 


CA86 




CONTROL ADDRESS 
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CLQAD^*E60, EC LEVEL=i28211 ,f>AGE 292 
15™ 



-1500- FILT 117 
DF87 

-1510- FILT 125 
5BCF 

•1520- FILT 133 
EB31 

-1530- FILT 141 
A3D8 

-1540- FILT 149 
DEEA 

-1550- FILT 157 
D8F5 

■1560- FILT 165 
ED64 

-1570- FILT 173 
3C25 



FILT 118 
48FF 

FILT 126 

6CD1 

FILT 134 
CO 32 

FILT 142 
869C 

FILT 150 
2E85 

FILT 158 
C8F7 

FILT 166 
3083 

FILT 174 

D8F6 



FILT 119 
A37E 

FILT 127 
F098 

FILT 135 
2018 

FILT 143 
2D25 

FILT 151 
EE09 

FILT 159 
2D07 

FILT 167 

FD68 

FILT 175 

3E13 



FILT 120 
5A0F 

FILT 128 
8E0C 

FILT 136 
7C62 

FILT 144 
2C07 

FILT 152 
FA98 

FILT 160 
2E15 

FILT 168 
3023 

FILT 176 
7C52 



FILT 121 

C4BC 

FILT 129 

2007 

FILT 137 

5DF9 

FILT 145 
2F07 

FILT 153 
5ACF 

FILT 161 
2C15 

FILT 169 
1035 

FILT 177 
2F07 



FILT 122 
5C62 

FILT 130 
2C13 

FILT 138 
00 A B 

FILT 146 
956A 

FILT 154 

C4DC 

FILT 162 
956C 

FILT 170 
2E07 

FILT 178 
FOFE 



FILT 123 

CA9F 

FILT 131 
956A 

FILT 139 

F0B5 

FILT 147 

2D 07 

FILT 155 

7C62 

FILT 163 

5C0B 

FILT 171 
7E62 

FILT 179 
3E45 



FILT 124 
C5BC 

FILT 132 
5E52 

FILT 140 

80D4 

FILT 148 
2C45 

FILT 156 
2 EC 3 

FILT 164 
1CF5 

FILT 172 
2EE3 

FILT 180 
C982 



-1500- 



-1510- 



-1520- 



-1530- 



-1540- 



-1550- 



-1560- 



-1570- 



158- 



-1580- 


FILT 181 


FILT 182 


FILT 183 


FILT 184 


FILT 185 


FILT 186 


FILT 137 


FILT 188 


-1580- 




3F85 


1004 


C880 


F98F 


43 86 


C48F 


3F45 


2A07 




-1590- 


FILT 189 


FILT 190 


FILT 191 


FILT 192 


FILT 193 


FILT 194 


FILT 195 


FILT 196 


-1590- 




0F83 


C496 


EA20 


2B43 


3B15 


5C42 


7EA8 


7CA0 




-15A0- 


FILT 197 


CFMU 062 


CFMU 063 


CFMU 064 


CFMU 065 


CFMU 024 


CFMU 025 


CFMU 026 


-15A0- 




8E40 


C627 


0080 


27C3 


B266 


5CA2 


C93D 


3D83 




-1580- 


CFMU 027 


CFMU 028 


CFMU 029 


CFMU 30 


CFMU 031 


CFMU 032 


CFMU 03 3 


CFMU 034 


-15B0- 




7CA2 


5CE2 


52C8 


5EC0 


2C13 


8356 


54B2 


5AF9 




-15C0- 


CFMU 035 


CFMU 036 


CFMU 037 


CFMU 038 


CFMU 039 


CFMU 040 


CFMU 041 


CFMU 042 


-15C0- 




5B89 


5699 


5359 


5039 


5109 


5219 


5729 


46C6 




-15D0- 


CFMU 043 


CFMU 044 


CFMU 045 


CFMU 046 


CFMU 047 


CFMU 048 


CFMU 049 


CFMU 050 


-1500- 




5CC2 


0FF3 


C4DE 


A1E4 


26 FF 


F4DF 


3713 


5AE2 




-15E0- 


CFMU 051 


CFMU 052 


CFMU 053 


CFMU 054 


CFMU 055 


CFMU 056 


CFMU 057 


CFMU 058 


-15E0- 




8B0A 


05E7 


B260 


56E9 


1E85 


C76E 


3E85 


2080 




-15F0- 


CFMU 059 


CFMU 060 


CFMU 061 


CFMU 009 


CFMU 010 


CFMU Oil 


CFMU 012 


CFMU 013 


-15F0- 




F322 


2703 


B25E 


5CB2 


FC2A 


44C6 


1415 


5CA2 




ADDRESS 
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-1600- 



CFMU 014 
5079 



•1610- CFMU 022 
2507 



-1620- 



-1630- 



-1640- 



-1650- 



-1660- 



-1670- 



ALDP 024 
873C 

ALDP 032 
534A 

ALDP 040 
9638 

ALDP 048 
3645 

ALDP 078 
F0E6 

ALDP 086 
8746 



CFMU 015 
5F09 

CFMU 023 
95CE 

ALDP 025 
8744 

ALDP 033 
874E 

ALDP 041 
044 B 

ALOP 071 
042D 

ALDP 079 
E66C 

ALDP 087 
5403 



CFMU 016 
57F9 

DCLR 108 
3415 

ALDP 026 
3643 

ALDP 034 
D131 

ALDP 042 
FOCF 

ALDP 072 
EODC 

ALDP 080 

C9ED 

ALDP 088 
8746 



CFMU 017 
5189 

DCLR 109 
15C5 

ALDP 027 
043D 

ALDP 035 
D01D 

ALDP 043 
041B 

ALDP 073 
3715 

ALDP 081 
041B 

ALDP 089 
440D 



CFMU 018 
5299 

DCLR 110 
1533 

ALDP 028 
E0C3 

ALDP 036 
7543 

ALDP 044 
FOAA 

ALDP 074 
047B 

ALDP 082 
FOAA 

ALDP 090 
8746 



CFMU 019 
5329 

DCLR 112 
81CA 

ALDP 029 
873C 

ALDP 037 
F530 

ALDP 045 
362 5 

ALDP 07 5 
9668 

ALDP 083 
3615 

ALDP 091 
5413 



CFMU 020 
5E39 

ALDP 022 
26A3 

ALDP 030 
24B3 

ALDP 03 8 
24F3 

ALDP 046 
3613 

ALDP 076 
043F 

ALDP 084 
6662 

ALDP 092 
8746 



CFMU 021 
2107 

ALDP 023 
2 783 

ALDP 031 
2577 

ALDP 039 
F330 

ALDP 047 
8746 

ALDP 077 
EOAA 

ALDP 085 
874C 

ALDP 093 
441D 



-1600- 



-1610- 



-1620- 



-1630- 



-1640- 



-1650- 



-1660- 



-1670- 



168- 



-1680- 


ALDP 094 


ALDP 095 


ALDP 096 


ALDP 097 


ALDP 098 


ALDP 099 


ALDP 100 


ALDP 104 


-1680- 




873C 


FOOA 


874C 


874C 


17AD 


2243 


2515 


F737 




-1690- 


ALDP 108 


ALDP 112 


ALDP 114 


ALDP 115 


ALDP 116 


ALDP 117 


ALDP 118 


ALDP 119 


-1690- 




F61B 


00C9 


F49A 


3713 


962C 


3685 


E63A 


8746 




-16A0- 


ALDP 120 


ALDP 121 


ALDP 122 


ALDP 123 


ALDP 124 


ALDP 125 


ALDP 126 


ALDP 127 


-16A0- 




54F3 


8746 


44FD 


172D 


839C 


E70F 


874C 


2 5FF 




-16B0- 


ALDP 128 


ALDP 129 


ALDP 130 


ALDP 148 


ALDP 150 


ALDP 152 


ALDP 153 


ALDP 154 


-16B0- 




C48E 


873C 


968C 


0049 


9694 


839C 


1645 


C744 




-16C0- 


ALDP 155 


ALDP 156 


ALDP 157 


ALDP 158 


ALDP 159 


ALDP 160 


ALDP 161 


ALDP 162 


-16C0- 




1785 


5FE9 


5E35 


23FD 


0361 


F4D0 


237B 


23CD 




-1600- 


ALDP 163 


ALDP 164 


ALDP 165 


ALDP 166 


ALDP 167 


ALDP 168 


ALDP 169 


ALDP 170 


-16D0- 




874E 


D75B 


5E3D 


176D 


96C6 


174D 


E743 


2ZFf 




-16E0- 


ALDP 171 


ALDP 172 


ALDP 173 


ALDP 174 


ALDP 175 


ALDP 176 


ALDP 177 


ALDP 178 


-16E0- 




C4AC 


3 743 


874E 


1743 


C36F 


873C 


8752 


2243 




-16F0- 


ALDP 179 


ALDP 180 


OYPE 191 


DYPE 192 


DYPE 193 


DYPE 194 


DYPE 195 


DYPE 196 


-16F0- 




8744 


96AE 


2791 


5B60 


58BB 


7B60 


6664 


2404 
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-1700- DYPE 197 
A078 

-1710- DYPE 204 
895E 

-1720- FILX 251 
7EC0 

-1730- FILX 216 
5C62 

-1740- FILX 224 
3F15 

•1750- FILX 232 
C4FD 

-1760- FILX 201 
5E32 

1770- FILX 209 
7DE8 



DYPE 198 
0F04 

DYPE 205 
3623 

FILX 252 

85EE 

FILX 217 

5EDF 

FiLX 225 

7CEA 

FILX 233 
C846 

FILX 202 
IE45 

FILX 210 

974E 



DYPE 199 
Dili 

DYPE 206 

CEOF 

FILX 238 
978E 

FILX 218 
ID A3 

FILX 226 

1F1D 

FILX 234 
IFEB 

FILX 203 
7E32 

FILX 195 
3E00 



DYPE 200 
C413 

DYPE 207 
8924 

FILX 211 
F92E 

FILX 219 

0D3A 

FILX 227 

FBEF 

FILX 235 
FF44 

FILX 204 
2E07 

FILX 196 
5FFF 



DYPE 201 
EE8D 



5007 

FILX 212 
2C07 

FILX 220 

■3D83 

FILX 228 
5DE8 

FILX 236 
F8A5 

FILX 205 
2F25 

FILX 197 
EODD 



DYPE 202 
B362 

FILX 248 

2C0 7 

FILX 213 
2D07 

FILX 221 
7CE0 

FILX 229 

D5CF 

FILX 237 
822A 

FILX 206 
3F43 

FILX 198 
86AC 



DYPE 203 
8954 

FILX 249 
2D35 

FILX 214 
7C62 

FILX 222 

2C 07 

FILX 230 
7DB8 

FILX 199 
IC2 5 

FILX 207 

FBA6 

FILX 239 
CD9B 



DYPE 208 
893 8 

FILX 250 
3D43 

FILX 215 
7CE8 

FILX 223 
2D07 

FILX 231 
5886 

FILX 200 
7C52 

FILX 208 
5DS8 

FILX 240 

CB06 



-1700- 



-1710- 



-1 720- 



-1730- 



-1740- 



-1750- 



-1760- 



-1770- 



178- 



-1780- 


FILX 241 


FILX 242 


FILX 243 


FILX 244 


FILX 245 


FILX 246 


FILX 247 


FiLX 261 


-1780- 




FF06 


FB8F 


B22A 


2F45 


FBC9 


F985 


8208 


2A07 




-1790- 


FILX 262 


FILX 263 


FILX 264 


FILX 265 


FILX 266 


FILX 267 


FILX 268 


FILX 269 


-1790- 




2B25 


3B43 


5CA8 


4CC6 


C4A4 


5CA0 


3815 


5EAA 




-17A0- 


FILX 270 


FILX 271 


FILX 272 


FILX 273 


FILX 274 


FILX 275 


FILX 276 


FILX 2 80 


-17A0- 




6EC5 


C4AF 


2C13 


2F45 


CDC7 


F9C 2 


97CC 


5DE9 




-17B0- 


FILX 281 


FILX 282 


FILX 283 


FILX 284 


FILX 285 


FILX 286 


FILX 287 


FILX 288 


-17B0- 




3B13 


6BE3 


F4BA 


OEFF 


C4A4 


2CA3 


7CF3 


F4A4 




-17C0- 


FILX 289 


FILX 277 


FILX 278 


FILX 279 


FILX 253 


FILX 254 


FHX 255 


FILX 256 


-17C0- 




8DCE 


4886 


C4AD 


97CE 


2C13 


F9CE 


2F 07 


3CA5 




-1700- 


FILX 257 


FILX 258 


FiLX 259 


FILX 260 


CDVD 088 


CDVD 089 


CDVD 090 


CDVD 091 


-17D0- 




2D07 


7C52 


2EE3 


8E3A 


2002 


7118 


700B 


7338 




-17E0- 


COVD 092 


CDVD 093 


CDVD 094 


CDVD 095 


CDVD 096 


CDVD 09 7 


CDVD 100 


COVD 101 


-17E0- 




722 B 


799B 


788B 


755B 


744B 


128E 


2002 


F5E3 




-17F0- 


CDVD 102 


CDVD 103 


CDVD 104 


CDVD 105 


CDVD 106 


CDVD 10/ 


U>Ve> iu8 




-17F0- 




0008 


3002 


711B 


7008 


7338 


7228 


12HE 


5007 
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-18C0- 



-1810- 



-1820- 



-1830- 



-1840- 



-1850- 



-1860- 



-1870- 



ECOL 083 
2F08 

ECOL 091 
911A 

ERDR 060 
C3AE 

ERDR 068 
A044 

ERDR 076 
2080 

ERDR 084 
F758 

ERDR 092 
F0E9 

ERDR 100 
ODEA 



ECOL 084 
980A 

ERDR 053 
54E9 

ERDR 061 
F72C 

ERDR 069 
CEBD 

ERDR 07 7 
0F30 

ERDR 085 

DDDA 

ERDR 093 
2D07 

ERDR 101 
1D45 



ECOL 085 
2F0C 

ERDR 054 
C4A0 

ERDR 062 
2406 

ERDR 070 
9258 

ERDR 078 
984A 

ERDR 086 
B16A 

ERDR 094 
CFDA 

ERDR 102 

816A 



ECOL 086 
980A 

ERDR 055 
5EB2 

ERDR 063 
CEAC 

ERDR 071 
2C75 

ERDR 079 
2D04 

ERDR 087 
861C 

ERDR 095 
92D4 

ERDR 103 
3623 



ECOL 087 
2F0A 

ERDR 056 
5D69 

ERDR 064 
3D23 

ERDR 072 
4452 

ERDR 080 
0830 

ERDR 08 8 
CFD5 

ERDR 096 
CFF3 

ERDR 104 
A4E8 



ECOL 088 
22 IB 

ERDR 057 
A044 

ERDR 065 
DDAF 

ERDR 073 
9D54 

ERDR 081 
2FA3 

ERDR 089 

98B6 

ERDR 097 
3D45 

ERDR 105 
2D0 7 



ECOL 089 
F491 

ERDR 05 8 
3C85 

ERDR 066 
9EE0 

ERDR 074 
5460 

ERDR 082 
0E3B 

ERDR 090 
0E4B 

ERDR 098 
9874 

ERDR 106 

DDDA 



ECOL 090 
3C13 

ERDR 059 
930E 

ERDR 067 
8DC0 

ERDR 075 
F747 

ERDR 083 
C4DC 

ERDR 091 
F76F 

ERDR 099 
FOFA 

ERDR 107 
1B00 



-1800- 



-1810- 



-1820- 



-1830- 



-1840- 



-1850- 



-186 0- 



-1870- 



188- 



-1880- 


ERDR 108 


ERDR 109 


ERDR 110 


ERDR ill 


ERDR 112 


ERDR 113 


ERDR 114 


ERDR 115 


-1880- 




6CF7 


EA34 


FA26 


EE34 


E835 


76F2 


CE1A 


DE18 




-1890- 


ERDR 116 


ERDR 117 


ERDR 118 


ERDR 119 


ERDR 120 


ERDR 121 


ERDR 122 


ERDR 123 


-1890- 




FA35 


0D04 


A078 


910A 


3C45 


DE1E 


3C25 


1C83 




-18A0- 


ERDR 124 


ERDR 125 


ERDR 126 


ERDR 127 


ERDR 128 


EROR 129 


ERDR 130 


ERDR 131 


-18A0- 




3C23 


8964 


9C03 


DA35 


EDAF 


2B40 


9304 


3000 




-18B0- 


ERDR 133 


ERDR 137 


ERDR 138 


ERDR 139 


ERDR 140 


ERDR 141 


ERDR 142 


ERDR 143 


-18B0- 




2E13 


98B8 


2 08 5 


2E23 


8964 


B16A 


2A07 


C3C2 




-18C0- 


ERDR 144 


ERDR 145 


ERDR 146 


ERDR 148 


ERDR 149 


ERDR 150 


ERDR 151 


ERDR 152 


-18C0- 




9EE0 


903C 


CC5D 


F753 


2445 


2513 


40A6 


31BB 




-18D0- 


ERDR 153 


ERDR 154 


ERDR 158 


ERDR 159 


ERDR 160 


ERDR 161 


ERDR 162 


ERDR 164 


-18D0- 




905A 


EE56 


36A9 


2855 


2915 


3983 


5E49 


F565 




-18E0- 


ERDR 168 


ERDR 169 


ERDR 170 


ERDR 171 


ERDR 172 


ERDR 173 


ERDR 174 


ERDR 175 


-18E0- 




2A35 


9BE6 


261B 


F4EA 


9BB6 


5884 


E471 


5884 




-18F0- 


ERDR 176 


ERDR 177 


ERDR 178 


CSTS 093 


CSTS 094 


CSTS 095 


CSTS 096 


CSTS 097 


-18F0- 




2 IFF 


C4E4 


98B8 


55B9 


2125 


2F07 


217B 


9C76 
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19C0- 


EROR 180 


ERDR 181 


ERDR 182 


ERDR 18 3 


ERDR 184 


ERDR 185 


ECOL 041 


ECOL 042 


-1900- 




2B08 


9050 


2B0C 


9050 


2B0A 


9050 


75C0 


20 A B 




1910- 


ECOL 043 


ECOL 044 


ECOL 045 


ECOL 046 


ECOL 047 


ECOL 048 


ECOL 049 


ECOL 050 


-1910- 




7BC0 


20AB 


7FC0 


1C1B 


F871 


5959 


5AB9 


5EF9 




1920- 


ECQL 051 


ECOL 052 


ECOL 022 


ECOL 023 


ECOL 024 


ECOL 025 


ECOL 026 


ECOL 027 


-1920- 




20AB 


990C . 


5738 


E72A 


6541 


F72E 


6B41 


C332 




1930- 


ECOL 028 


ECOL 029 


ECOL 030 


ECOL 031 


ECOL 032 


ECOL 033 


ECOL 034 


ECOL 035 


-1930- 




6F41 


0336 


6941 


E33A 


6A41 


F33E 


6E41 


5224 




1940- 


ECOL 036 


ECOL 037 


ECOL 038 


ECOL 039 


ECOL 040 


ECOL 003 


ECOL 004 


ECOL 005 


-1940- 




2828 


311B 


C48D 


5879 


B345 


2485 


2AF7 


5AB9 




1950- 


ECOL 006 


ECOL 007 


ECOL 008 


ECOL 009 


ECOL 010 


ECOL Oil 


ECOL 012 


ECOL 013 


-1950- 




4EA6 


5B99 


5 859 


01E3 


F0E1 


2118 


D861 


31 IB 




1960- 


ECOL 014 


ECOL 015 


ECOL 016 


ECOL 017 


ECOL 018 


ECOL 019 


ECOL 020 


ECOL 021 


-1960- 




E824 


261B 


F4A4 


2DAI 


5EC0 


3E13 


7EC0 


997C 




19 70- 


ECOL 053 


ECOL 054 


ECOL 055 


ECOL 056 


ECOL 057 


ECOL 058 


ECOL 059 


ECOL 060 


-1970- 




2DC0 


2DFB 


5119 


C4FD 


08AD 


EOCA 


1C2B 


E814 





198- 



-1980- 

-1990- 

-19A0- 

-19B0- 

-19C0- 

-19D0- 

-19E0- 

-19F0- 
CONTROL AODRESS 



ECOL 061 
5629 

ECOL 069 
5 2D 9 

ECOL 098 
FOAB 

ECOL 106 
5889 

ECOL 109 
2D30 

ECOL 117 
F854 

ERCX 057 
9B0E 

ERCX 068 
2F80 



ECOL 062 
71A2 

ECOL 070 
93CA 

ECOL 099 
2 IFF 

ECOL 107 
FOCO 

ECOL 110 
202B 

ECOL 118 

9946 

ERCX 058 
9BDA 

ERCX 069 
98DE 



ECOL 063 
5C99 

ECOL 092 
5089 

ECOL 100 
D829 

ECOL 108 
994A 

ECOL ill 
5FC0 

ECOL 119 
5FE9 

ERCX 059 
99DE 

ERCX 070 
2B80 



ECOL 064 
A062 

ECOL 093 
51A2 

ECOL 101 
212B 

ECOL 071 
1525 

ECOL 112 
3D9B 

ECOL 120 
5BA9 

ERCX 060 
99EE 

ERCX 072 
9BDE 



ECOL 065 
A044 

ECOL 094 
52E2 

ECOL 10 2 
1C4B 

ECOL 072 

3485 

ECOL 113 

5BC0 

ECOL 121 
5599 

ERCX 061 
980C 

CDVD 002 
E1FD 



ECOL 066 
2E07 

ECOL 095 
D81E 

ECOL 103 
58D5 

ECOL 080 
5FA0 

ECOL 114 
3D9B 

ECOL 122 
3D9B 

ERCX C62 
99EE 

CDVD 003 
3485 



ECOL 067 
C5 38 

ECOL 096 
5224 

ECOL 104 
2DCB 

ECOL 081 
7CA8 

ECOL 115 
55C0 

ECOL 12 3 
99C4 

ERCX 063 
99E£ 

CDVD 004 
83 7C 



ECOL 068 
F837 

ECOL 097 
01E3 

ECOL 105 
2D3D 

ECOL 082 
9FG1 

ECOL 116 
IC1B 

ERCX 056 
38 2 3 

ERCX 067 
F775 

CDVD 005 
A21E 



-1980- 

-1990- 

-19A0- 

-19B0- 

-19C0- 

-1900- 

-19E0- 

-19F0- 
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•1A0CH 



DPTC 029 
C82E 



-1A10- DPTC 037 
C80C 

-1A20- DPTC 045 
F0A4 

-1A30- DCLE 032 
FDB8 



-1A40- 



-1A60- 



ECOL 124 
C862 



-1A50- ECOL 132 
2483 



ECOL 140 
9956 



•1A70- CICY 073 
5EA8 



DPTC 030 
9835 

DPTC 03 8 
9835 

DPTC 04 7 
AF7A 

DCLE 033 
929E 

ECOL 125 
990C 

ECOL 13 3 

9A5E 

ECOL 14 i 
9830 

CICY 074 
56 AO 



DPTC 031 
8612 

DPTC 039 
9835 

DPTC 051 
OCBB 

DCLE 030 
ECBO 

ECOL 126 
2445 

ECOL 134 
2443 

ECOL 142 

9B66 

CICY 075 
617B 



DPTC 032 
8612 

DPTC 040 
9835 

DPTC 052 
F08C 

DCLE 031 
8172 

ECOL 127 
9A5E 

ECOL 135 
9A5E 

CICY 079 
2F07 

CICY 076 
606F 



DPTC 033 
8612 

DPTC 041 
9835 

DPTC 053 
FC20 

DCLE 034 
2B40 

ECOL 12 8 
2425 

ECOL 136 
2423 

CICY 080 
128E 

CICY 077 
6FAD 



DPTC 034 
8612 

DPTC 042 
9835 

DPTC 055 
860C 

DCLE 035 
2645 

ECOL 129 
9A5E 

ECOL 137 
9A5E 

CICY 070 
5098 

CICY 078 
128E 



DPTC 035 
8612 

DPTC 043 
C81A 

DPTC 060 
AF78 

DCLE 03 6 
3613 

ECOL 130 
2415 

ECOL 138 
2413 

CICY 071 
50BB 

CBIN 038 
ADA8 



DPTC 036 
9042 

DPTC 044 
0C3B 

DPTC 065 
9855 

DCLE 037 
92B8 

ECOL 131 
9A5E 

ECOL 139 
C864 

CICY 072 
C4E7 

CBIN 039 
AC I A 



-1A00- 



-IA10- 



-1A20- 



-1A30- 



-1A40- 



-1A50- 



-1A60- 



-1A70- 



1A8- 



-1A80- 



-1A90- 



EPXF 041 
2DAB 

DYPE 180 
5E29 



-1AA0- DPTC 083 
8612 

-1AB0- CLST 103 
AD26 



-1AC0- 



DPTC 091 
8612 



-1AD0- CFCO 078 
7EA8 

-1AE0- CSFT 046 
9C34 



-1AF0- 



CDMD 214 
56F2 



EPXF 042 
2DAB 

DYPE 181 
2791 

OPTC 084 
8CDC 

CLST 104 
5218 

DPTC 092 
8CDC 

CFCO 079 

78A8 

CSFT 047 
2D28 

CDMD 215 
4206 



EPXF 043 
2DAB 

DYPE 182 
7C68 

DPTC 085 
8612 

CLST 105 

72A8 

DPTC 093 
8612 

CFCO 080 
F45B 

CSFT 048 
9AE8 

CDMD 216 
5030 



EPXF 044 
2DAB 

DYPE 183 
7468 

DPTC 086 
8D54 

CLST 106 
5218 

DPTC 094 
861C 

CFCO 081 
72A8 

CSFT 049 
ID23 

CDMD 217 
5F6A 



EPXF 045 
2DAB 

DYPE 184 
7268 

DPTC 087 
8612 

CLST 107 

72A0 

DPTC 095 
8F66 

CFCO 082 
70 AO 

CSFT 050 
A460 

CDMO 218 
7DFF 



EPXF 046 
2DAB 

DYPE 185 
7068 

DPTC 088 
8612 

CLST 108 

AD30 

DPTC 096 
8612 

CFCO 083 
1B73 

CSFT 051 

B04C 

CDMD 219 
7D3A 



EPXF 04 7 
9B08 

DYPE 186 
2771 

DPTC 089 
8612 

CLST 109 
9AB2 

OPTC 09 7 
8612 

CFCO 084 
128E 

CSFT 052 
9C34 

CDMD 220 
C375 



EPXF 048 -1A80- 
9B14 

DYPE 187 -1A90- 
128E 

DPTC 090 -1AA0- 
8612 



5007 



5007 



CDMD 221 
128E 



-1AB0- 



DPTC 098 -1AC0- 
8612 



-1AD0- 



CDMD 213 -1AE0- 
3002 
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IBCO- 


BPSW 065 


BPSW 066 


BPSW 067 


BPSW 068 


EPXF 049 


EPXF 050 


EPXF 051 


EPXF 052 


-1B0O- 




2405 


2B53 


6884 


9C72 


201D 


2DE3 


5BC0 


6B41 




1B10- 


EPXF 053 


EPXF 054 


EPXF 055 


EPXF 056 


EPXF 057 


EPXF 058 


EPXF 059 


EPXF 060 


-1B10- 




78C0 


58D5 


C518 


6141 


D51C 


6741 


E520 


6941 




1B20- 


EPXF 061 


EPXF 062 


EPXF 063 


EPXF 064 


EPXF 065 


EPXF 066 


EPXF 067 


EPXF 068 


-1B20- 




F524 


6F41 


C128 


6E41 


282B 


20FF 


C4B1 


9B8A 




1B30- 


EPXF 069 


EPXF 070 


EPXF 071 


EPXF 072 


EPXF 073 


EPXF 074 


EPXF 075 


EPXF 076 


-1B30- 




71C0 


2DAB 


77C0 


2 DAB 


79C0 


20 50 


7FC0 


2DAB 




1B40- 


EPXF C77 


EPXF 078 


EPXF 079 


EPXF 080 


EPXF 081 


EPXF 082 


EPXF 020 


EPXF 021 


-1B40- 




5EF9 


7FC0 


58D5 


5019 


C4DA 


9980 


5B38 


55A0 




IB50- 


EPXF 022 


EPXF 02 3 


EPXF 003 


EPXF 007 


EPXF 009 


EPXF 010 


EPXF Oil 


EPXF 012 


-1B50- 




157B 


9115 


5109 


2A65 


CD6F 


21F7 


5179 


51 F 9 




1B60- 


EPXF 013 


EPXF 014 


EPXF 015 


EPXF 016 


EPXF 017 


EPXF 018 


EPXF 019 


EPXF 024 


-1B60- 




51E9 


5199 


2485 


261B 


F4CC 


5019 


9966 


58D5 




1B70- 


EPXF 025 


EPXF 026 


EPXF 028 


EPXF 029 


EPXF 030 


EPXF 031 


EPXF 032 


EPXF 033 


-1B70- 




5889 


FODB 


5 ICO 


2 DAB 


57C0 


2DAB 


59C0 


2D5D 





188- 



-1B80- 


EPXF 034 


EPXF 035 


EPXF 036 


EPXF 037 


EPXF 038 


EPXF 039 


EPXF 040 


ERCX 050 


-IB80- 




5FC0 


2DAB 


55C0 


55E9 


5805 


5859 


B145 


8964 




-1B90- 


ERCX 054 


ERCX 055 


ERCX 002 


ERCX 003 


ERCX 004 


ERCX 005 


ERCX 006 


ERCX 007 


-1 B90- 




746 


988C 


5E88 


6FF3 


6FF3 


5FB3 


6BE5 


IB 73 




-1BA0- 


ERCX 008 


ERCX 009 


ERCX 010 


ERCX Oil 


ERCX 012 


ERCX 013 


ERCX 014 


ERCX 015 


-1BA0- 




5FF9 


E0A6 


9A73 


0E83 


F084 


3B43 


CF31 


9F73 




-1B80- 


ERCX 016 


ERCX 017 


ERCX 018 


ERCX 031 


ERCX 032 


ERCX 033 


ERCX 034 


ERCX 035 


-1BB0- 




OF 85 


EODF 


99EE 


3C13 


5629 


2607 


54E9 


5460 




-1BC0- 


ERCX 036 


ERCX 037 


ERCX 038 


ERCX 039 


ERCX 040 


ERCX 041 


ERCX 042 


ERCX 043 


-1BC0- 




C548 


1525 


F84F 


9990 


221B 


F4CF 


3C13 


71A2 




-1BD0- 


ERCX 045 


ERCX 046 


ERCX 04 7 


ERCX 048 


ERCX 049 


ERCX 019 


ERCX 020 


ERCX 021 


-1BD0- 




F70F 


CBD6 


3D83 


0D80 


9112 


3B23 


3B13 


5FA0 




-1BE0- 


ERCX 022 


ERCX 023 


ERCX 024 


ERCX 025 


ERCX 026 


ERCX 027 


ERCX 028 


ERCX 029 


-1BE0- 




7F38 


21FF 


C4B9 


261B 


F4B7 


E414 


5F88 


7F38 




-1BF0- 


ERCX 030 




CSFT 014 


CSFT 015 


CSFT 016 


CSFT 017 


CSFT 018 


CSFT 019 


-1BF0- 




9BE2 


5007 


10CE 


7CC2 


51 09 


55 BB 


5EA8 


56AA 
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-1C00- 



CSFT 020 
DGOE 



-1C10- CSFT 028 
CE16 

-IC20- CSFT 036 
2CFD 

-1C30- CSFT 055 
F0B5 

-1C40- CSFT 063 
7EA8 



•1C50- 



CSFT 071 

DID4 



'1C60- CSFT 078 
4EE6 



-1C70- 



BPSW 003 
2F07 



CSFT 021 

F508 

CSFT 029 
2AF7 

CSFT 037 
E09E 

CSFT 056 
A460 

CSFT 064 
76AA 

CSFT 072 
3685 

CSFT 079 
4666 

BPSW 004 
2125 



CSFT 022 

5CC2 

CSFT 030 
2040 

CSFT 038 
F02F 

CSFT 057 
2A07 

CSFT 065 
£049 

CSFT 073 
76A0 

CSFT 080 
006 A 

BPSW 005 
21EB 



CSFT 023 

AE98 

CSFT 031 
5DC9 

CSFT 039 
D92A 

CSFT 058 
5CC2 

CSFT 066 

A8DE 

CSFT 074 
AC40 

CSFT 081 
4226 

BPSW 006 
2007 



CSFT 024 
3B15 

CSFT 032 
6CC3 

CSFT 040 

B04C 

CSFT 059 
DO 40 

CSFT 067 

F058 

CSFT 075 

CE5E 

CSFT 082 

4006 

BPSW 007 
420F 



CSFT 025 

52A8 

CSFT 033 
1C85 

CSFT 041 
IDC3 

CSFT 060 
72A8 

CSFT 068 
C5D8 

CSFT 076 
A91A 

CSFT 083 
D5DD 

BPSW 008 
5CEB 



CSFT 026 
50AA 

CSFT 034 

E0A5 

CSFT 042 
8975 

CSFT 061 
70AA 

CSFT 069 
56A0 

CSFT 085 

ACA4 

CSFT 084 
A8DC 

BPSW 009 
3E45 



CSFT 027 
E016 

CSFT 035 
B29A 

CSFT 054 

1D83 

CSFT 062 

1B15 

CSFT 070 

1685 

CSFT 077 
0008 



5007 

BPSW OiO 
40E5 



-1C00- 



-1C10- 



-1C20- 



-1C30- 



-1C40- 



-1C50- 



-1C60- 



-1C70- 



1C8- 



-1C80- 


BPSW Oil 


BPSW 012 


BPSW 013 


BPSW 014 


BPSW 015 


BPSW 016 


BPSW 017 


BPSW 018 


-1C80- 




E187 


5892 


9C8C 


C40A 


2E4D 


D40E 


2E4D 


781A 




-1C9G- 


BPSW 019 


BPSW 020 


BPSW 021 


BPSW 022 


BPSW 023 


BPSW 024 


BPSW 025 


BPSW 027 


-1C90- 




7E1A 


7A1A 


5E82 


7E10 


214D 


5C18 


44CF 


42DF 




-1CA0- 


BPSW 029 


BPSW 030 


BPSW 031 


BPSW 032 


BPSW 033 


BPSW 034 


BPSW 035 


BPSW 036 


-1CA0- 




7C82 


6004 


5E18 


5810 


4ED3 


5ECB 


ICC5 


FC32 




-1CB0- 


BPSW 037 


BPSW 038 


BPSW 039 


BPSW 040 


BPSW 041 


BPSW 053 


BPSW 054 


BPSW 055 


-1CB0- 




3C45 


2A07 


7CC2 


4FDF 


E947 


2020 


F1CA 


AB07 




-1CC0- 


BPSW 056 


BPSW 057 


BPSW 058 


BPSW 062 


BPSW 063 


BPSW 064 


BPSW 059 


BPSW 060 


-1CC0- 




09E3 


FOCC 


A9A6 


0004 


F1C7 


87CA 


2407 


2B63 




-1CQ0- 


BPSW 061 


CMLT 109 


CMLT 110 


CMLT 111 


CMLT 112 


CMLT 113 


CMLT 114 


CMLT 115 


-1CD0- 




9B04 


1CFB 


3DE3 


58CA 


719D 


708D 


58CA 


779D 




-1CE0- 


CMLT 116 


CMLT 117 


CMLT 118 


CMLT 119 


CMLT 120 


CMLT 121 


CMLT 122 


CMLT 123 


-1CE0- 




7680 


58CA 


7B9D 


7A8D 


58CA 


759D 


748D 


1CFB 




-1CF0- 


CMLT 124 


CMLT 125 


CMLT 126 


CMLT 127 


CMLT 128 


CMLT 129 


OPTS 042 


DPTS 043 


-1CF0- 




0002 


F87B 


C5D4 


2002 


C505 


128E 


2482 


5449 
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-1DG0- 



-1D10- 



-ID20- 



-1D3G- 



•1D40- 



•1D50- 



OPTS 044 
C4B7 

OPTS 052 
1D00 

DPTS 060 
C4BA 

DPTS 077 
54F9 

DPTS 068 
3543 

DPTQ 017 
DA74 



•LD60- DPTQ 030 
D565 



•1D70- 



DPTQ 009 
C44F 



DPTS 045 
8DC4 

DPTS 053 
1FF5 

DPTS 061 
8F68 

DPTS 078 
9258 

DPTS 069 
9D52 

DPTQ 019 
B10A 

DPTQ 031 
9D52 

DPTQ 010 
CAF7 



DPTS 046 
54C9 

DPTS 054 
1F93 

DPTS 070 
5E29 

DPTS 079 
A030 

DPTQ 036 
A566 

DPTQ 020 
A568 

DPTQ 032 
DA45 

DPTQ Oil 
3423 



DPTS 047 
A0 78 

DPTS 055 
2E05 

DPTS 071 
2E07 

DPTS 062 
5460 

DPTQ 037 
93CA 

DPTQ 021 
AAA2 

DPTQ 033 
2E07 

DPTQ 012 
1F45 



DPTS 048 
0C4B 

DPTS 056 

DE9C 

DPTS 072 

.A 5 68 

DPTS 063 
8D02 

DPTQ 023 
C474 

DPTQ 026 
B14C 

DPTQ 034 
9D54 

DPTQ 013 
3485 



DPTS 049 
C49 7 

OPTS 057 
BC05 

DPTS 073 
52E9 

DPTS 064 
2E23 

DPTQ 024 
CED9 

DPTQ 027 
0EC3 

DPTQ 006 
4642 

DPTQ 014 
2E43 



DPTS 050 
0C3B 

DPTS 058 
3F45 

DPTS 074 
C131 

OPTS 066 
1547 

DPTQ 025 
9D60 

DPTQ 02 8 
FOE! 

DPTQ 007 
A072 

DPTQ 015 
9052 



DPTS 051 
C497 

DPTS 059 
0C4B 

DPTS 075 
1485 

DPTS 067 
F224 

DPTQ 016 
CED9 

DPTQ 029 
1545 

DPTQ 008 
D149 

CFMD 009 
3082 



-1D00- 



-1D10- 



-1D20- 



-1D30- 



-1D40- 



-1D50- 



-1060- 



-1D70- 



108- 



-1D80- 


CFMD 010 


CFMD Oil 


CFMD 012 


CFMD 013 


CFMD 014 


CFMD 015 


CFMD 016 


CFMD 017 


-1D80- 




8 BOA 


D595 


D18D 


FOOC 


27F3 


B268 


F011 


1415 




-1090- 


CFMD 019 


CFMD 020 


CFMD 021 


CFMD 022 


CFMD 023 


CFMD 024 


CFMD 02 5 


CFMD 026 


-1D90- 




5CC2 


B260 


D19C 


5E69 


3E85 


9DA2 


5E79 


1E85 




-1DA0- 


CFMD 027 


CFMD 028 


CFMD 029 


CFMD 030 


CFMD 031 


CFMD 032 


CFMD 033 


CFMD 034 


-1DA0- 




2E4D 


0FF3 


C4AC 


A1E4 


2EFF 


9DA2 


D1BF 


3B35 




-1DB0- 


CFMD 035 


CFMD 036 


CFMD 037 


CFMD 038 


CFMD 039 


CFMD 040 


CFMD 041 


CFMD 042 


-1DB0- 




5ED9 


2E07 


9 ADO 


5AE2 


8212 


2040 


9D80 


5EC9 




-1DC0- 


CFMD 043 


CFMD 044 


CFMO 045 


CFMD 046 


CFMD 047 


CFMD 048 


CFMD 049 


CFMD 050 


-1DC0- 




2E 07 


6761 


17F3 


7CDD 


57D9 


F5CF 


3D13 


7CA2 




-1DD0- 


CFMD 051 


CFMD 052 


CFMD 053 


CFMD 054 


CFMD 055 


CFMD 056 


CFMD 057 


CFMD 058 


-1DD0- 




9AD0 


3B35 


F058 


9F84 


10CE 


2080 


F46E 


42 E 6 




-1DE0- 


CFMD 059 


CFMD 060 


CFMO 061 


CFMD 062 


CFMD 063 


CFMD 064 


CFMD 065 


CFMD 066 


-1DE0- 




4086 


8212 


2807 


46E6 


4E86 


48A6 


8312 


4C26 




-1DF0- 


CFMD 067 


CFMD 068 


CFMD 069 


CFMD 070 


CFMD 071 


CFMD 072 


CFMD 073 


CFMD 074 


-1DF0- 




4606 


8212 


4A86 


48E6 


4E06 


4066 


4626 


42C6 
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1E0O- 


CFMD C75 


DCLC 149 


DCLC 112 


DCLC 085 


DCLC 086 


DCLC C87 


DCLC 088 


DCLC 089 


-1E00- 




8312 


93DA 


A254 


E605 


FD8F 


262B 


FD86 


5F4F 




1E10- 


DCLC 090 


DCLC 091 


DCLC 092 


DCLC 093 


DCLC 094 


DCLC 095 


DCLC 096 


DCLC 097 


-1E10- 




FC85 


E123 


F123 


2688 


E605 


C9A0 


262B 


C999 




1E20- 


DCLC 098 


DCLC 099 


DCLC 100 


OCLC 101 


DCLC 102 


DCLC 103 


DCLC 104 


DCLC 105 


-1E20- 




8B4C 


C4BE 


F233 


2D04 


3685 


7632 


1685 


D134 




1E30- 


DCLC 106 


DCLC 107 


DCLC 108 


DCLC 109 


OCLC 110 


DCLC ill 


DCLC 113 


DCLC 114 


-1E30- 




2D02 


1543 


2B48 


1635 


C3BD 


A7C0 


8AD0 


C050 




1E40- 


DCLC 115 


DCLC 116 


DCLC 117 


DCLC 118 


DCLC 119 


DCLC 120 


DCLC 121 


DCLC 122 


-1E40- 




F451 


2D04 


D14A 


1543 


2D02 


2285 


2307 


7232 




1E50- 


DCLC 123 


DCLC 124 


DCLC 125 


DCLC 126 


DCLC 127 


OCLC 128 


DCLC 129 


DCLC 130 


-1E50- 




2307 


C561 


D562 


04C7 


C4E2 


C463 


0065 


C07B 




1E60- 


DCLC 131 


DCLC 132 


DCLC 138 


DCLC 139 


DCLC 140 


DCLC 141 


DCLC 142 


DCLC 143 


-1E60- 




15C5 


A782 


2010 


2888 


E605 


C9F0 


262B 


C9E9 




1E70- 


DCLC 144 


DCLC 145 


DCLC 146 


DCLC 147 


DCLC 148 


DCLC 133 


DCLC 134 


DCLC 135 


-1E70- 




2645 


3613 


5212 


D402 


93 06 


2D10 


2B48 


2405 





1E8- 



-1E80- 


DCLC 136 


DCLC 137 


ERRQ 053 


ERRQ 064 


ERRQ 065 


ERRQ 066 


ERRQ 067 


ERRQ 068 


-1E80- 




1573 


9E38 


8924 


2406 


0B30 


8DC4 


A044 


2D 04 




-1E90- 


ERRQ 069 


ERRQ 012 


ERRQ 013 


ERRQ 014 


ERRQ 054 


ERRQ 055 


ERRQ 057 


ERRQ 058 


-1E90- 




989E 


C46D 


CFB9 


8954 


E263 


C3C9 


C424 


D129 




-1EA0- 


ERRQ 059 


ERRQ 060 


ERRQ 061 


ERRQ 062 


ERRQ 063 


ERRQ 004 


ERRQ 005 


ERRQ 006 


-1EA0- 




CA25 


DA29 


3423 


15C5 


9D52 


A06E 


3623 


CEB3 




-1EB0- 


ERRQ 007 


ERRQ 008 


ERRQ 009 


ERRQ 10 


ERRQ Oil 


ERRQ 029 


ERRQ 030 


ERRQ 031 


-1EB0- 




9836 


F712 


C43D 


DD96 


B362 


A06A 


2466 


E607 




-1EC0- 


ERRQ 032 


ERRQ 033 


ERRQ 034 


ERRQ 035 


ERRQ 036 


ERRQ 037 


ERRQ 03 8 


ERRQ 039 


-1EC0- 




2406 


D998 


0B10 


3485 


B11A 


D54E 


9D44 


3E43 




-1ED0- 


ERRQ 040 


ERRQ 041 


ERRQ 042 


ERRQ 043 


ERRQ 044 


ERRQ 045 


ERRQ 046 


ERRQ 047 


-1ED0- 




£263 


F728 


C3A8 


D461 


EA61 


4452 


A568 


8776 




-1EE0- 


ERRQ 048 


ERRQ 049 


ERRQ 050 


ERRQ 051 


ERRQ 052 


ERRQ 016 


ERRQ 017 


ERRQ 018 


-1EE0- 




5007 


2A07 


811A 


D104 


895E 


A062 


DB98 


OF 10 




-1EF0- 


ERRQ 019 


ERRQ 020 


ERRQ 02 1 


ERRQ 022 


ERRQ 023 


ERRQ 024 


ERRQ 02 5 


ERRQ 026 


-1EF0- 




C446 


FFC8 


8DC4 


2D15 


5CCD 


8964 


7CA0 


1545 
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1F00- 


ERRQ 02 7 


ERRQ 028 


DYPE 067 


DYPE 068 


DYPE 070 


DYPE 066 


DYPE 021 


DYPE 020 


-1F00- 




3E23 


9EC8 


1485 


9A90 


A49E 


A2CA 


937A 


A6B8 




1F10- 


DYPE 002 


DYPE 003 


DYPE 004 


DYPE 005 


DYPE 006 


DYPE 007 


DYPE 008 


OYPE 009 


-1F10- 




FF8F 


FA8D 


8DC4 


9028 


C832 


CEAO 


3E85 


0F10 




1F20- 


DYPE OiO 


DYPE Oil 


DYPE 012 


DYPE 013 


DYPE 014 


DYPE 015 


DYPE 017 


DYPE 018 


-1F20- 




1F28 


3C83 


B10A 


CEAA 


2F04 


9A90 


FEB1 


AAA2 




1F30- 


DYPE 019 


DYPE 022 


DYPE 023 


DYPE 024 


DYPE 025 


DYPE 027 


DYPE 028 


DYPE 029 


-1F30- 




961C 


D149 


CE39 


2E43 


C421 


2485 


DEA1 


2E07 




1F40- 


DYPE 030 


DYPE 031 


DYPE 032 


DYPE 033 


DYPE 034 


DYPE 036 


OYPE 03 7 


DYPE 038 


-1F40- 




CE9D 


FEB1 


3423 


9F20 


C47D 


2E07 


EED2 


3D45 




1F50- 


DYPE 039 


DYPE 040 


DYPE 041 


DYPE 043 


DYPE 044 


DYPE 045 


DYPE 046 


DYPE 047 


-1F50- 




BOCC 


8106 


DF8A 


C06B 


5F38 


4FFF 


0F20 


5006 




1F60- 


DYPE 048 


DYPE 049 


DYPE 050 


DYPE 051 


DYPE 052 


DYPE 053 


DYPE 054 


DYPE 055 


-1F60- 




C4E6 


C505 


3483 


9A92 


AAA2 


1483 


E573 


3445 




IF 70- 


DYPE 056 


DYPE 057 


DYPE 058 


DYPE 059 


DYPE 060 


DYPE 061 


DYPE 062 


DYPE 063 


-1F70- 




15C5 


E151 


50D9 


C4FD 


15C5 


3E23 


D505 


3 EC 3 





1F8- 



-1F80- 


DYPE 064 


DYPE 065 


CFDV 006 


CFDV 007 


CFDV 008 


CFDV 009 


CFDV 010 


CFDV Oil 


-1F80- 




3485 


9F20 


3082 


A7D4 


5AE2 


8212 


46A6 


3B35 




-1F90- 


CFDV 012 


CFDV 013 


CFDV 014 


CFDV 015 


CFDV 016 


CFDV 017 


CFDV 018 


CFDV 019 


-1F90- 




3713 


76F2 


F5A4 


2C13 


A656 


5CA2 


2C1B 


C4A2 




-1FA0- 


CFDV 020 


CFDV 021 


CFDV 022 


CFDV 023 


CFDV 024 


CFDV 025 


CFOV 026 


CFDV 027 


-1FA0- 




1D13 


7CA2 


A6D8 


3002 


0040 


201 3 


A 704 


F5F0 




-1FB0- 


CFDV 028 


CFDV 029 


CFDV 030 


CFDV 031 


CFDV 032 


CFDV 033 


CFOV 037 


CFDV 038 


-1FB0- 




A6D8 


3002 


DiBD 


CD2C 


2040 


9FAC 


56F2 


7D68 




-1FC0- 


CFDV 039 


CFDV 040 


CFDV 041 


CFDV 042 


CFDV 043 


CFDV 044 


CFDV 045 


CFDV 046 


-1FC0- 




76F2 


F44A 


07CB 


F0A8 


9FCE 


5779 


F0A8 


5AE2 




-1FD0- 


CFDV 047 


CFDV 048 


CFDV 049 


CFOV 050 


CFDV 051 


CFDV 052 


CFDV 053 


CFDV 054 


-1FD0- 




8212 


8BDA 


D5D9 


B260 


56A2 


5659 


5CC2 


1585 




-1FE0- 


CFDV 055 


CFDV 056 


CFDV 057 


CFDV 058 


CFDV 059 


CFDV 060 


CFDV 061 


CFDV 062 


-1FE0- 




C764 


3585 


75A0 


F377 


C66D 


0080 


27C3 


B268 




-1FF0- 


CFDV 034 


CFDV 035 


CFDV 036 


CFDV 063 


CFDV 064 


CFDV 065 


BDIA 087 


BO I A 088 


-1FF0- 




A6D8 


1002 


9FB4 


27D3 


55E9 


B25E 


2810 


D57F 
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-2000- BDIA 091 
2810 

-2010- CCOM 114 
577B 

-2020- CCOM 125 
4626 

-20 30- CCOM 135 
2B47 

-2040- BDIA 106 

2810 
« 

-2050- ERRQ 098 
2402 

-2060- BDIA 119 
D57F 

-2070- ERRQ 078 
2406 



BDIA 092 
25F5 

CCOM 115 
3763 

CCOM 126 
4026 

CCOM 137 
42 AF 

BDIA 111 
C55F 

ERRQ 099 
2BBI 

ERRQ 08 7 
4642 

ERRQ 080 
3743 



BDIA 096 
E504 

CCOM 116 
5B60 

CCOM 127 
2B45 

CCOM 139 
7EB0 

ERRQ 092 
2A15 

ERRQ 100 
C4CC 

ERRQ 088 
3725 

ERRQ 081 
5060 



BDIA 097 
2810 

CCOM 117 
5B6B 

CCOM 129 
42AF 

CCOM 141 
5282 

ERRQ 093 
F750 

CICY 064 
6884 

ERRQ 089 
2402 

ERRQ 082 
1743 



BDIA 101 
F508 

CCOM 118 
2707 

CCOM 131 
76B8 

CCOM 142 
423F 

ERRQ 094 
2406 

CICY 065 
6884 

ERRQ 090 
C4F2 

ERRQ 083 
5468 



BDIA 102 
2810 

CCOM 120 
F0A5 

CCOM 132 
72B8 

CCOM 144 
C5BE 

ERRQ 095 
2BF5 

CICY 066 
2B13 

ERRQ 075 
4642 

ERRQ 084 
5E6A 



BDIA 103 
A040 

CCOM 121 
4E52 

CCOM 133 
6AA4 

CCOM 145 
128E 

ERRQ 096 
5CAA 

CICY 067 
9C70 

ERRQ 076 
3715 

ERRQ 085 
128E 



CCOM 110 
2607 

CCOM 123 
42 52 

CCOM 134 
708 

CCOM 146 
ADF4 

ERRQ 097 
128E 

BDIA 114 
2810 

ERRQ 077 
F766 

BDIA 125 
2800 



-2000- 
-2010- 
-2020- 
-2030- 
-2040- 
-2050- 
-2060- 
-2070- 



208- 



-2080- 


BDIA 131 


BDIA 132 


BDIA 133 


BDIA 134 


BDIA 135 


BDIA 136 


BDIA 137 


BDIA 138 


-2080- 




3E09 


C483 


F085 


E087 


F489 


6EE5 


AODA 


2E0D 




-2090- 


BDIA 142 


BDIA 143 


BDIA 147 


BDIA 148 


BDIA 149 


BDIA 150 


BDIA 151 


BDIA 152 


-2 090- 




AODA 


7EE1 


F494 


7EE1 


6EE3 


2E5F 


6EE3 


6EE9 




-2 0A0- 


BDIA 153 


BDIA 154 


BDIA 155 


BDIA 156 


BDIA 157 


BDIA 158 


BDIA 159 


BDIA 160 


-20A0- 




0E5F 


C4A2 


2E87 


3E27 


2EEF 


2E77 


IE 87 


1EB7 




-20B0- 


BDIA 161 


BDIA 162 


BDIA 163 


BDIA 164 


80U 165 


BDIA 166 


BDIA 167 


BDIA 171 


-20B0- 




2EF7 


OEil 


F0B4 


E0B6 


1EFB 


A0E2 


1EF3 


A0E2 




-2 0C0- 


BDIA 172 


BDIA 176 


BDIA 177 


BDIA 181 


BDIA 182 


BDIA 183 


BDIA 184 


BDIA 188 


-20CO- 




3E15 


A0E2 


3E0D 


2E1D 


2FF5 


AODA 


OFFD 


C4CE 




-2000- 


BDIA 189 


BDIA 190 


8D1A 191 


BDIA 192 


BDIA 193 


BDIA 195 


BDIA 196 


BDIA 197 


-2 0D0- 




1FF5 


C4D2 


2EF5 


A0E2 


A0E8 


OEFF 


C4E1 


2810 




-20E0- 


BDIA 198 


BDIA 201 


BDIA 202 


BDIA 203 


BDIA 207 


BDIA 208 


BDIA 209 


BDIA 210 


-2 0E0- 




128E 


OEFD 


C4DE 


128E 


24F6 


578F 


1887 


087F 




-20F0- 


BDIA 211 


BDIA 212 


BDIA 213 


BDIA 214 


BDIA 215 


BDIA 216 


BDIA 217 


BDIA 221 


-2 0F0- 




EOFO 


F0F2 


2400 


574F 


0487 


EOFA 


FOFC 


2EF7 
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-2100- BDIA 111 
2FF7 

-2110- BOIA 230 
1EFF 

-2120- BDiA 238 
048F 

-2130- BDIA 246 
2E45 

-2140- BOIA 256 
FB34 

-2150- CFLS 014 

1E85 

-2160- CFLS 028 
B266 

-2170- BSYS 005 
2607 



BOIA 223 
6E02 

BDIA 231 
C492 

BDIA 239 
E0A2 

BDIA 247 
3FE9 

BOIA 257 
44E6 

CFLS 021 

1E8D 

DCHN 092 
2400 

BSYS 018 
24F6 



BDIA 224 
2E05 

BDIA 232 
2E33 

BOIA 240 

F0A4 

BDIA 248 
25F7 

BDIA 258 
0440 

CFLS 022 
2C25 

DCHN 093 
2A07 

BSYS 019 

4052 



BDIA 225 
2F05 

BDIA 233 
2F87 

BDIA 241 
257F 

BDIA 249 
75E0 

BDIA 259 
C4C6 

CFLS 023 

CE5A 

DCHN 094 
C3EA 

BSYS 020 
4206 



BDIA 226 
4E02 

BDIA 234 
6FE8 

BDIA 242 
C4A8 

BDIA 251 
2505 

BDIA 260 
75F1 

CFLS 024 
1C70 

DCHN 095 
875A 

BSYS 021 
4406 



BDIA 227 
OFFF 

BOIA 235 
6FEA 

BDIA 243 
2E05 

BDIA 252 
55EA 

BDIA 261 
C4CA 

CFLS 025 

8BDA 

DCHN 096 
A8DE 

BSYS 022 
4606 



BOIA 228 
E08C 

BOIA 236 
44E8 

BDIA 244 
55EA 

BOIA 254 
05FF 

BOIA 262 
0060 

CFLS 026 

D5E1 

BSYS 002 
3210 

BSYS 026 
2008 



BDIA 229 
F08E 

BDIA 237 
2F13 

BDIA 245 
C4AE 

BDIA 255 
C4BE 

BDIA 263 
88EC 

CFLS 027 
2C07 

BSYS 004 
2460 

BSYS 028 

2490 



-2 1 00- 
-2110- 
-2120- 
-2130- 
-2140- 
-2150- 
-2160- 
-2170- 



218- 



-2180- 


BSYS 029 


BSYS 030 


BSYS 031 


BSYS 032 


BSYS 033 


BSYS 037 


BSYS 039 


BSYS 040 


-2180- 




AFEA 


8224 


49CF 


E581 


2E08 


2482 


4A52 


4E42 




-2190- 


BSYS 042 


BSYS 043 


BSYS 044 


BSYS 045 


BSYS 046 


BSYS 047 


BSYS 048 


BSYS 049 


-2190- 




5EE6 


57E8 


497F 


2400 


6EE4 


56E0 


2607 


577D 




-21A0- 


BSYS 050 


BSYS 051 


BSYS 053 


BSYS 054 


BSYS 055 


BSYS 056 


BSYS 057 


BSYS 059 


-21A0- 




17B3 


76EA 


7AE0 


2F1D 


F4A4 


2F91 


7AEA 


2615 




-21B0- 


BSYS 060 


BSYS 061 


BSYS 062 


BSYS 064 


BSYS 066 


BSYS 067 


BSYS 118 


BSYS 119 


-21B0- 




7AEA 


2FF5 


7 A EG 


7A32 


7A52 


7A62 


40A6 


3212 




-21C0- 


BSYS 120 


BSYS 121 


BSYS 122 


BSYS 123 


BSYS 124 


BSYS 125 


BSYS 126 


BSYS 127 


-21C0- 




1210 


20A0 


C3C8 


A5DA 


E802 


062C 


1212 


4052 




-21D0- 


BSYS 128 


BSYS 129 


BSYS 130 


BSYS 131 


BSYS 132 


BSYS 133 


BSYS 134 


BSYS 135 


-2100- 




9C9A 


162C 


1212 


5C82 


44CF 


42DF 


4852 


5CC2 




-21E0- 


BSYS 136 


BSYS 137 


CFCO 034 


CFCO 035 


CFCO 036 


CFCO 037 


CFCO 03 8 


CFCO 039 


-21E0- 




2F07 


9CB2 


5FF3 


48F5 


58 83 


4985 


5993 


F474 




-21F0- 


CFCO 040 


CFCO 041 


CFCO 042 


CFCC 043 


CFCO 044 


CFCO 045 


CFCO 046 


CFCO 047 


-21F0- 




4595 


128E 


4295 


5223 


4325 


533 3 


4035 


5003 
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-22C0- 



-2210- 



-2220- 



CFCO 048 
4105 

DMCS 095 
4C5D 

CDVD 010 
AE98 



-2230- CDVD 018 
8AE0 

-2240- CDVD 026 
7CED 



-22 50- 



-2260- 



CDVD 034 
A6F8 

DCLR 127 
2B10 



-2270- DCLR 135 
33C5 



CFCO 049 
5113 

DMCS 095 
6C4D 

CDVD Oil 
8DC2 

CDVD 019 
3813 

CDVD 02 7 
4C46 

CDVD 035 
825A 

DCLR 128 
2407 

DCLR 137 
5622 



CFCO 050 
4515 

DMCS 095 
7C7D 

CDVD 012 
54A8 

CDVD 020 
C43A 

CDVD 028 
7D7D 

DCLR 117 
562F 

DCLR 129 
2585 

DCLR 141 
5729 



CFCO 051 
128E 

DMCS 095 
7B7E 

CDVD 013 
58AA 

CDVD 021 
97D8 

CDVD 029 
7C6D 

DCLR 118 
221E 

DCLR 130 
3573 

DCLR 142 
725A 



5007 

CDVD 006 
5618 

CDVD 014 
3B15 

CDVD 022 
3B23 

CDVD 030 
F5CC 

DCLR 119 
5C3F 

DCLR 131 
765A 

DCLR 143 
577F 



DMCS 095 
1028 

CDVD 007 
5E10 

CDVD 015 
52A8 

CDVD 023 
4C86 

CDVD 031 
AEFC 

DCLR 121 
7222 

DCLR 132 
725A 

DCLR 144 
7650 



DMCS 095 
303C 

CDVD 008 
55BB 

CDVD 016 
50AA 

CDVD 02 4 
3002 

CDVD 032 
4C52 

DCLR 12 5 
5D 2F 

DCLR 133 
5350 

DCLR 145 
3573 



DMCS 095 
5078 

CDVD 009 
F522 

CDVD 017 
C634 

CDVD 025 
7DFD 

CDVD 033 
10CE 

DCLR 126 
5E3F 

DCLR 134 
231B 

DCLR 146 
5650 



-2200- 



-2210- 



-2220- 



-2230- 



-2240- 



-2250- 



-2260- 



-2270- 



228- 



-2280- 


DCLR 150 


DCLR 151 


DCLR 152 


DCLR 187 


DCLR 188 


DCLR 189 


DCLR 190 


DCLR 116 


-2280- 




E690 


2B00 


A294 


5349 


3613 


1D00 


B0A6 


875A 




-2290- 


DCLR 153 


DCLR 154 


DCLR 155 


DCLR 156 


DCLR 157 


DCLR 158 


DCLR 159 


DCLR 160 


-2290- 




24F6 


2B80 


2507 


021E 


2323 


0D02 


C38F 


2B80 




-22A0- 


DCLR 161 


DCLR 162 


DCLR 163 


DCLR 164 


DCLR 165 


DCLR 166 


DCLR 167 


DCLR 168 


-22A0- 




C9B8 


2B84 


2207 


C988 


221B 


F4A6 


2D10 


3B80 




-22B0- 


DCLR 169 


DCLR 170 


DCLR 171 


DCLR 172 


DCLR 174 


DCLR 175 


DCLR 179 


DCLR 180 


-22B0- 




221B 


C9B8 


F4B0 


0D10 


C687 


E687 


F207 


7222 




-22C0- 


DCLR 181 


DCLR 182 


DCLR 183 


DCLR 184 


DCLR 185 


DYPE 089 


DYPE 090 


DYPE 091 


-22C0- 




2800 


2400 


5E22 


1000 


B0C8 


5AFF 


1FC5 


DAE9 




-22DO- 


DYPE 092 


DYPE 093 


DYPE 094 


DYPE 095 


DYPE 096 


DYPE 09 7 


DYPE 098 


DYPE 099 


-22D0- 




CAD4 


2D15 


C065 


4806 


B17A 


4086 


42CF 


F563 




-22E0- 


DYPE 100 


DYPE 101 


DYPE 111 


DYPE 110 


DYPE 102 


DYPE 103 


DYPE 104 


DYPE 105 


-22E0- 




7F38 


9F5E 


9F6A 


BOCC 


0F5B 


C4F5 


OFAB 


C4D2 




-22F0- 


DYPE 106 


OYPE 107 


DYPE 108 


DYPE 109 




DCLT 047 


DCLT 04 8 


DCLT 049 


-22F0- 




2E13 


1545 


C067 


9F6C 


5007 


3000 


2480 


5432 
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-23C0- 



-2310- 



-2320- 



-2330- 



-2340- 



-2350- 



-2360- 



-2370- 



DCLT 050 
C407 

DCLT 059 
2A13 

DCLT 067 
AF18 

DCLH 022 
1D00 

OCLH 004 
C625 

DCLH 012 
2407 

DCLT 073 
74 A 2 

CMLT 169 
3D25 



DCLT 051 
E98A 

DCLT 060 
C446 

DCLH 015 
8AF6 

DCLH 023 
2B84 

DCLH 005 
2043 

DCLH 013 
D122 

DCLT 074 
70F2 

CMLT 170 
9CD2 



DCLT 052 

A5FC 

DCLT 061 
2A07 

DCLH 016 
2C25 

DCLH 024 
0210 

DCLH 006 
7022 

OCLH 014 
8AFA 

DCLT 075 
2400 

CMLT 171 
1D25 



DCLT 054 
D98 5 

DCLT 062 
2413 

DCLH 017 
24F6 

DCLH 025 
E53F 

DCLH 007 
24F6 

DCLT 068 
1583 

DCLT 076 
5BA2 

CMLT 172 
3002 



DCLT 055 
C985 

DCLT 063 
24F6 

DCLH 018 
2210 

OCLH 026 
4006 

DCLH 008 
2880 

OCLT 069 
FCOC 

DCLT 077 
3B85 

CMLT 173 
9CD4 



DCLT 056 
5A02 

DCLT 064 
221E 

DCLH 019 
F030 

DCLH 027 
C48F 

DCLH 009 
5622 

OCLT 070 
3483 

DCLT 078 
7AE2 

CMLT 174 
8344 



DCLT 05 7 
2A15 

DCLT 065 
F056 

DCLH 020 
0210 

DCLH 028 
3445 

DCLH 010 
5659 

DCLT 071 
0D40 

DCLT 079 
AF2C 



5007 



DCLT 058 
7A22 

DCLT 066 
1413 

DCLH 021 
8362 

OCLH 029 
BOBO 

DCLH Oil 
2645 

DCLT 072 
2470 

CMLT 168 
3002 

FILX 295 
ID 00 



-2300- 



-2310- 



-2320- 



-2330- 



-2340- 



-2350- 



-2360- 



-2370- 



238- 



-2380- FILX 296 

E964 

-2390- FILX 310 
FFOF 

-23A0- FILX 318 
4EDF 

-23B0- FILX 326 
7E32 

-23C0- FILX 341 
F9CA 

-23C0- FILX 347 

CDCO 

-23E0- FILX 331 
E959 



-23F0- 



CONTROL ADDRESS 



5007 



FILX 297 
5C52 

FILX 311 
CBD7 

FILX 319 
2DIB 

FILX 327 
C3B7 

FILX 342 
CDCB 

FILX 348 

DOC 7 

FILX 332 

9760 

DCHN 03 1 
5602 



FILX 298 
F590 

FILX 312 

08BA 

FILX 320 
F0A2 

FILX 328 
B362 

FILX 343 
DDCA 

FILX 349 
B206 

FiLX 304 

CDE9 

DCHN Oil 
1773 



FILX 299 
2D23 

FILX 313 
C959 

FILX 321 
48DF 

FILX 329 
94D8 

FiLX 344 
7E32 

FILX 333 
D962 

FiLX 305 
F9EB 

DCHN 03 7 
5 785 



FILX 300 
3015 

FILX 314 
FFE2 

FILX 322 
5E32 

FILX 337 

DB96 

FILX 345 
B238 

FILX 334 
2E25 

FILX 306 
8E24 

DCHN 038 
1B83 



FILX 301 
1D00 

FILX 315 
2D07 

FILX 323 
IDOO 

FILX 338 
5E32 

FILX 350 
7E32 

FILX 335 
2F43 

FILX 307 
DD8F 

DCHN 039 
3BB5 



FILX 302 
4BDF 

FILX 316 
4BDF 

FILX 324 
EEOE 

FILX 33 9 
1E45 

FILX 351 
B22A 

FILX 336 
86BA 

FILX 308 
2E83 

DCHN 040 
5BA0 



FILX 303 
0222 

FILX 317 
2D23 

FILX 325 
2E85 

FILX 340 
FFCE 

FILX 346 
F5C1 

FILX 330 
CBB8 

FILX 309 

8E38 

DCHN 043 
5468 



-2380- 

-2390- 

-23A0- 

-23B0- 

-23C0- 

-23D0- 

-23E0- 

-23F0- 
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-24CG- 


DCHN 044 


DCHN 045 


DCHN 046 


DCHN 047 


DCHN 048 


DCHN 049 


DCHN 050 


DCHN 051 


-2400- 




C251 


83 20 


4052 


4206 


0146 


CllO 


3485 


1583 




■2410- 


DCHN 052 


DCHN 053 


DCHN 054 


DCHN 055 


DCHN 056 


DCHN 057 


DCHN 058 


DCHN 059 


-2410- 




556A 


0119 


C118 


3085 


5666 


7068 


7160 


176B 




•2420- 


DCHN 060 


OCHN 061 


OCHN 062 


DCHN 063 


DCHN 064 


DCHN 065 


DCHN 066 


DCHN 067 


-2420- 




5068 


5260 


021E 


0080 


55E9 


5F59 


54F9 


5B49 




2430- 


DCHN 068 


OCHN 069 


OCHN 070 


DCHN 071 


DCHN 072 


DCHN 073 


OCHN 074 


DCHN 075 


-2430- 




D235 


3000 


2400 


C1C3 


AOOE 


54B9 


55F9 


2135 




2440- 


DCHN 076 


DCHN 090 


DCHN 091 


DCHN 077 


DCHN 078 


DCHN 079 


DCHN 080 


DCHN 081 


-2440- 




9C74 


A01E 


A43A 


5560 


716A 


7060 


2080 


A42 8 




2450- 


DCHN 082 


DCHN 083 


DCHN 084 


DCHN 085 


DCHN 086 


DCHN 087 


DCHN 08 8 


DCHN 089 


-2450- 




5666 


0010 


1583 


1413 


7468 


2485 


2505 


A41E 




2460- 


CSFT 087 


CSFT 088 


CSFT 089 


CSFT 090 


CSFT 091 


CSFT 092 


CSFT 093 


CSFT 094 


-2460- 




0002 


D06C 


6118 


600D 


633D 


622D 


677D 


6660 




2470- 


CSFT 095 


CSFT 096 


CSFT 097 


CSFT 098 


CSFT 099 


CSFT 100 


CSFT 101 


CSFT 102 


-2470- 




6FFD 


6EED 


E4F8 


3000 


6AAD 


2DF8 


FOEO 


128E 





248- 



-2480- DYPE 146 DYPE 147 DYPE 148 
1547 9A90 C108 

-2490- DYPE 162 DYPE 156 DYPE 157 
9F66 3523 2F08 

-24A0- DYPE 155 DYPE 113 DYPE 114 
93CA 80C4 54F9 

-2480- DYPE 120 DYPE 121 DYPE 122 
9A92 2E07 5FF9 

-24C0- DYPE 128 OYPE 129 OYPE 130 
3D45 0F4B C4E5 

-24D0- DYPE 136 OYPE 137 DYPE 138 
C495 0F9B C493 

-24E0- DYPE 144 DYPE 145 DYPE 163 
F200 9F80 3C83 

-24F0- CDMD 205 CDMD 206 CDMD 207 
F4F5 A520 F77C 
CONTROL ADDRESS 



OYPE 149 
3485 

OYPE 158 
9F66 

DYPE 115 
6664 

DYPE 123 
C4BA 

DYPE 131 
EEOD 

OYPE 139 
OFAB 

DYPE 164 
9A92 

CDMD 208 
0719 



DYPE 150 
9D30 

DYPE 151 
2EC3 

DYPE 116 
9A98 

DYPE 124 
AAA2 

DYPE 132 
0F3B 

DYPE 140 

C48B 

DYPE 165 
5DF9 

CDMD 209 
F4FD 



DYPE 159 
3F20 

OYPE 152 
0560 

DYPE 117 
9028 

OYPE 125 

1045 

DYPE 133 
C499 

DYPE 141 
3D85 

DYPE 166 
8F68 

CDMD 210 
143D 



OYPE 160 
EB90 

DYPE 153 
A 566 

DYPE 118 
1485 

OYPE 126 

1F28 

DYPE 134 
2D07 

OYPE 142 
2E23 

CDMD 203 
5773 

CDMD 211 
128E 



OYPE 161 
4FFF 

OYPE 154 
92 58 

DYPE 119 
IC83 

OYPE 127 
EEC2 

OYPE 135 
0F1B 

OYPE 143 
15C5 

CDMD 204 
0769 



5007 



-2480- 

-2490- 

-24A0- 

-24B0- 

-24C0- 

-2400- 

-24E0- 

-24F0- 
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-2500- CDMD 077 
7D30 

-2510- CDMD 085 
5D7B 

-2520- CDMD 054 
9254 

-2530- CDMD 062 
56A2 

-2540- CDMD 070 
56E2 

-2 5 50- CDMD 092 
5CC2 

-2560- CDMD 100 
7730 

-2570- DCOM 053 
2A07 



CDMD 078 
7EA3 

CDMD 086 
7D9F 

CDMD 055 
807C 

CDMD 063 
5D70 

CDMD 071 
9AF2 

CDMD 093 
2FC3 

CDMD 101 
6443 

DCOM 054 
128E 



COMD 079 
C4CF 

CDMD 087 
47DB 

CDMD 056 
F5B0 

COMD 064 
50DB 

CDMD 72 

5D30 

CDMD 094 
C958 

COMD 102 
8BC2 

CFCO 143 
5E18 



CDMD 080 
9AEE 

CDMD 088 
7D30 

CDMD 057 
1002 

COMD 065 
7D70 

CDMD 073 
7D8F 

CDMD 095 
1F6B 

DCOM 048 
2E07 

CFCO 144 
5818 



CDMD 081 
0D9D 

CDMD 089 
0186 

CDMO 058 
9AF0 

CDMD 066 
2993 

CDMD 074 
F081 

CDMD 096 
E45D 

DCOM 049 
7468 

CFCO 145 
F47F 



CDMD 082 
E08E 

CDMD 090 
A53C 

CDMD 059 
9254 

COMD 067 
5981 

CDMD 075 

7D30 

CDMD 097 
3F13 

DCOM 050 
7E68 

CFCO 146 
5218 



COMD 083 
2040 

CDMD 052 
9AEE 

CDMD 060 
2BB3 

CDMD 068 
5004 

CDMD 076 
A53E 

CDMD 098 
5730 

DCOM 051 
7060 

CFCO 147 
5010 



CDMD 084 
5D30 

CDMD 053 
C1A4 

CDMD 061 
9C70 

CDMD 069 
1042 

CDMD 091 
C1A1 

CDMD 099 
67F5 

DCOM 052 
C573 

CFCO 148 
128E 



-2500- 



-2510- 



-2520- 



-2530- 



-2540- 



-2550- 



-2560- 



-2570- 



258- 



-2 5 60- 


CDMD 047 


CDMO 002 


CDMD 003 


CDMD 004 


CDMD 005 


CDMD 006 


CDMD 007 


CDMD 008 


-2580- 




A51C 


E187 


1445 


C10A 


AE98 


5575 


77E3 


E088 




-2590- 


CDMD 009 


CDMD 010 


CDMD Oil 


CDMD 012 


COMD 013 


CDMD 014 


COMD 015 


CDMD 016 


-2 590- 




8DC0 


5730 


A4EC 


5710 


3415 


A 4 EC 


10CE 


558D 




-25A0- 


CDMD 017 


CDMO 018 


CDMD 019 


CDMD 020 


CDMD 021 


COMD 022 


CDMD 023 


CDMD 024 


-25A0- 




38 83 


3B15 


7AE2 


4CA6 


3B25 


7AF2 


5F3A 


5FFB 




-25B0- 


CDMD 025 


CDMD 026 


CDMD 027 


CDMD 028 


CDMD 029 


CDMD 030 


CDMD 031 


CDMO 032 


-25B0- 




7FAF 


7FCA 


5FF1 


C946 


57 3 A 


47F3 


77AF 


7FAA 




-25C0- 


CDMD 033 


CDMD 034 


CDMD 035 


CDMD 036 


CDMD 037 


CDMD 038 


CDMD 039 


CDMD 040 


-25C0- 




77CA 


57F5 


C939 


7FAA 


55E5 


55FD 


7EF1 


2002 




-2 5D0- 


CDMD 041 


CDMD 042 


CDMD 043 


CDMD 045 


CDMD 046 


DCLL 002 


DCLL 003 


DCLL 004 


-25D0- 




71E9 


70A9 


4206 


F001 


8B82 


42A6 


44A6 


2423 




-25E0- 


DCLL 005 


DCLL 006 


DCLL 007 


DCLL 008 


DCLL 009 


DCLL 010 


DCLL Oil 


DCLL 012 


-25E0- 




74B8 


70B8 


2465 


74B8 


2115 


3183 


70B8 


3B45 




-25F0- 


DCLL 013 


DCLL 014 


OCLL 015 


DCLL 016 


DCLL 017 


DCLL 018 


FiNT 002 


FINT 003 


-25F0- 




46A6 


17FD 


8ADA 


10F5 


24C3 


87AE 


7CC2 


5F59 
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-2600- 



-2610- 



-2620- 



-2630- 



-2640- 



-2650- 



-2660- 



-2670- 



FINT 004 


FINT 005 


FINT 006 


FINT 007 


FINT 008 


FINT 009 


FINT 010 


FINT Oil 


-2600- 


D98E 


5A32 


2A13 


7A32 


8420 


A024 


A64C 


C996 




FINT 012 


FINT 013 


FINT 014 


FINT 15 


FINT 016 


FINT 017 


FINT 018 


FINT 019 


-2610- 


2E07 


8428 


A60A 


2B43 


4FBF 


5AA0 


2A13 


7A32 




FINT 020 


FINT 021 


FINT 022 


FINT 023 


FINT 02 4 


FINT 025 


FINT 026 


FCNT 027 


-262 0- 


E1A8 


0D02 


2E25 


A644 


E5AF 


948E 


A644 


AFEA 




FINI 028 


FINT 029 


FIN! 030 


FINT 031 


FINT 032 


FINT 033 


FINT 034 


FINT 035 


-2630- 


5DDD 


5BBB 


6BD5 


7 A3 2 


FABF 


8224 


A 642 


8224 




FINT 036 


FINT 037 


FINT 038 


FINT 039 


FINT 040 


FINT 041 


FINT 042 


FINT 043 


-2640- 


9496 


3E43 


2F07 


2400 


2A07 


A01E 


5A32 


2A13 




FINT 044 


FINT 045 


FINT 046 


CFCO 007 


CFCO 008 


CFCO 009 


CFCO 010 


CFCO Oil 


-265 0- 


1000 


5CC2 


A43C 


F45C 


49 53 


F46F 


4153 


5115 




CFCO 012 


CFCO 013 


CFCO 014 


CFCO 015 


CFCO 016 


CFCO 017 


CFCO 018 


CFCO 019 


-2660- 


4013 


5005 


4303 


5335 


4233 


5225 


4923 


5995 




CFCO 020 


CFCO 021 


CFCO 022 


CFCO 023 


CFCO 024 


CFCO 025 


CFCO 026 


CFCO 027 


-2670- 


4893 


5885 


4F83 


5FF5 


4AF3 


2CFF 


C4D6 


128E 





268- 



-2680- 


ALDP 248 


ALDP 249 


ALDP 250 


ALDP 251 


ALDP 252 


ALDP 25 3 


ALDP 254 


ALDP 255 


-2680- 




D648 


OFFD 


E095 


1FCD 


E08F 


IF4D 


E0B6 


F0B7 




-2690- 


ALDP 256 


ALDP 257 


ALDP 25 8 


ALDP 259 


ALDP 232 


ALDP 233 


ALDP 234 


ALDP 235 


-2690- 




2F9B 


E0B6 


5F4D 


A6C8 


5A4F 


3683 


CAAF 


14C5 




-26A0- 


ALDP 236 


ALDP 237 


ALDP 238 


ALDP 239 


ALOP 240 


ALDP 241 


ALDP 242 


ALDP 243 


-26A0- 




DAB2 


04AB 


C4AF 


1623 


045B 


C4B2 


C632 


1F28 




-26B0- 


ALDP 244 


ALDP 245 


ALDP 246 


ALDP 247 


ALDP 216 


ALDP 217 


ALDP 218 


ALDP 219 


-26B0- 




961C 


B17A 


E201 


962A 


3BE9 


56AA 


52AA 


54AA 




-26C0- 


ALDP 220 


ALDP 221 


ALDP 222 


ALDP 223 


ALDP 224 


ALDP 225 


ALDP 226 


ALDP 227 


-26C0- 




42AF 


C218 


D349 


4F3F 


2440 


5872 


2404 


50A0 




-26D0- 


ALDP 228 


ALDP 229 


ALDP 230 


ALDP 231 


CFHA 044 


CFHA 045 


CFHA 046 


CFHA 047 


-2600- 




2B2D 


5EA0 


1F28 


128E 


6DDD 


655B 


F467 


611D 




-26E0- 


CFHA 048 


CFHA 049 


CFHA 050 


CFHA 051 


CFHA 052 


CFHA 053 


CFHA 054 


CFHA 055 


-26E0- 




600D 


63 3D 


622D 


699 D 


688D 


6FFD 


C1F3 


6AAD 




-26F0- 


CFHA 056 


CFHA 057 


CFHA 058 


CDVD 046 


CDVD 047 


CDVD 048 


CDVD 049 


CDVD 050 


-26F0- 




128E 


6EE0 


128E 


2CIB 


6110 


600D 


633D 


622D 




CGNTRQL ADDRESS 
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-27C0- CDVO 051 
ECOD 

-2710- CDVD 059 
79F0 

-2720- CDVD 067 
97EC 

-2730- CDVD 075 
D5BA 

-2740- CDVD 083 
1B15 

-2750- CDMD 187 
5F6A 

-2760- CDMD 195 
2002 

-2770- CCOM 045 
5218 



CDVD 052 

699D 

CDVD 060 
78ED 

CDVD 068 
C436 

CDVD 076 
CD3B 

CDVD 084 
74A8 

CDMD 188 
7DFF 

CDMD 196 
01E8 

CCOM 046 
5010 



CDVD 053 
688D 

CDVD 061 
757D 

CDVD 069 
A EEC 

CDVD 077 
AEFC 

CDVD 085 
78AA 

CDMD 189 
7D3A 

CDMO 197 
EOCA 

CCOM 047 
5588 



CDVD 054 
655D 

CDVD 062 
746D 

CDVD 070 
C42B 

CDVD 078 
F82D 

CDVD 086 
9256 

CDMD 190 
C34F 

CDMD 198 
B1CC 

CCOM 048 
56A8 



CDVD 055 
644D 

CDVD 063 
5BC9 

CDVD 071 
9 7 EC 

CDVD 079 
CD25 

CDVD 087 
A8DE 

CDMD 191 
78AF 

CDMD 199 
FOCA 

CCOM 049 
5EAA 



CDVD 056 
128E 

CDVD 064 
52 D9 

CDVD 072 
F839 

CDVD 080 
5BBB 

CDMD 184 
5C79 

CDMD 192 
0002 

CDMD 200 
5710 

CCOM 050 
100E 



CDVD 057 
C418 

CDVD 065 
E827 

CDVD 073 
97F0 

CDVD 081 
72A8 

CDMD 185 
4286 

CDMD 193 
C5E2 

CDMD 201 
47BB 

CCOM 051 
128E 



CDVD 058 
1002 

CDVD 066 
C436 

CDVD 074 
52D9 

CDVD 082 
70AA 

CDMD 186 
50 30 

CDMO 194 
0B9F 

CDMO 202 
B1C2 



5007 



-2700- 
-2710- 
-2720- 
-2730- 
-2740- 
-2750- 
-2760- 
-2770- 



278- 



-2780- 



-2790- 



-2780- 



-27C0- 



-27E0- 



DCLC 191 
A162 

DCLC 157 
7222 



-27A0- DCLC 165 
C998 



DCLC 172 
D8C4 

DCLC 189 
E680 



-2700- DCLC 181 
3413 



CFCO 126 
706D 



-27F0- CFCO 134 
7F7D 
CONTROL ADDRESS 



DCLC 150 
C386 

DCLC 158 
2B0O 

DCLC 166 

2400 

DCLC 173 
A7B4 

DCLC 190 
0244 

DCLC 182 
A7B8 

CFCO 127 
56AA 

CFCO 135 
CIF7 



DCLC 151 
8760 

DCLC 159 
2007 

DCLC 16 7 

5E22 

DCLC 183 
2B02 

DCLC 175 
1635 

CFCO 120 
3BE3 

CFCO 128 
737D 

CFCO 136 
128E 



DCLC 152 
F22B 

DCLC 160 
7032 

DCLC 168 
A030 

DCLC 184 
1635 

DCLC 176 
7602 

CFCO 121 
F45C 

CFCO 129 

726D 

CFCO 137 
7E60 



DCLC 153 
2B88 

DCLC 161 
0D04 

DCLC 174 
A254 

DCLC 185 
E629 

DCLC 177 
3413 

CFCO 122 

1B43 

CFCO 130 
56 AA 

CFCO 138 
128E 



OCLC 154 
5429 

DCLC 162 
E62$ 

DCLC 169 
5429 

DCLC 186 
C9C0 

DCLC 178 
2D40 

CFCO 123 
F469 

CFCO 131 
797D 

CCOM 18 t 
5682 



OCLC 155 
CiiO 

DCLC 163 
C9A2 

DCLC 170 
5349 

DCLC 187 
262B 

DCLC 179 
ECB4 

CFCO 124 
56AA 

CFCO 132 
786D 

CCOM 182 
427F 



DCLC 156 
3385 

DCLC 164 
262B 

DCLC 171 

ECC5 

DCLC 188 
C9B9 

DCLC 180 

2B08 

CFCO 125 
71 70 

CFCO 133 
56A0 

CCOM 183 
128E 



-2780- 

-2790- 

-27A0- 

-27B0- 

-27C0- 

-27D0- 

-27E0- 

-27F0- 
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•2800- 


CFCY 052 


CFCY 053 


CFCY 054 


CFCY 055 


CFCY 056 


CFCY 057 


CFCY 058 


CFCY 059 


-2800- 




8384 


A150 


A154 


A152 


823E 


B376 


B376 


B376 




2810- 


CFCY 060 


CFCY 061 


CFCY 062 


CFCY 063 


CFCY 064 


CFCY 065 


CFCY 066 


CFCY 067 


-2810- 




B266 


8972 


8972 


8972 


9D80 


9D7E 


8972 


8972 




2820- 


CFCY 034 


CFCY 035 


CFCY 036 


CFCY 037 


CFCY 038 


CFCY 039 


CFCY 040 


CFCY 041 


-2820- 




AF4E 


2B83 


80C2 


0565 


E0C2 


AB53 


F43F 


0183 




2830- 


CFCY 042 


CFCY 043 


CFCY 044 


CFCY 045 


CFCY 046 


CFCY 047 


CFCY 048 


CFCY 049 


-2830- 




F0C2 


C038 


A574 


A854 


04F5 


F08A 


8D6C 


01C3 




2840- 


CFCY 050 


CFCY 051 


CFCY 012 


CFCY 013 


CFCY 014 


CFCY 015 


CFCY 016 


CFCY 017 


-2 840- 




F083 


AE98 


E1C9 


3485 


0567 


C4C2 


8DC2 


55B3 




2850- 


CFCY 018 


CFCY 019 


CFCY 021 


CFCY 022 


CFCY 023 


CFCY 024 


CFCY 025 




-2850- 




3B83 


8212 


45BB 


2507 


7AE2 


10CE 


B001 


5007 




2860- 


CICY 016 


CICY 017 


CICY 018 


CICY 019 


CICY 020 


CICY 021 


CICY 022 


CICY 023 


-2 860- 




B063 


B043 


A844 


A844 


880A 


AE90 


A820 


A820 




2870- 


CICY 024 


CICY 025 


CICY 026 


CICY 027 


CICY 028 


CICY 029 


CICY 030 


CICY 031 


-2870- 




9012 


8106 


A058 


A058 


A0 56 


88D6 


A056 


8AB8 





288- 



-2880- 


CBRC 012 


CBRC 013 


CBRC 014 


CBRC 015 


CBRC 016 


CBRC 017 


CBRC 018 


CBRC 019 


-2 880- 




C507 


81B3 


E502 


4806 


9CBA 


D507 


81B3 


F507 




-2 890- 


CBRC 020 


CBRC 023 


CBRC 024 


CBRC 025 


CBRC 026 


CBRC 027 


CBRC 031 


CBRC 032 


-2890- 




81B3 


0040 


55B3 


C49F 


5EA8 


50A0 


2040 


5C2B 




-28A0- 


CBRC 033 


CBRC 034 


CBRC 035 


CBRC 036 


CBRC 037 


CBRC 038 


CBRC 039 


CBRC 040 


-28A0- 




3245 


EIB6 


D428 


224D 


4D25 


2307 


55BB 


72A8 




-28B0- 


CBRC 041 


CBRC 042 


CBRC 043 


CBRC 044 


CBRC 045 


CBRC 005 


CBRC 006 


CBRC 007 


-28B0- 




78A0 


D187 


81B3 


5892 


A8A6 


55B3 


C483 


5EA8 




-28C0- 


CBRC 008 


CBRC Oil 


CBIN 018 


CBIN 019 


CBIN 008 


CBIN 009 


CBIN 010 


CBIN Oil 


-28C0- 




50A0 


9C11 


2C55 


81B3 


A770 


8174 


E4D0 


168D 




-28D0- 


CBIN 012 


CBIN 013 


CBIN 014 


CBIN 015 


CBIN 016 


CBIN 017 


CICY 003 


CICY 004 


-28D0- 




E5D7 


2C07 


81B3 


C645 


2C25 


81B3 


2C07 


81B3 




-28E0- 


CICY 179 


CICY 180 


CICY 181 


CICY 182 


CICY 183 


CICY 184 


CICY 185 


CICY 186 


-2 8E0- 




AEDO 


A05A 


A05A 


A05A 


A908 


AC9A 


8336 


B32A 




-28F0- 


CICY 187 


CICY 188 


CICY 189 


CICY 190 


CICY 191 


CICY 192 


CICY 193 


CICY 194 


-28F0- 




AEC4 


A8C8 


AC18 


810A 


8784 


A218 


ADC6 


AF72 




CONTRQL ADDRESS 


















28— 



ADDRESS LIST 
CONTROL ADORESS 2 



DATE 11/08/68 
A C 



CL0AD=*E60 f EC LEVEL=l2821l ,PAGE 312 
29— 



-2900- 



-2910- 



-2920- 



-2930- 



-2940- 



-2950- 



-2960- 



-2970- 



CMPU 016 
8023 

CLOG 077 
662 7 

CLOG 070 
A90A 

CMPU 027 
4B75 

CICY 147 
AC34 

CICY 155 
AE9C 

CICY 122 
A05A 

CICY 130 
A68E 



CMPU 017 
A932 

CLOG 078 
76A8 

CMPU 020 
81 A6 

CMPU 028 
771A 

CICY 148 
AC28 

CICY 156 
9148 

CICY 123 
A05A 

CICY 131 
AB8E 



CMPU 018 
81B3 

CLOG 079 
7EAA 

CMPU 021 
AE12 

CMPU 02 9 
5 77B 

CICY 149 

ACOC 

CICY 157 
B366 

CICY 124 
A05A 

CICY 132 
98F6 



CMPU 019 
81B3 

CLOG 080 
E59B 

CMPU 022 
5B3A 

CMPU 030 
25FD 

CICY 150 
ACOO 

CICY 158 
81F4 

CICY 125 
A05A 

CICY 133 

A05A 



CLOG 073 
A770 

CLOG 081 
ACA8 

CMPU 023 
4B7D 

CMPU 031 
8083 

CICY 151 

A91E 

CICY 159 
878C 

CICY 126 
AE36 

CICY 142 
A05A 



CLOG 074 
6F17 

CL3G 082 
2C55 

CMPU 024 
771A 

CLOG 004 
AB53 

CICY 152 
B36A 

CICY 160 
99F8 

CICY 127 
A892 

CICY 143 
A05A 



CLOG 075 
6E07 

CLOG 083 
81B3 

CMPU 025 
351D 

CLOG 005 
7510 

CICY 153 
B372 

CICY 161 
B380 

CICY 128 
ABCE 

CICY 144 
A05A 



CLOG 076 
6737 

CLOG 069 
8A70 

CMPU 026 
E087 

CLOG 006 
81B3 

CICY 154 
B37A 

CICY 162 
B3 6E 

CICY 129 

A8BA 

CICY 145 
A05A 



-2900- 
-2910- 
-2920- 
-2930- 

-2940- 
-2950- 
-2960- 
-2 970- 



298- 



-2980- 


CTRT 022 


CTRT 023 


CTRT 024 


CTRT 025 


CTRT 026 


CTRT 027 


CTRT 028 


CTRT 029 


-2980- 




2B33 


2B2D 


7FA0 


2BFD 


70AA 


2707 


77A0 


25FF 




-2990- 


CTRT 030 


CTRT 031 


CTRT 032 


CLOG 198 


CLOG 199 


CLOG 200 


CLOG 201 


CLOG 202 


-2 990- 




F495 


ACA4 


AC84 


55BB 


2E07 


7EA8 


70A0 


81 B 3 




-29A0- 


CICY 005 


CICY 006 


CICY 007 


CICY 008 


CICY 009 


CLOG 098 


CLOG 099 


CLOG 100 


-29A0- 




8B7A 


AEF6 


87C8 


5498 


B461 


6F75 


AB53 


10CE 




-29B0- 


CLOG 101 


CLOG 102 


CLOG 103 


CLOG 104 


CLOG 105 


CLOG 106 


CLOG 107 




-29B0- 




5738 


5F10 


67F7 


7718 


25FF 


F4B1 


A916 


5007 




-29C0- 


CICY 045 


CICY 046 


CNVR 005 


CNVR 006 


CNVR 007 


CNVR 008 


CNVR 009 


CNVR 010 


-2 9C0- 




2B53 


9C70 


AB53 


0183 


FOCD 


AE98 


8DC2 


10CE 




-2900- 


CNVR Oil 


CNVR 012 


CNVR 013 


CNVR 014 


CNVR 015 


CNVR 016 


CNVR 017 


CNVR 018 


-2900- 




F054 


AAFA 


A0B8 


2B07 


7A18 


C660 


8AE0 


2040 




-29E0- 


CNVR 019 


CNVR 020 


CNVR 021 


CNVR 022 


CNVR 023 


CNVR 024 


CNVR 025 


CNVR 026 


-29E0- 




42A6 


44A6 


48A6 


2013 


C66F 


AD4E 


C66A 


AD3C 




-29F0- 


CNVR 027 


CNVR 028 


CNVR 029 




CTRT 033 


CTRT 034 


CTRT 035 


CTRT 036 


-29F0- 




C66F 


AD3E 


A9F0 


5007 


AB53 


14A3 


5569 


25F5 




NTROL ADDRESS 
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-2AC0- 



-2A10- 



-2A20- 



-2A30- 



-2A40- 



-2A50- 



-2A60- 



-2A70- 



CTRT 037 
C904 

CTRT 045 
F087 

CTRT 053 
5F10 

CTRT 055 
L42 7 

CTRT 069 
F0E3 

CTRT 077 
2B17 

CTRT 085 
B07C 

CTRT 093 
I486 



CTRT 038 
2555 

CTRT 046 
0F2B 

CTRT 054 
AA08 

CTRT 056 
3443 

CTRT 070 
0769 

CTRT 078 
7FA8 

CTRT 086 

E05D 

CTRT 094 
AA1C 



CTRT 039 
5B10 

CTRT 047 
F0B1 

CTRT 058 
E02D 

CTRT 057 
AA18 

CTRT 071 
F4EI 

CTRT 079 
70A0 

CTRT 087 

7B18 

CTRT 095 
F77A 



CTRT 040 
5BF9 

CTRT 048 
E01B 

CTRT 059 
E42B 

CTRT 064 
1443 

CTRT 072 
E05B 

CTRT 080 
5EB9 

CTRT 088 
D06B 

CTRT 096 
07FD 



CTRT 041 
0F2D 

CTRT 049 
7B10 

CTRT 060 
A8DC 

CTRT 065 
C03F 

CTRT 073 

F05A 

CTRT 081 
5EE2 

CTRT 089 
3463 

CTRT 097 
C4FC 



CTRT 042 
E096 

CTRT 050 
5004 

CTRT 063 
ACA4 

CTRT 066 
A353 

CTRT 074 
7EE2 

CTRT 082 
3427 

CTRT 090 
5773 

CTRT 098 
1423 



CTRT 043 
F0B9 

CTRT 051 
26FF 

CTRT 061 
E428 

CTRT 067 
5738 

CTRT 075 
5BE9 

CTRT 083 
7518 

CTRT 091 
0769 

CTRT 099 
2707 



CTRT 044 
OF IB 

CTRT 052 
F4A4 

CTRT 062 
AC 84 

CTRT 068 
4755 

CTRT 076 
2F07 

CTRT 084 
AA6A 

CTRT 092 
F4F5 

CTRT 100 
3443 



-2A00- 



-2A10- 



-2A20- 



-2A30- 



-2A40- 



-2A50- 



-2A60- 



-2A70- 



2A8- 



-2A80- CTRT 101 BSWI 139 BSWI 051 
AA1C 9CC6 DFE8 

-2A90- BSWI 057 BSWI 058 BSWI 059 
2402 EB96 9EEA 

-2AA0- BSWI 065 BSWI 066 BSWI 067 
9D6A 2400 2A07 

-2A80- BSWi 091 BSWI 093 BSWI 099 
EBB5 A2FA FBB9 

-2AC0- BSWI 113 BSWI 114 BSWI 115 
CBCC 2F07 508F 

-2AD0- BSWI 121 8SWI 122 BSWI 123 
FFDC 3BE9 56AA 

-2AEG- BSWI 135 BSWI 075 BSWI 076 
9CBE B354 OIBE 

-2AF0- BSWI 089 BSWI 090 CCOM 165 
2115 9C74 2400 
CONTROL ADDRESS 



BSWI 052 
2040 

BSWI 060 
2404 

BSWI 069 
A7FA 

BSWI LOO 
5007 

BSWI 116 
519F 

BSWI 124 
D25A 

BSWI 077 
0040 

CCOM 166 
2C75 



BSWI 053 
20 80 

BSWI 061 
EA9C 

BSWI 071 
E1AD 

BSWI 101 

EFBD 

BSWI 117 
0602 

BSWI 125 
8734 

BSWI 078 
FFB1 

CCOM 16 7 
81B3 



BSWI 054 
2406 

BSWI 062 
9F10 

BSWI 072 
9258 

BSWI 102 
A3F2 

BSWI 118 
8F06 

BSWI 126 
1F2A 

BSWI 082 
59BF 

CNVR 058 
2B83 



BSWI 055 
E990 

BSWI 063 
2482 

BSWI 073 
C1E3 

BSWI 104 

DBCB 

BSWI 119 
CFBE 

BSWI 127 
2400 

BSWI 083 
1BFF 

CNVR 05 9 
3B15 



BSWI 056 
9EBA 

BSWI 064 
FAA2 

BSWI 074 
81B3 

BSWI 105 
DF89 

BSWI 120 
2404 

BSWI 128 
E903 

BSWI 088 
0640 

CNVR 060 
4EA6 



-2A80- 

-2A90- 

-2AA0- 

-2AB0- 

-2AC0- 

-2AD0- 

-2AE0- 

-2AF0- 
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ADDRESS LIST 
CONTROL ADDRESS 2 



DATE 11/08/68 

A C 



CLOAD=*E60, EC LEVEL=128211 ,PAGE 314 
28 — 



-2B0O- CNVR 061 
5718 

-2B10- CNVR 069 
573B 

-2B20- CNVR 077 
10CE 

-2B30- CNVR 085 
5DE0 

-28 40- CNVR 093 
C4CA 

-2850- CNVR lii 
9256 

-2860- CNVR 119 
C4E7 

-2870- CNVR 104 
C4F8 



CNVR 062 
77EF 

CNVR 070 
A4EC 

CNVR 078 
£426 

CNVR 086 
5DC5 

CNVR 094 
4203 

CNVR 112 
C5DA 

CNVR 120 
2B93 

CNVR 105 
5AA4 



CNVR 063 
E589 

CNVR 071 
73AF 

CNVR 079 
3002 

CNVR 087 
8270 

CNVR 095 
790D 

CNVR 113 
E5DC 

CNVR 121 
9C70 

CNVR 106 
77E8 



CNVR 064 
5AE4 

CNVR 072 
C19A 

CNVR 080 
2407 

CNVR 088 
527B 

CNVR 096 
794A 

CNVR 114 
CF62 

CNVR 122 
8183 

CNVR 107 
A 830 



CNVR 065 
77E8 

CNVR 073 
B07C 

CNVR 08 1 
2907 

CNVR 089 
OFFB 

CNVR 097 
C14F 

CNVR 115 
AB5C 

CNVR 100 
5DC0 

CNVR 108 
2040 



CNVR 066 
0FF8 

CNVR 074 
73E0 

CNVR 082 
0040 

CNVR 090 
FOE 8 

CNVR 098 
5200 

CNVR 116 
CF63 

CNVR 101 
8270 

CNVR 109 
AB74 



CNVR 067 
F080 

CNVR 075 
555B 

CNVR 083 
4EA6 

CNVR 091 
77E0 

CNVR 099 
AB28 

CNVR 117 
47BB 

CNVR 102 
4275 



5007 



CNVR 068 
5710 

CNVR 076 
3533 

CNVR 084 
2207 

CNVR 092 
14FF 

CNVR 110 
59F9 

CNVR 118 
OBFB 

CNVR 103 
D1F5 

CSTS 003 
AB53 



-2B00- 



-2B10- 



-2B20- 



-2B30- 



-2B40- 



-2B50- 



-2B60- 



-2B70- 



2B8- 



-28 80- 


CSTS 004 


CSTS 005 


CSTS 006 


CSTS 007 


CSTS 009 


CSTS 019 


CSTS 020 


CSTS 039 


-2B80- 




F90D 


0183 


F088 


9C9A 


AE98 


F938 


B35A 


F90D 




-2B90- 


CSTS 040 


CSTS 041 


CSTS 042 


CSTS 043 


CSTS 044 


CSTS 045 


CSTS 046 


CSTS 047 


-2B90- 




55B3 


5EA8 


AB53 


50AA 


HOD 


F088 


55BB 


3B33 




-2BA0- 


CSTS 048 


CSTS 049 


CSTS 050 


CSTS 051 


CSTS 052 


CSTS 053 


CSTS 054 


CSTS 055 


-2BA0- 




F02F 


57A0 


17F3 


427F 


531C 


A7FA 


81B3 


52 1C 




-2BB0- 


CSTS 056 


CSTS 057 


CSTS 058 


CSTS 059 


CSTS 029 


CSTS 031 


CSTS 032 


CSTS 033 


-2BB0- 




527F 


17F3 


77A0 


ABAA 


70E2 


2440 


58E2 


2400 




-2BC0- 


CSrS 034 


CSTS Oil 


CSTS 012 


CSTS 013 


CSTS 014 


CSTS 015 


CSTS 016 


CBRC 067 


-2BC0- 




128E 


AB53 


F90D 


5710 


447F 


7782 


81B3 


0040 




-2BD0- 


CBRC 068 


CBRC 069 


CBRC 070 


CBRC 071 


CBRC 073 


CBRC 074 


CBRC 075 


tBRC 076 


-2BD0- 




55B3 


C4DB 


5EA8 


50A0 


20 40 


55B8 


56A8 


52 A A 




-2BE0- 


CBRC 077 


CBRC 07 8 


CBRC 079 


CBRC 080 


CBRC 081 


CBRC 082 


CBRC 083 


CBRC 084 


-2BE0- 




OOOA 


73 A9 


72A9 


77A9 


76A9 


76A8 


72AA 


D5F3 




-2BF0- 


CBRC 085 


CBRC 086 


CBRC 08 7 


CLOG 122 


CLOG 123 


CLOG 124 


CLOG 125 




-2BF0- 




81B3 


D1F0 


A886 


AB53 


5F10 


6F55 


AE28 


5007 




CGNTRGL ADDRESS 


















2B— 



ADDRESS LIST 
CONTROL ADDRESS 2 



DATE 11/08/68 
A C 



CL0AD=*E60# EC LEVEL=1282li f PAGE 315 
2C~ 



-2CCQ- 



-2C10- 



-2C20- 



-2C30- 



-2C40- 



-2C50- 



-2C60- 



-2C70- 



CLST 040 
837C 

CLST 020 
4EE6 

CBIN 034 
C625 

CLST 034 
2C07 

CLST Oil 
2C75 

C8RC 062 
2B33 

CBRC 052 
7892 

CBRC 060 
6535 



CLST 041 
C639 

CLST 021 
4666 

CBIN 035 
AC46 

CLST 035 

AC48 

CLST 012 

CD09 

CBRC 063 
9C72 

CBRC 05 3 
4806 

CBRC 061 
B461 



CLST 042 
8AE0 

CLST 022 
D5C7 

CLST 036 
2C55 

CLST 005 

837C 

CLST 013 
81B3 

CBRC 064 
AE98 

CBRC 054 
0020 

CCOM 161 
2400 



CLST 043 
ACOE 

CLST 023 
AC30 

CLST 037 
AC48 

CLST 006 
C610 

CLST 024 
2C25 

CBRC 047 
AB53 

CBRC 055 
558B 

CCOM 162 
2C25 



CLST 014 
2B83 

CBIN 030 
A7 70 

CLST 030 
837C 

CLST 007 
8AE0 

CLST 025 
76A8 

CBRC 048 
01E3 

CBRC 056 
C4CF 

CCOM 163 
81B3 



CLST 015 
9C70 

CBIN 031 
8176 

CLST 031 
C625 

CLST 008 
C610 

CLST 026 
7EAA 

CBRC 049 
F0D4 

CBRC 057 
5498 

CLOG 045 
AB53 



CLST 018 
837C 

CBIN 032 
E4BD 

CLST 032 
8AE0 

CLST 009 

76A8 

CLST 027 

81B3 

CBRC 050 
E1D0 

CBRC 05 8 
2B3B 

CLOG 046 
5F10 



CLST 019 
C625 

CBIN 033 
E5B0 

CLST 033 
C625 

CLST OiO 

7EAA 

CBRC 065 
A9A6 

CBRC 051 
7CC2 

CBRC 059 
53A0 

CLOG 047 
7F51 



-2C00- 
-2C10- 
-2C20- 
-2C30- 
-2C40- 
-2C50- 
-2C60- 
-2C70- 



2C8- 



-2C80- 


CLOG 048 


CLOG 049 


CLOG 050 


CLOG 051 


CLOG 058 


CLOG 059 


CLOG 060 


CLOG 061 


-2C80- 




C4A9 


F4A5 


2C55 


81B3 


6F75 


AB53 


5738 


5F18 




-2C90- 


CLOG 062 


CLOG 063 


CLOG 064 


CLOG 065 


CLOG 066 


CLOG 039 


CLOG 040 


CLOG 041 


-2C90- 




7F71 


C482 


25FF 


F48D 


ACA8 


A770 


8174 


05A8 




-2CA0- 


CLOG 042 


CLOG 043 


CLOG 052 


CLOG 053 


CLOG 054 


CLOG 055 


CLOG 178 


CLOG 179 


-2CA0- 




F5A5 


AC84 


2C25 


81B3 


2C07 


81B3 


2C75 


81B3 




-2CB0- 


CLOG 170 


CLOG 171 


CLOG 172 


CLOG 173 


CLOG 174 


CLOG 175 


CLOG 176 


CLOG 177 


-2CB0- 




AB53 


5F10 


6F57 


C4A9 


6F51 


C4AD 


2C55 


81B3 




-2CC0- 


CBRC 118 


CBRC 119 


CBRC 120 


CBRC 121 


CBRC 090 


CBRC 091 


CBRC 092 


CBRC 093 


-2CC0- 




1680 


C67D 


F07F 


A886 


8DC4 


55BB 


58A8 


52AA 




-2CD0- 


CBRC 094 


CBRC 095 


CBRC 096 


CBRC 097 


CBRC 098 


CBRC 099 


CBRC 100 


CBRC 101 


-2CD0- 




55B3 


56A8 


5CAA 


6D3B 


6C20 


6790 


6680 


3B15 




-2CE0- 


CBRC 102 


CBRC 103 


CBRC 104 


CBRC 105 


CBRC 106 


CBRC 107 


CBRC 108 


CBRC 109 


-2CE0- 




58A8 


52AA 


55BB 


76A8 


7CAA 


0004 


3002 


7030 




-2CF0- 


CBRC I 10 


CBRC 111 


CBRC 112 


CBRC 113 


CBRC 114 


CBRC 115 


CBRC 116 


CBRC 117 


-2CF0- 




7C2D 


7799 


768D 


9258 


E4C1 


E5C3 


F047 


81B3 




CONTROL ADDRESS 
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ADDRESS LIST 

CONTROL ADDRESS 2 



DATE 11/08/68 
A C 



CLQAD=*E60, EC LEVEL=128211 , PAGE 316 
2D — 



-2000- CLST 066 
AB53 

-2D10- CLST 074 
5769 

-2D20- CLST 061 
7210 

-2D30- CLST 115 
5531 

-2D40- CNVR 032 
0002 

-2050- CNVR 040 
6EED 

-2D60- CNVR 048 
27C8 

-20 70- CNVR 056 
81B3 



CLST 067 
01E3 

CLST 075 

AC48 

CLST 062 
81 S3 

CLST 1X6 
6351 

CNVR 033 
799F 

CNVR 041 
6 7 YD 

CNVR 049 
C966 

CLOG 152 
AB53 



CLST 068 

F0A4 

CLST 055 
AB53 

CLST 063 

AE98 

CLST 117 

C4A3 

CNVR 034 
783F 

CNVR 042 
666 

CNVR 050 
176B 

CLOG 153 
5F10 



CLST 069 

55BB 

CLST 056 
0i£3 

CLST 110 
A853 

CLST 118 
251D 

CNVR 035 
755F 

CNVR 043 
ED5D 

CNVR 051 
DiEA 

CLOG 154 
6F51 



CLST 070 
5E10 

CLST 057 
F0A4 

CLST 111 
01C3 

CLST 119 

55BB 

CNVR 036 
744F 

CNVR 044 
2D1B 

CNVR 052 
3713 

CLOG 155 
AE28 



CLST 071 
2707 

CLST 058 
55BB 

CLST 112 
F0A4 

CLST 120 
128E 

CNVR 037 
733F 

CNVR 045 
128E 

CNVR 053 
7218 



5007 



CLST 072 
CE10 

CLST 059 

2B2B 

CLST 113 
55BB 

CNVR 03 
3915 

CNVR 03 8 
722F 

CNVR 046 
4686 

CNVR 054 
7418 

CTRT 003 
AB53 



CLST 073 
27F7 

CLST 060 
52A0 

CLST 114 
128E 

CNVR 031 
ED5D 

CNVR 039 
6FFB 

CNVR 047 
9258 

CNVR 055 
7618 

CTRT 004 
2607 



-2D00- 



-2010- 



-2D20- 



-2D30- 



-2D4G- 



-2D50- 



-206 0- 



-2070- 



208- 



-2080- 


CTRT 005 


CTRT 006 


CTRT 007 


CTRT 008 


CTRT 009 


CTRT 010 


CTRT Oil 


CTRT 012 


-2080- 




2E07 


5FiO 


6F3B 


6E20 


6670 


A253 


5FF0 


F019 




-20 90- 


CTRT 013 


CTRT 014 


CTRT 015 


CTRT 016 


CTRT 017 


CTRT 018 


CTRT 019 


CTRT 020 


-2D90- 




7F18 


25FF 


F481 


81B3 


AB13 


5004 


25FF 


F481 




-2DA0- 


CTRT 021 


CCOM 025 


CCOM 026 


CCOM 027 


CCOM 012 


CCOM 013 


CCOM 014 


CCOM 015 


-2DA0- 




A8DC 


2.3F7 


C4B4 


AE98 


AB53 


01E3 


F0A6 


5E10 




-2DB0- 


CCOM 016 


CCOH Oi 7 


CCOM 018 


CCOM 019 


CCOM 020 


CCOM 021 


CCOM 022 


CCOM 023 


-2DB0- 




CE23 


2305 


5329 


40E6 


55BB 


56A8 


5EAA 


100E 




-2DC0- 


CCOM 024 


CBIN 070 


CBIN 071 


CBIN 059 


CBIN 060 


CBIN 061 


CBIN 062 


CBIN 063 


-2DC0- 




128E 


2C/5 


81B3 


A770 


8176 


76A8 


7EAA 


E5DB 




-2DD0- 


CBIN 064 


CBIN 065 


CBIN 066 


CBIN 0/2 


CBIN 073 


CBIN 067 


CBIN 068 


CBIN 069 


-20D0- 




F5D7 


2C07 


8 1 83 


2C25 


8J.B3 


F5C3 


2C55 


81B3 




-2DE0- 


CLOG 158 


CLOG 159 


CLOG 160 


CLOG 161 


CLOG 162 


CLOG 163 


CLOG 164 


CLOG 165 


-2DE0- 




6F75 


AB53 


10CE 


5738 


5F10 


67F1 


7718 


25FF 




-2DF0- 


CLOG 166 


CLOG 167 


CCOH 157 


CCOM 158 


CCOM 159 


CLOG 128 


CLOG 129 


CLOG 130 


-2DF0- 




F4E7 


A916 


2^+00 


2C55 


8183 


6F75 


AB53 


10CE 




CONTROL ADDRESS 
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ADORE SS LIST 
CONTROL ADDRESS 2 
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A C 
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2E — 



-2ECO- CLOG 131 
5738 



-2E 10- 



-2E30- 



-2E60- 



-2E70- 



CMPU 046 
A932 



-2E20- CMPU 044 
8083 



CLOG 093 
7F10 



-2E40- CSfS 087 
FC44 

-2E50- CLOG 020 
4F7B 



CLOG 029 
5F10 

CSTS 073 
5710 



CLOG 132 
5F10 

CMPU 037 
5F3A 

CLOG 086 
AB53 

CLOG 094 
2C07 

CSTS 088 
3C45 

CLOG 021 
7718 

CLOG 030 
4F7D 

CSTS 074 
7F10 



CLOG 133 
67 F5 

CMPU 038 
25FF 

CLOG 087 
5F10 

CLOG 095 
8 183 

CSTS 089 
7CC2 

CLOG 022 
25FF 

CLOG 031 
7718 

CSTS 075 
C77A 



CLOG 134 
7718 

CMPU 39 
F08F 

CLOG 088 
6F57 

CSTS 082 
55BB 

CSTS 090 
81B3 

CLOG 023 
F4CD 

CLOG 032 
25FF 

CSTS 076 
2C55 



CLOG 135 
25FF 

CMPU 040 
5B3A 

CLOG 089 
C4B1 

CSTS 083 
5EA0 

CLOG 016 
6F75 

CLOG 024 
81B3 

CLOG 033 
F4DF 

CSTS 077 
81B3 



CLOG 136 
F481 

CMPU 041 
4BF3 

CLOG 090 
7F10 

CSTS 084 
4ED3 

CLOG 017 
AB53 

CLOG 026 
6F75 

CLOG 034 
81B3 

CSTS 078 
2C05 



CLOG 137 
A916 

CMPU 042 
7F1A 

CLOG 091 
2C55 

CSTS 085 
5ECB 

CLOG 018 
5738 

CLOG 027 
AB53 

CSTS 071 
AB53 

CSTS 079 

81B3 



CMPU 045 
5F70 

CMPU 043 
3510 

CLOG 092 
81B3 

CSTS 086 
ICC 5 

CLOG 019 
5F10 

CLOG 02 8 
5738 

CSTS 072 
2FF7 

CMPU 008 
27F5 



-2E00- 



-2E10- 



-2E20- 



-2E30- 



-2E40- 



-2E50- 



-2E60- 



-2E70- 



2E8- 



-2E 80- 


CMPU 009 


CMPU 010 


CMPU Oil 


CMPU 012 


CMPU 013 


CMPU 014 


CMPU 015 


CICY 061 


-2E80- 




C904 


2755 


5B3A 


5BF1 


7F1A 


5559 


8083 


B071 




-2E90- 


CICY 055 


CICY 056 


CICY 057 


CICY 058 


CICY 059 


CICY 060 


CLST 046 


CLST 047 


-2E90- 




AF4E 


AB53 


01C3 


F08F 


2B63 


9C7 


55B3 


56A8 




-2EA0- 


CLST 048 


CLST 049 


CLST 050 


CLST 051 


CLST 052 


CLOG 008 


CLOG 009 


CLOG 010 


-2EAQ- 




5EAA 


55BB 


76A8 


7EAA 


8183 


6F75 


AB53 


5738 




-2EB0- 


CLOG Oil 


CLOG 012 


CLOG 013 


CLOG 014 


CLOG 190 


CLOG 191 


CLOG 192 


CLOG 193 


-2EB0- 




7718 


25FF 


F4AF 


8 1B3 


A853 


55BB 


2B3B 


57A0 




-2EC0- 


CLOG 194 


CLOG 195 


CLST 086 


CLST 087 


CLST 088 


CLST 089 


CLST 090 


CLST 091 


-2EC0- 




7710 


81B3 


55BB 


5618 


5E10 


76A8 


7EA0 


81B3 




-2ED0- 


CLST 078 


CLST 079 


CLST 080 


CLST 081 


CLST 082 


CLST 083 


CLOG 182 


CLOG 183 


-2ED0- 




55BB 


56A8 


5EAA 


7618 


7E10 


81B3 


AB53 


55BB 




-2EEG- 


CLOG 184 


CLOG 185 


CLOG 186 


CLOG 187 


CLST 094 


CLST 095 


CLST 096 


CLST 097 


-2EE0- 




2B3B 


5710 


77A0 


81B3 


AD26 


52A8 


7218 


52A0 




-2EF0- 


CLST 098 


CLST 099 


CLST 100 


CICY 010 


CICY Oil 


CICY 012 


CDVD 098 


COVD 099 


-2EF0- 




7218 


AD30 


AEEA 


5892 


20 20 


A9A6 


9256 


AB62 




NTROL ADDRESS 
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CONTROL ADDRESS 2 



DATE il/08/68 
A C 



CLQAD=*E60, EC LEVEL«128211 , PAGE 31« 
2F™ 



-2FC0- 



-2F 10- 



-2F20- 



-2F30- 



-2F40- 



-ZF 50- 



-2F60- 



-2F 70- 



OCLT 008 
AC74 

DCLT 013 
5202 

DCLT 021 
5209 

DCLT 029 
4652 

DCLT 039 
1F13 

CICY 082 
50BB 

CICY 090 
C4ED 

CICY 098 
C4DF 



DCLT 003 
C609 

DCLT 014 
6311 

DCLT 022 
4452 

DCLT 031 
2887 

DCLT 040 
A024 

CICY 083 
C4EF 

CICY 091 
52A8 

CBIN 080 
A770 



DCLT 004 
2007 

DCLT 015 
C480 

DCLT 023 
7432 

DCLT 032 
52AC 

DCLT 041 
B354 

CICY 084 
5EA8 

CICY 092 
56A0 

CBIN 081 
8174 



OCLT 005 
A344 

DCLT 016 
24F6 

DCLT 024 
0D04 

DCLT 033 
526F 

DCLT 042 
5A22 

CICY 085 
56A0 

CICY 093 
617B 

CBIN 082 
A DC A 



DCLT 009 
24F6 

DCLT 017 
CilC 

DCLT 025 
70 E2 

DCLT 034 
5668 

DCLT 043 
2A13 

CICY 086 
617B 

CICY 094 

606D 

DMCS 009 
2E85 



DCLT 010 
EC 80 

DCLT 018 
3485 

OCLT 026 

0040 

DCLT 036 
5212 

DCLT 044 
2400 

CICY 087 
606F 

CICY 095 
6F30 

DMCS 010 
74E2 



OCLT Oil 
FOOO 

DCLT 019 
70F2 

DCLT 02 7 

021E 

DCLT 037 
50F2 

DCLT 045 
A43E 

CICY 088 
6FAD 

CICY 096 
128E 

DMCS Oil 
7EF2 



DCLT 012 
2400 

DCLT 020 
5419 

DCLT 028 

2400 

DCLT 038 
5EE2 

CICY 081 
5098 

CICY 089 
55B3 

CICY 097 
2F07 

DMCS 012 
2F10 



-2F00- 
-2F10- 
-2F20- 
-2F30- 
-2F40- 
-2F50- 
-2F60- 
-2F70- 



2F8- 



-2F80- 



-2F50- 



-2FC0- 



-2FE0- 



DMCS 013 
EBOF 

DMCS 019 
72A2 



-2FA0- DMCS 027 
281B 

-2F BO- DMCS 03 5 
49DF 



DMCS 050 
2105 



-2FD0- FILE 301 
2C85 



FILE 309 
4BEF 



-2FF0- FILE 283 
CCD1 



DMCS 014 
8612 

DMCS 020 
2427 

DMCS 028 
5B38 

DMCS 036 
27FF 

DMCS 051 
71C0 

FILE 302 
E956 

FILE 310 
49CF 

FILE 284 

2D1B 



DMCS 003 
52A2 

DMCS 021 
25A3 

DMCS 029 
5198 

DMCS 037 
7D60 

DMCS 052 
B2C6 

FILE 303 
2C25 

FILE 311 
4EEF 

FILE 285 
DCD9 



DMCS 004 
6DD3 

DMCS 022 
4F48 

DMCS 030 
2CIB 

DMCS 038 
52A2 

FILE 296 

2E07 

FILE 304 
F95E 

FILE 312 
4DEF 

FILE 286 
2D1B 



DMCS 005 

DD16 

DMCS 023 
5FC9 

DMCS 031 
6B11 

DMCS 043 
2C75 

FILE 297 
5C32 

FILE 305 
2C45 

FILE 313 
128E 

FILE 287 
ECD5 



DMCS 006 
2FF5 

DMCS 024 
4826 

DMCS 032 
C484 

DMCS 047 
27F7 

FILE 298 

0EO8 

FILE 306 
E95E 

FILE 280 
2095 

FILE 288 
2D IB 



DMCS 007 
AFBO 

DMCS 025 
69FB 

DMCS 033 
OCFD 

DMCS 048 
77C8 

FILE 299 
C965 

FILE 307 
2C15 

FILE 281 
0E08 

FILE 289 
FCDD 



DMCS 018 
2D13 

DMCS 026 
F5A2 

DMCS 034 
C4A2 

DMCS 049 
E83C 

FILE 300 
D965 

FILE 308 
2E07 

FILE 282 

2100 

FILE 290 
12 8€ 



CONTROL ADDRESS 



-2F 80- 

-2F90- 

-2FA0- 

-2FB0- 

-2FC0- 

-2FD0- 

-2FE0- 

-2FF0- 
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CLQAD=*E60, EC LEVEL=1282 1l ,PAGE 319 
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-3OC0- 



-3010- 



-3020- 



-3030- 



-3040- 



-30 50- 



-3060- 



-3070- 



8CHK 082 
A16C 

BCHK 071 
42A6 

BCHK 080 
6AC0 

BCHK 050 
6004 

BCHK 058 
6208 

CSFT 109 
4013 

CSFT 117 
4673 

CMLT 159 
3002 



BCHK 064 
4252 

BCHK 072 
C481 

BCHK 081 
B02C 

BCHK 051 
4208 

BCHK 059 
0610 

CSFT 110 
5005 

CSFT 118 
5665 

CMLT 160 
9CD2 



BCHK 065 
4C26 

BCHK 073 
2CE3 

BCHK 005 
2404 

BCHK 052 
2A07 

BCHK 060 
511B 

CSFT 111 

4303 

CSFT 119 
4F63 

CMLT 161 
1002 



BCHK 066 
4AC0 

8CHK 074 
2 DCS 

BCHK 045 
4632 

BCHK 053 
5380 

BCHK 061 
2723 

CSFT 112 
5 335 

CSFT 120 
5FF5 

CMLT 162 
3D25 



BCHK 067 
2DEB 

BCHK 075 
3D63 

BCHK 046 
6662 

BCHK 054 
C4BC 

BCHK 062 
20C0 

CSFT 113 
4233 

CSFT 121 

4EF3 

CMLT 163 
9C04 



BCHK 068 
8F2C 

Bitfc 07)6 

BCHK* 047 
FA82 



BCHK 055 
28 IB 

BCHK 063 
968A 

CSFT 114 
5225 

CSFT 122 
5EE5 

CMLT 164 
8344 



BCHK 069 
6CC4 

BCHK 077 
2820 

BCHK 048 
21C5 

BCHK 056 
6BB3 

CSFT 107 
D05E 

CSFT 115 
4723 

CSFT 123 

4AE3 

CCOM 071 
2B73 



BCHK 070 
DCOA 

BCHK 079 
8F2C 

BCHK 049 
20E3 

BCHK 057 
42A0 

CSFT 108 
5115 

CSFT 116 
5775 

CSFT 124 
12 8E 

CCOM 072 
9C70 



-3000- 



-3010- 



-3020- 



-3030- 



-3040- 



-3 05 0- 



-3060- 



-3070- 



308- 



-3080- 


DCLR 057 


DCLR 002 


DCLR 003 


OCLR 013 


DCLR 017 


DCLR 028 


DCLR 029 


DCLR 030 


-3080- 




0240 


C3C2 


875A 


D623 


1773 


A078 


C510 


2EC3 




-3090- 


DCLR 031 


DCLR 032 


DCLR 033 


DCLR 034 


DCLR 035 


DCLR 036 


DCLR 037 


DCLR 038 


-3090- 




15C5 


34A5 


C398 


9EE0 


E71E 


F71E 


83A0 


B16A 




-30A0- 


DCLR 039 


DCLR 041 


DCLR 042 


DCLR 043 


DCLR 044 


DCLR 045 


DCLR 046 


DCLR 047 


-30A0- 




9D52 


2425 


54E9 


15C5 


1573 


CCBO 


2B00 


945A 




-30B0- 


DCLR 048 


DCLR 049 


OCLR 050 


OCLR 051 


DCLR 052 


OCLR 053 


OCLR 054 


DCLR 055 


-30B0- 




0D10 


3413 


2205 


7602 


2 040 


C681 


E681 


2B00 




-30C0- 


DCLR 056 


DCLR 004 


DCLR 008 


DCLR 009 


DCLR 010 


DCLR Oil 


OYPE 071 


DYPE 072 


-30C0- 




A7B6 


F207 


2400 


2F25 


2E05 


A030 


2F53 


3F15 




-3000- 


DYPE 073 


DYPE 074 


OYPE 075 


OYPE 076 


DYPE 077 


DYPE 078 


DYPE 079 


DYPE 080 


-30D0- 




IF 00 


2F08 


4FFF 


0F20 


3485 


1483 


5DD9 


C4E5 




-30EO- 


DYPE 081 


DYPE 082 


DYPE 083 


DYPE 084 


DYPE 085 


DYPE 086 


DYPE 087 


CMLT 148 


-30E0- 




3E23 


15C5 


D56B 


3E83 


B10A 


9A90 


AAA2 


3002 




-30FO- 


CMLT 149 


CMLT 150 


CMLT 151 


CMLT 152 


CMLT 153 


DCHN 09 7 


DCHN 098 


DCHN 099 


-30F0- 




9CD2 


1002 


3D25 


9CD2 


8344 


2400 


2C75 


A164 




CONTROL ADDRESS 
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-31C0- 



-3110- 



-3120- 



-3130- 



-3140- 



-3150- 



-3160- 



-3170- 



DCOM 041 
C804 

DCOM Oil 
2010 

DCOM 019 
128E 

DCOM 027 
1C83 

DCOM 035 
128E 

DPTT 073 

EED6 

DPTT 081 
3E23 

ERRQ 113 
128E 



DCOM 042 
2FQ4 

DCOM 012 
021E 

DCOM 023 
0F20 

DCOM 028 
128E 

DCOM 039 
2F30 

DPTT 074 
3E23 

DPTT 082 
3F15 

ERRQ 114 
0D80 



OCOM 043 
128E 

DCOM 013 
3413 

DCOM 024 
128E 

DCOM 029 
021E 

DCOM 040 
128E 

DPTT 075 
3F13 

DPTT 083 
3E43 

ERRQ 115 
128E 



DCOM 006 
C140 

DCOM 014 
76D2 

DCOM 020 
E720 

DCOM 030 
1683 

DCOM 036 
E701 

DPTT 076 
CB5A 

DPTT 084 
ODOA 

CBIN 051 
ADA8 



DCOM 007 
2683 

DCOM 015 
1683 

OCOM 021 
0820 

DCOM 031 
D541 

DCOM 037 
2B30 

DPTT 077 
3E23 

DPTT 085 
128E 

CBIN 052 
810C 



DCOM 008 
F017 

DCOM 016 
F727 

DCOM 022 
128E 

DCOM 032 
F747 

OCOM 038 
128E 

DPTT 078 
5E3F 

ERRQ 110 
F772 

DYPE 231 
5AFF 



DCOM 009 
221E 

DCOM 017 
E723 

DCOM 02 5 
OF 24 

DCOM 033 
E 743 

DPTT 071 
FEDO 

OPTT 079 
1393 

ERRQ 111 
D271 

DYPE 232 
5F19 



DCOM OiO 
C7B5 

DCOM 018 
0D08 

DCOM 026 
C832 

DCOM 034 
2088 

DPTT 072 
3E13 

DPTT 080 
F0E5 

ERRQ 112 
0D04 

DYPE 233 
11C5 



-3100- 
-3110- 
-3120- 
-3130- 
-3140- 
-3150- 
-3160- 
-3170- 



318- 



-3180- DYPE 234 DYPE 235 DYPE 236 

CflO 2055 21BD 

-3190- DYPE 242 DYPE 243 DYPE 244 

C483 F098 11CB 

-31A0- DYPE 250 DYPE 251 DYPE 2 52 

OliF C4A9 1F6D 

-31B0- DYPE 259 DYPE 260 OYPE 261 

CB34 EB39 1FFD 

-31C0- CDMD 153 CDMD 154 CDMD 155 

57B9 C5C6 0B9F 

-31D0- CDMD 161 CDMD 162 CDMD 163 

5710 0040 2EFF 

-31EQ- CDMD 177 CDMD 178 CDMD 179 

56F2 57C9 1000 

-31F0- CDMD 167 CDMD 168 CDMD 169 

2A95 56E2 57C9 
CONTROL ADDRESS 



DYPE 237 
218B 

DYPE 245 
C482 

DYPE 253 
C48A 

DYPE 262 
C48A 

CDMD 156 
008E 

CDMD 164 
C4C0 

CDMD 180 
0BB1 

CDMD 170 
1000 



DYPE 238 
5F00 

DYPE 246 
E0B1 

DYPE 254 
1F7D 

DYPE 263 
114B 

CDMD 157 
D1DA 

CDMD 165 
8BB8 

CDMD 181 
EOED 

CDMD 171 
0BB9 



DYPE 239 
4FFF 

DYPE 247 
CB20 

DYPE 255 
C48A 

DYPE 264 
C482 

CDMD 158 
EOEE 

CDMD 174 
FOCB 

CDMD 182 
3002 

CDMD 172 
F4EB 



DYPE 240 
0F20 

DYPE 248 

DB03 

OYPE 256 

11 IB 

CDMD 151 
2040 

CDMD 159 
7B1A 

CDMD 175 
5BBD 

CDMD 183 
A74C 

CDMD 173 
A74C 



DYPE 241 
128E 

DYPE 249 

EB2D 

DYPE 258 
C482 

CDMD 152 
4826 

CDMD 160 
5886 

COMD 176 
2 A 93 

CDMD 166 
2040 

FILX 088 
0083 



-3180- 

-3190- 

-31A0- 

-31B0- 

-31C0- 

-3100- 

-31E0- 

-31F0- 
31— 



ADDRESS LIST 
CONTROL ADDRESS 2 



DATE 11/08/68 
A C 
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-32C0- FILX 089 
F084 

-3210- FILX 094 
C916 

-3220- FILX 102 
DD2 8 

-32 30- FILX 110 
4886 

-3240- CFHA 007 
A6DC 

-3250- CFHA 015 
C4E6 

•32 60- CFHA 029 
0080 

-32 70- CFHA 037 
9C70 



FILX 090 

EDOC 

FILX 095 
F01C 

FILX 103 
1DFD 

FILX 111 

C488 

CFHA 008 
A6DC 

CFHA 016 
A1E4 

CFHA 030 
8136 

CFHA 022 
F4DD 



FILX 091 
97A6 

FILX 096 
3DF3 

FILX 104 
DD29 

FILX 112 
DD86 

CFHA 009 
A6DC 

CFHA 017 
2507 

CFHA 031 
2E07 

CFHA 023 
ED62 



FILX 117 
2F07 

FILX 097 
FD1C 

FILX 105 
3DA5 

FILX 113 
2E08 

CFHA 010 
A656 

CFHA 018 
2EFF 

CFHA 32 
9 ADO 

CFHA 024 
1E8D 



FILX 118 
2EC3 

FILX 098 

3DD3 

FILX 106 
7C52 

FILX 114 

0E04 

CFHA Oil 
5CC2 

CFHA 019 
E4F2 

CFHA 033 
92 5 A 

CFHA 025 
27D3 



FILX 119 
8E3A 

FILX 099 
ID15 

FILX 107 
2F45 

FILX 115 
5E42 

CFHA 012 
D5E4 

CFHA 020 
F4F5 

CFHA 034 
C1EF 

CFHA 026 
2080 



FILX 092 
3D13 

FILX 100 
CD25 

FILX 108 

CD89 

FILX 116 
862A 

CFHA 013 
2A07 

CFHA 021 
B24E 

CFHA 035 
A8DE 

CFHA 027 
8 24E 



FILX 093 
2C25 

FILX 101 
3D85 

FILX 109 
F9B5 

CFHA 006 
2C13 

CFHA 014 
OFF 3 

CFHA 02 8 
ED67 

CFHA 036 
57B9 



5007 



-3200- 



-3210- 



-3220- 



-3230- 



-3240- 



-3250- 



-3260- 



-3270- 



328- 



-32 80- 


CSFT 140 


CSFT 141 


CSFT 142 


CSFT 143 


CSFT 144 


CSFT 145 


CSFT 146 


CSFT 147 


-3280- 




6EA1 


C48C 


018A 


CFOF 


3000 


CFOE 


3000 


5FE9 




-3290- 


CSFT 148 


CSFT 149 


CSFT 150 


CSFT 151 


CSFT 152 


CSFT 129 


CSFT 130 


CSFT 131 


-3290- 




56F9 


5769 


D031 


2707 


128E 


F001 


0026 


5019 




-32AG- 


CSFT 132 


CSFT 133 


CSFT 134 


CSFT 135 


CSFT 136 


CSFT 137 


CSFT 138 


CSFT 139 


-32A0- 




5309 


5239 


5729 


5679 


5F69 


5EF9 


5AE9 


12 8E 




-3280- 


CSFT 153 


CSFT 154 


CSFT 155 


CSFT 156 


CSFT 157 


CSFT 158 


DMCS 056 


DMCS 057 


-32B0- 




5279 


5329 


5039 


5109 


2107 


128E 


5038 


3E43 




-32C0- 


DMCS 058 


DMCS 059 


DMCS 060 


DMCS 061 


DMCS 062 


DMCS 063 


DMCS 064 


DMCS 065 


-32C0- 




211B 


71C0 


CE4D 


2D4D 


2640 


F4C2 


CBE7 


CF67 




-32D0- 


QMCS 066 


DMCS 070 


DMCS 071 


DMCS 072 


DMCS 073 


DMCS 074 


DMCS 075 


DMCS 076 


-32D0- 




0A66 


1E43 


2515 


C167 


4948 


69D1 


C4D6 


F163 




-32E0- 


DMCS 077 


DMCS 078 


DMCS 079 


DMCS 08 1 


DMCS 082 


DMCS 083 


DMCS 087 


DMCS 088 


-32E0- 




6446 


4040 


B2C2 


51B9 


6BF1 


C4BC 


54E2 


5EF2 




-32F0- 


DMCS 089 


DMCS 090 


DMCS 091 


DMCS 092 


CCOM 173 


CCOM 174 


CCOM 175 




-32F0- 




4642 


2105 


2E43 


8D2E 


2BB1 


7FA0 


128E 


5007 




CGNTROL ADDRESS 
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-3300- CSTS 118 
B35A 

-3310- CSTS Hi 
3F00 

-3320- DPTT 089 
1413 

-3330- CLOG 147 
6731 

-3340- CLOG 119 
A912 

-3350- CMLT 166 
3002 

-3360- BWRP 091 
9270 

-3370- C8IN 077 
AF74 



CSTS 104 
F901 

CSTS 112 

C092 

DPTT 090 
0010 

CLOG 148 
6621 

FILE 242 
2112 

CMLT 167 
8076 

CCOM 154 
2400 

CLOG 110 
8A70 



CSTS 105 
5310 

CSTS 113 

585F 

DPTT 091 
4046 

CLOG 149 
A912 

FILE 243 

5ECF 

CCOM 186 
2BB1 

CCOM 155 
A8DC 

CLOG ill 
8338 



CSTS 106 
495F 

CSTS 114 
1F00 

DPTT 092 
1485 

CLOG 114 
A770 

FILE 244 
6CD1 

CCOM 187 
5FA0 

CBIN 026 
8A70 

CFCY 068 
925A 



CSTS 107 
473F 

CSTS 115 
15FF 

DPTT 093 
128E 

CLOG 115 
6F15 

FILE 245 
C4C0 

CCOM 188 
128E 

CBIN 027 
AC1A 

CFCY 069 
A0 5A 



CSTS 108 
A8DE 

CSTS 116 
7510 

CLOG 144 
A770 

CLOG 116 
6E05 

FILE 246 
8C7E 

CICY 068 
2B23 

CLOG 036 
8A70 

CLOG 140 
8A70 



CSTS 109 
F901 

CSTS 117 
A8DE 

CLOG 145 
6FH 

CLOG 117 
6735 

FILE 247 
128E 

CICY 069 
9C70 

CLOG 03 7 

AC9C 

CLOG 141 
B32C 



CSTS 110 
495F 

DPTT 088 
F024 

CLOG 146 
6E01 

CLOG 118 
6625 

CMLT 165 
9CD2 

BWRP 090 
A 062 

CBIN 076 
8A70 



5007 



-3300- 
-3310- 
-3320- 
-3330- 
-3340- 
-3350- 
-3360- 
-3370- 



-3360- 



CBiN 055 
8A70 



CBIN 056 
ADC8 



CFLS 007 
1E85 



338- 



CFLS 008 
A154 



CBIN 022 
ADA8 



CBIN 023 
A8CA 



5007 



5007 



-3380- 



ADDRESS LIST 
AUX STORAGE 2 

-OOGO- 

-OOIO- 

-G02C- 



-0030- 



-0040- 



-0050- 



-0060- 



-0070- 



ALDP 261 
D9C4 

ALDP 264 
D9C1 

ALDP 267 
40C4 

ALDP 270 
C1E5 



ALDP 261 
C4CI 

ALDP 264 
C8C3 

ALDP 267 
C9D3 

ALDP 270 
05 C9 



008- 



-008O- 



-0090- 



-OOAO- 



DCLC 194 DCLC 194 
OBOC ODOE 

DCLC 197 DCLC 197 
0F15 18FF 



-OOBO- 



-OOCO- 



BSYS 140 BSYS 140 
OEOC 0D1F 

DPTC 103 
0004 



-0000- 



-OOEO- 



-OOFO- 
AUX STORAGE 



BSYS 151 
0090 
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-0000- 



-0010- 



-0020- 



-0030- 



-0040- 



-0050- 



-0060- 



-0070- 



-0080- 
-0090- 
-OOAO- 
-OOBO- 
-QOCO- 
-OODO- 
-OOEO- 



-OOFO- 
00 — 



ADDRESS LIST 
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-3000- 
-3010- 
-3020- 
-3030- 
-3040- 
-3050- 
-3060- 
-3070- 



ERCX 075 
40F1 

ERCX 075 
6001 

ERCX 076 
50C1 

ERCX 077 
6A91 

ERCX 077 
F931 

ERCX 078 
0911 

ERCX 079 
C901 

ERCX 080 
9951 



ERCX 075 
F2F3 

ERCX 075 
D2D3 

ERCX 076 
C2C3 

ERCX 077 
9293 

ERCX 078 
3233 

ERCX 078 
1213 

ERCX 079 
0203 

ERCX 080 
5253 



ERCX 075 
F4F5 

ERCX 075 
D4D5 

ERCX 076 
C4C5 

ERCX 077 
9495 

ERCX 078 
3435 

ERCX 078 
1415 

ERCX 079 
0405 

ERCX 080 
5455 



ERCX 075 
F6F7 

ERCX 076 
D6D7 

ERCX 076 
C6C7 

ERCX 077 
9697 

ERCX 078 
3637 

ERCX 078 
1617 

ERCX 079 
0607 

ERCX 080 
5657 



ERCX 075 
F061 

ERCX 076 
D0A1 

ERCX 076 
CO 81 

ERCX 077 
70B1 

ERCX 078 
E921 

ERCX 079 
A9E1 

ERCX 079 
8941 

ERCX 080 
B971 



ERCX 075 
E2E3 

ERCX 076 
A2A3 

ERCX 076 
8283 

ERCX 077 
B2B3 

ERCX 078 
2223 

ERCX 079 
6263 

ERCX 079 
4243 

ERCX 080 
7273 



ERCX 075 
E4E5 

ERCX 076 
A4A5 

ERCX 07 7 
8485 

ERCX 077 
B4B5 

ERCX 078 
242 5 

ERCX 079 
6465 

ERCX 079 
4445 

ERCX 080 
7475 



ERCX 075 
E6E7 

ERCX 076 
A6A7 

ERCX 077 
8687 

ERCX 077 
B6B7 

ERCX 078 
2627 

ERCX 079 
6667 

ERCX 080 
4647 

ERCX 080 
7677 



-3000- 



-3010- 



-302 0- 



-3030- 



-3040- 



-3050- 



-3060- 



-3070- 



308- 



-3080- 



-30S0- 



-30A0- 



-30BO- 



ERCX 080 
F879 

ERCX 081 
0859 

ERCX 082 
C849 

ERCX 083 
9890 



-30C0- ERCX 083 
3839 

-3000- ERCX 084 
1819 

-30E0- ERCX 085 
0809 

-30F0- ERCX 085 
5810 
AUX STORAGE 



ERCX 080 
7A7B 

ERCX 081 
5A5B 

ERCX 082 
4A4B 

ERCX 083 
9A9B 

ERCX 083 
3A3B 

ERCX 084 
1A1B 

ERCX 085 

OAOB 

ERCX 086 
OAOB 



ERCX 081 
7C70 

ERCX 081 
5C50 

ERCX 082 

4C4D 

ERCX 083 
9C90 

ERCX 083 
3C30 

ERCX 084 
iCIO 

ERCX 085 

ocoo 

ERCX 086 

OCOO 



ERCX 081 
7E7F 

ERCX 081 
5E5F 

ERCX 082 
4E4F 

ERCX 083 
9E9F 

ERCX 084 
3E3F 

ERCX 084 
1E1F 

ERCX 085 

OEOF 

ERCX 086 
OEDF 



ERCX 081 
E869 

ERCX 081 
A8A0 

ERCX 082 
8880 

ERCX 083 

B8B0 

ERCX 084 
2829 

ERCX 084 
6820 

ERCX 085 

4800 

ERCX 086 
7830 



ERCX 081 
E06B 

ERCX 082 
AAAB 

ERCX 082 
8A8B 

ERCX 083 
BAB8 

ERCX 084 
2A2B 

ERCX 084 
EAEB 

ERCX 085 
CACB 

ERCX 086 
FAFB 



ERCX 081 
6C6D 

ERCX 082 
ACAO 

ERCX 082 
8C80 

ERCX 083 
BCBO 

ERCX 084 
2C20 

ERC X 085 
ECEO 

ERCX 085 
CCCO 

ERCX 086 
FCFO 



ERCX 081 
6E6F 

ERCX 082 
AEAF 

ERCX 082 
8E8F 

ERCX 083 
BEBF 

ERCX 084 
2E2F 

ERCX 085 
EEEF 

ERCX 085 
CECF 

ERCX 086 
FEFF 



-3080- 

-3090- 

-30A0- 

-30B0- 

-30C0- 

-3 000- 

-30E0- 

-30F0- 
30 — 



ADDRESS LIST 
AUX STORAGE 2 
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-5GC0- 



-5000- 



-5010- 



-5010- 



-5020- 



-5020- 



•5030- 



-5030- 



-5040- 



-5040- 



•5050- 



-5050- 



•5060- 



-5 060- 



-5070- 



-5070- 



-5oao- 



508- 



-5080- 



-50SO- 



-5 090- 



-50A0- 



-50A0- 



-50B0- 



OYPE 268 DYPE 268 OYPE 268 DYPE 268 



407E 



4C5E 



7A6C 



7D6E 



5C4D 



5D7F 



0000 



-50D0- DYPE 269 OYPE 269 OYPE 269 



E8E9 



6B4F 



7C25 



-50E0- DYPE 269 DYPE 269 DYPE 270 



D8D9 



5B5A 



-50F0- DYPE 270 DYPE 270 
C8C9 4B5F 



6015 

DYPE 270 
5005 



AUX STORAGE 



F07B 

OYPE 269 
0000 

DYPE 270 
1600 



4A6F 



E2E3 



E4E5 



E6E7 



DYPE 269 DYPE 269 DYPE 269 DYPE 269 



6DDI 



D2D 3 



D4D5 



D6D7 



DYPE 270 DYPE 270 DYPE 270 DYPE 270 



4EC1 



C2C3 



C4C5 



C6C7 



-50B0- 



-50C0- DYPE 268 DYPE 268 DYPE 268 DYPE 268 DYPE 268 DYPE 268 DYPE 268 DYPE 269 -50C0- 
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